VB心得（个人整理的一些小心得）
一、打开指定硬盘/文件夹/网址
Dim PathtoOpen$
PathtoOpen = "https://www.doczj.com/doc/035033066.html," '("https://www.doczj.com/doc/035033066.html,为地址）Shell "explorer.exe " & PathtoOpen, vbNormalFocus
二.特殊退出效果
Private Sub Form_Resize()
If Form1.WindowState = 1 Then
MsgBox "关闭窗体时不能最小化程序！"
Form1.WindowState = 0
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim a As String
a = MsgBox("确定要退出吗？", vbOKCancel, "迷你计算器V1.0")
If a = 1 Then
MsgBox "谢谢您使用迷你计算器V1.0！"
gotoval = Me.Height / 2
For gointo = 1 To gotoval
DoEvents
Me.Height = Me.Height - 10
If Me.Height <= 11 Then GoTo horiz
Next gointo
horiz: Me.Height = 30
gotoval = Me.Height / 2
For gointo = 1 To gotoval
DoEvents
Me.Height = Me.Height - 10
If Me.Height <= 11 Then End
Next gointo
End
End If
End Sub
三.设置快捷键
在Caption属性字母前加上“&” 符号即可实现快捷键,要用快捷键先按ALT再加上首字母
四.让点击“X”不能关闭窗体
Private Sub Form_Unload(Cancel As Integer)
Cancel=5
End Sub
五.文本框换行
把Multiline属性为True即可
六.颜色渐变
RGB(Rnd() * 256, Rnd() * 256, Rnd() * 256)
七.winxp倒计时关机
shell("shutdown -s -t 30"(时间）)
八.让窗体产生渐变颜色
Sub Form_Load()
Form1.AutoRedraw = True
'使 Form 物件的自动重绘有效
Form1.DrawStyle = 6
'直线的样式为内实线 (6-vbInsideSolid)
Form1.DrawMode = 13
'copy Pen-由 ForeColor 属性指定的颜色。(13-vbCopyPen)
Form1.DrawWidth = 2
'输出的线宽为 2 像素 (Pixel)
'为绘图或列印建立一自订的座标比例尺
'图形像素为显示器或印表机解析度的最小单位
Form1.ScaleMode = 3
'设定物件座标的量测单位为像素 (3-VbPixels)
Form1.ScaleHeight = (256 * 2)
'设定垂直量测单位值为 512
For i = 0 To 255
Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 0, i), BF
Y = Y + 2
Next i
'RGB(red, green, blue)
'B : 使一方块用一指定方块对角的座标画出
'F : 指定此方块系以用来画方块的色彩来加以填满 (有B才可用F)
End Sub
九.控制光驱
声明：
Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
调用：
'打开
retvalue = mcisendstring("set CDAudio door open", returnstring, 127, 0) '关闭
retvalue = mcisendstring("set CDAudio door closed", returnstring, 127, 0)
十.文本框只能输入数字
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
十一.程序运行自动选中文本框中的文字
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
十二.模拟(开始)中的(运行...)功能
在 Form 中放一个 TextBox，名称为 Text1和放入一个按纽，名称为command1 Private Sub Command1_Click()
Call Shell("rundll32.exe url.dll,FileProtocolHandler " & Text1, 1)
End Sub
十三.使最大化和最小化按纽消失
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
Private Sub Form_Load()
Dim lWnd As Long
lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
lWnd = lWnd And Not (WS_MINIMIZEBOX)
lWnd = lWnd And Not (WS_MAXIMIZEBOX)
lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
End Sub
十四.右键菜单制作
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 then '鼠标右键按下
PopupMenu PopMenu（菜单名称）
End If
End Sub
(注意：代码应放在窗体的MouseUp中）
十五.显示关于窗口
Private Declare Function ShellAbout Lib "shell32.dll" Alias _
"ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, _
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
调用
ShellAbout Me.hwnd, "迷你计算器V1.0", "2004年8月1日第一版", Me.Icon
十六.显示/隐藏桌面图标
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_RESTORE = 9
'隐藏桌面图标
Private Sub Command1_Click()
Dim Hwd As Long
Dim rtn As Long
Hwd = FindWindow("Progman", vbNullString)
rtn = ShowWindow(Hwd, SW_HIDE)
End Sub
'显示桌面图标
Private Sub Command2_Click()
Dim Hwd As Long
Dim rtn As Long
Hwd = FindWindow("Progman", vbNullString)
rtn = ShowWindow(Hwd, SW_RESTORE)
End Sub
十七.在菜单上增加图标
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPos As Long) As Long
Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, _
ByVal nPos As Long) As Long
Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long, _
ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Public Const MF_BITMAP = &H4&
Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type
Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" _ (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, _
lpMenuItemInfo As MENUITEMINFO) As Boolean
Public Const MIIM_ID = &H2
Public Const MIIM_TYPE = &H10
Public Const MFT_STRING = &H0&
使用:在Form1中增加一个PictureBox1,AutoSize为True,visible为false,放一个bmp图片或jpg图片,不能用 Icon)
Private Sub Form_Load()
'Get the menuhandle of your app
hMenu& = GetMenu(Form1.hwnd)
'Get the handle of the first submenu (Hello)
hSubMenu& = GetSubMenu(hMenu&, 0)
'Get the menuId of the first entry (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 0) '0表示第几个子菜单
'Add the bitmap
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture 'You can add two bitmaps to a menuentry
'One for the checked and one for the unchecked
'state.
End Sub
(注意：只要把picture控件的高和宽设为13就可以了）
十八.把图标放在系统托盘中
首先在窗体上放一个PictureBox,将其Visible属性设为False。将其DragIcon属性设定为你想要在托盘上显示的图标。把下面的代码放在模块中
Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
' commands & flags for NotifyIcons
Global Const NIM_ADD = &H0&
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200
Global NI as NOTIFYICONDATA
创建提示图标
'将下面的代码放在Form_Load事件中
Private Sub Form_Load()
' stock NOTIFYICONDATA structure
NI.cbSize = Len(NI) 'length of this structure
NI.hWnd =Picture1.hwnd 'control to receive messages
NI.uID = 0 ' uniqueID
NI.uFlags = NIF_MESSAGE or NIF_ICON or NIF_TIP ' Operation Flags
NI.uCallbackMessage = WM_MOUSEMOVE ' message to send to control
NI.hIcon = Picture1.DragIcon ' handle to Icon
NI.szTip = "迷你计算器V1.0" + Chr$(0) ' Tool Tip '迷你计算器V1.0为当鼠标在托盘图标上时的提示文字
' 必须给提示图标分配一个唯一的ID号
' so increment until creation is successful
Do
NI.uID = NI.uID + 1
result = Shell_NotifyIconA(NIM_ADD, NI)
Loop While result = 0
end sub
'下面的代码放在 PictureBox的MouseMove事件中
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg as Long
Msg = (X And &HFF) * &H100
Select Case Msg
Case 0 ' 鼠标移动到图标时
' 在此输入你的代码
Case &HF00 ' 鼠标左键被按下时
' 在此输入你的代码
Case &H1E00 '鼠标左键按下时
' 在此输入你的代码
Case &H2D00 ' 双击鼠标左键时（回到程序主界面）
' 在此输入你的代码
Form1.WindowState = 0
Form1.Visible = True
Form1.Show
Case &H3C00 ' 鼠标右键被按下时，弹出菜单
' 在此输入你的代码
Case &H4B00 ' 鼠标右键弹起时
' 在此输入你的代码
Case &H5A00 ' 双击鼠标右键时
' 在此输入你的代码
End Select
end sub
'当最小化窗体时不在任务栏显示图标，让图标显示在系统托盘上
Private Sub Form_Resize()
If Form1.WindowState = 1 Then
Form1.Visible = False
End If
End Sub
十九.让文本框有滚动条
只要将其MultiLine属性设为ture和设置其ScrollBars属性即可
二十.禁止其他人改变程序界面的大小
Form 属性中的BorderStyle改为1
如果需要最大化或最小化按钮，则把MaxButton或MinButton改为true即可
二十一.复制/剪切/粘贴代码
复制代码
Clipboard.SetText RichTextBox1.SelText 'richtextbox1为文本框，RichTextBox1.SelText代表richtextbox1中被选中的文字
剪切代码
Clipboard.SetText Text1.SelText '复制所选文字
Text1.SelText = "" '删除所选文字
粘贴代码
Text1.SelText = Clipboard.GetText 'text1.seltext为所选文字
二十二.当前目录的表示方法
App.Path & "/..." '...为所要连接的文件或其他什么
二十三.让窗体不在任务栏显示
只要把窗体的ShowInTaskBar设为False即可
二十四.取得随机数字
Format(Int(1000 * Rnd), "000") '取得1000以内的3位随机数
二十五.取得随机字母
Randomize '加入这句代码每次字母均不相同
Text1.Text =Chr(Int(Rnd * 26) + 97) '在text1的text属性上显示获取到的随机字母
二十六.注销
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
调用
ExitWindowsEx 0, 1
二十七.利用picture控件代替窗体标题
声明
Option Explicit
Public Const LP_HT_CAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
调用
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rc As Long
rc = ReleaseCapture
rc = SendMessage(hwnd, WM_NCLBUTTONDOWN, LP_HT_CAPTION, ByVal 0&)
End Sub
Private Sub Picture1_DblClick()
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseDown(Button, Shift, X, Y)
End Sub
二十八.关闭指定标题的程序
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_CLOSE = &H10
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "复制文件") '其中复制文件为要关闭的程序的标题，可以将"复制文件"改为text1.text，便可以实现随用户关闭任何程序
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "找不到此程序"
End If
Else
MsgBox "此程序没有打开！"
End If
End Sub
二十九.App函数
用法：传回值 = App.属性
1.得知程序的说明
字符串 = https://www.doczj.com/doc/035033066.html,ments
2.得知程序的公司名称
字符串 = https://www.doczj.com/doc/035033066.html,panyName
3.得知程序的原始名称
字符串 = App.EXEName
4.得知程序的文件描述
字符串 = App.FileDescription
5.得知程序的说名文件名称
字符串 = App.HelpFile
6.得知程序的版权
字符串 = App.LegalCopyright
7.得知程序的商标
字符串 = App.LegalTrademarks
8.得知程序的版本
字符串 = App.Major
字符串 = App.Minor
9.得知程序的路径
字符串 = App.Path
10.得知程序是否重覆执行。
If App.PrevInstance Then
MsgBox "程序不得重覆执行", vbokonly '值为True时，程序重覆执行
End
Else
MsgBox "程序第一次执行", vbokonly
End If
11.得知程序的产品名称
字符串 = App.ProductName
三十.显示/隐藏鼠标指针
Private Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long '将该代码放在模块的声明段中
RetFunct = ShowCursor(False) ' 隐藏指针
RetFunct = ShowCursor(True) ' 显示指针
三十一.错误处理
'可以在发生错误的控件的代码中加入如下代码
On Error Resume Next '作用：当一个运行时错误发生时，控件转到紧接着发生错误的语句之后继续运行,即跳过错误
三十二.设置鼠标位置
Private Declare Function SetCursorPos Lib"user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub Timer1_Timer()
Dim x, y As Integer
x = Format(Int(700 * Rnd))
y = Format(Int(800 * Rnd))
place = SetCursorPos(x, y)
End Sub
三十三.打开指定文件
Option Explicit
'声明API函数用于异步打开一个文档
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then '当按下F1键时打开目标文件
Dim a As Long
Dim b As String
b = App.Path & "\help.txt" '用变量b记录与主程序同目录下的help.chm帮助文件
a = ShellExecute(0, "open", b, "", "", SW_SHOWNORMAL)
End If
End Sub
三十四.取得程序的类名
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Sub Command1_Click()
Dim lpClassName As String * 256
GetClassName Me.hwnd, lpClassName, Len(lpClassName)
MsgBox lpClassName
End Sub
三十五.取得程序类名并关闭程序
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_CLOSE = &H10
Private Sub Command1_Click()
Dim lpClassName As String * 256
Dim a As Long
a = FindWindow("Winamp EQ", vbNullString)
GetClassName a, lpClassName, Len(lpClassName)
MsgBox lpClassName
Dim b As Long
b = SendMessage(a, WM_CLOSE, &O0, &O0)
End Sub
三十六、用Inputbox函数
Dim i
Private Sub Form_Load()
s: i = InputBox("请输入您的昵称", "请输入您的昵称")
If i = "" Then
GoTo s
End If
End Sub
或
Private Sub Form_Load()
Dim nichen As String
nichen = InputBox("请输入您的昵称", "请输入您的昵称")
Do Until trim(nichen) <> ""
nichen = InputBox("请输入您的昵称", "请输入您的昵称")
Loop
End Sub
三十七.发送单击命令
Const BM_CLICK = &HF5
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_Click()
Call SendMessage(Text1.Text, BM_CLICK, 0, 0)
End Sub
三十八.获取当前坐标
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Bottom As Long
Right As Long
Top As Long
End Type
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim pos As POINTAPI
Dim windowhwnd As Long
GetCursorPos pos
'获得鼠标所在位置控件的句柄
windowhwnd = WindowFromPoint(pos.X, pos.Y)
Me.Caption = "消息发送器 " & pos.X & "," & pos.Y
End Sub
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Sub Command1_Click()
Dim lpClassName As String * 256
GetClassName Me.hwnd, lpClassName, Len(lpClassName)
Text1 = lpClassName
End Sub
三十九.得到计算机名
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim name As String * 256
GetComputerName name,256
msgbox name
End Sub
四十.取得用户名
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim username As String * 256
GetUserName username，256
msgbox username
End Sub
四十一、得到自己的外网ip
“工程”，“部件”添加一个Microsoft Internet Transfer contral控件
code = Inet1.OpenURL("https://www.doczj.com/doc/035033066.html,/") '将指定网站的源代码赋值给code
b = InStr(code, "您的IP地址是：") '查找"您的IP地址是："所在位置
c = InStr(b, code, "") '查找""所在位置
MsgBox Mid(code, b + 8, c - b - 8) '得出ip地址（中文占1个字符）
四十二、在richtextbox控件加入图片
'一个picture控件、一个richtextbox控件
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("C:\1.jpg")
Clipboard.SetData Picture1.Image '将图形内容拷贝到剪贴板
RichTextBox1.SetFocus
SendKeys "^v"
End Sub
四十三、FTP上传下载
'一个inet控件
Private Sub Command1_Click()
Inet1.URL = "https://www.doczj.com/doc/035033066.html,"
Inet1.Password = "anquan"
https://www.doczj.com/doc/035033066.html,erName = "qusib"
Inet1.Execute , "get a.txt c:\aa.txt" ' 将ftp服务器上的a.txt下载到本地C盘，命名为aa.txt
If Inet1.StillExecuting Then '如果还在下载，则继续
DoEvents
End If
MsgBox "下载完毕"
End Sub
'上传Inet1.Execute , "send c:\a.txt aa.txt" '将本地C盘a.txt上传到ftp服务器上，命名为aa.txt
四十四、汉字处理
（将文本框中的汉字长度当作2，字符长度当作1）
LenB(StrConv(Text1, vbFromUnicode))
四十五、搜索字符串
InStr函数返回指定一字符串在另一字符串中最先出现的位置
InStrB函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。
InStrRev函数返回一个字符串在另一个字符串中出现的位置，从字符串的右边开始搜索
四十六、大小写转换
LCase函数将字符串转成小写
UCase函数将字符串转成大写
四十七、设置窗体透明
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Sub Form_Load()
SetWindowLong Me.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes Me.hWnd, 0, 100, LWA_ALPHA
End Sub
四十八、在桌面上写字
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal Hwnd As Long) As Long Private Const TRANSPARENT = 1
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Sub Timer1_Timer()
Dim Hwnd As Long
Hwnd = GetWindowDC(GetDesktopWindow()) '取得桌面句柄
SetTextColor Hwnd, vbBlue '设置字体颜色
SetBkMode Hwnd, TRANSPARENT '设置透明
TextOut Hwnd, 550, 150, "桌面写字测试～～", 14 '写字
DoEvents
End Sub
四十九、创建数据库
Private Sub Form_Load()
Dim ws As Workspace
Dim db As Database
Dim tbl As TableDef
Dim fld As Field
Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase(App.Path & "\test.mdb", dbLangGeneral) '数据库保存位置
Set tbl = db.CreateTableDef("我的通讯录") '表名
Set fld = tbl.CreateField("姓名", dbText, 20) '字段名，类型，长度
tbl.Fields.Append fld
db.TableDefs.Append tbl
db.Close
End Sub
五十、WebBrowser控件获得当前web页的整个html源代码
Private Sub Command1_Click()
WebBrowser1.Navigate "https://www.doczj.com/doc/035033066.html,"
End Sub
Private Sub Command2_Click()
Text1.Text = WebBrowser1.Document.body.innerhtml
End Sub
不过只能获得body的html
不过只能获得body的html
五十一、激活指定窗口
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
SetForegroundWindow 窗口句柄
五十二、取得网页上的验证码并显示到picture控件上
Private Sub Command1_Click()
Dim v As Object, doc As Object
Set doc = WebBrowser1.Document
Set v = doc.body.createControlRange()
v.Add doc.images.Item(0) '这个0要修改为对应的，需一个个测试
Clipboard.Clear
v.execCommand "Copy"
Set Picture1.Picture = Clipboard.GetData
End Sub
抛砖引玉---给破解runner爱好者
破解runner主要需要两个步骤
一，取得网页上杀手图片。
二，分析图片得出结果。
第一步，现今论坛上涉及此部分主要是使用PrintScreen即截屏。
但是此种方法，在使用时需要将程序置在前台，无法在后台工作，
所以不好。利用IE自代的Webbrowser控件和MSHTML类可以非常
简单的完成以上功能。下面给出VB代码：
窗体上有一个Webbrowser控件WebRunner,一个PictureBox控件
picRunner，一个按扭cmdConnect
Private Sub cmdConnect_Click()
WebRunner.Navigate "https://www.doczj.com/doc/035033066.html,/runner.php?id=xxx",4 (4代表或略cache) End Sub
Private Sub WebRunner_DocumentComplete(Byval pdisp As Object,URL As String) Dim Doc as IHTMLDocument2
Dim vTag
Dim ctlRange
Dim i As Integer
If Not (pdisp Is WebRunner.Object) then Exit Sub
Set Doc=WebRunner.Document
For i = 0 To Doc.All.Length - 1
If Ucase(Doc.All(i).TagName)="IMG" Then
Set vTag = Doc.All(i)
If Instr(1,vTag.src,"id=",VbCompareText)>0 Then '杀手图片
Set ctlRange=Doc.Body.CreateControlRange()
ctlRange.Add vTag
ctlRange.ExecCommand "Copy"
Set picRunner.Picture=ClipBoard.GetData
Exit For
End If
End If
Next i
End Sub
ok，杀手图片已经在picRunner上了，后面就是如何分析图片的问题了。
程序设计实训心得体会 心得体会这种学习方法对于一个人来说也许是优秀的，但没有被推广普及的必要。因为学习的方法因人而异，方法的奏效是它与这个人相适应的结果，以下《程序设计实训心得体会》由心得体会栏目为您精心提供。 在软件实验室经过2个星期Jsp程序设计实训，从对软件开发没有太多经验的我掌握了更多的软件开发的方 法和技能，收获颇多。 经过这次理论学习，了解到要做好软件开发，要求 掌握的知识并不是只有编写代码方面的，网络、数据库、操作系统等的知识对做好项目开发是很有帮助的。这让 我明确了以后学习的目标，在不断学习软件开发的同时，也应该继续其他相关知识的深入学习。 实训期间经历的许许多多，给我们带来了很多很多 有实无形的东西，知识、友情以及团队开发的热情，快 乐无一不包围着我们。在这我很想感谢几个人，王璐老 师和班上一同参与这次实训的2位同学。王璐老师对我 们备至关心，不论在学习前后，都给予我们关怀不少， 并且王璐老师不愧是从事多年软件开发的专业人士，其 深厚的专业技能知识和丰富的经验令我等钦佩无比。对 于我们未出茅庐的大学生而言，遇到的问题多而复杂，
询问有经验的人，他们或许一句话就能解决问题，而自 己就得找资料或上网摸索可能要一两天，有时甚至绞尽 完脑汁都不得其解。用个词形容，老师的解答如醍醐灌顶，而对我们，则甘之如饴。 实训这段期间真的好累，尽管实验室给我们提供了 一个相当不错的上课学习环境，但是整天木木地待在实 验室面对毫无生气的荧屏，为 code而烦恼，为bug而郁闷，被文档所包围，随程序侵蚀。然而，这就是学习的 生活，既选之也则安之。忙碌的生活让我每天似乎没有 太多的时间去想一些其他的事，耐心的去调试，专注的 去编写更好的算法，沉浸充实和快乐之中。 更重要的是，两个星期的实训使我们明白我们所欠 缺的不仅仅是技术知识，更重要的是有一种处理事情的 方法、面对问题的心态和动手能力。面对完全陌生的新 知识、新技术、新项目以及整个IT行业，我们不能畏惧，要以一种积极的心态去面对，分析并抓住关键所在。因 为我们所即将应对的每一个项目都是既需要实际操作， 又需要详细规划的。作为组长，协调组员、激励其他组 员和积极参与项目开发是我每天必做的工作。我认为每 个人都应该在团队中做好自己应尽的职责，再优秀的个 人也可能完成一个即庞大又复杂的项目工作，我们必需 紧密的联合在一起，以一个团队的角色来面对。
VB实验报告 实验一、VB控制结构 [实验目的] 1.掌握选择语句的使用 2.掌握循环语句的使用 [实验内容] 一、VB编程基础 练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行 时在窗体上单击，分别会发生什么情况，为什么？ ①Private Sub Form_Click() I = 10 Print I End Sub ②Private Sub Form_Click() Dim I% I = 10 Print I End Sub ③Option Explicit Private Sub Form_Click() I = 10 Print I End Sub ④Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I
End Sub 第一个程序运行的结果是： 点击一次窗体便会出现一个“10” 第二个程序的运行结果是： 也是点击一次窗体出现一个“10” 第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：
在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？ Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub 第一个程序运行结果是： 第二个程序运行的结果是：
二、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 Private Sub Text1_Change() Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp X1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框 X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框 X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框 If X1 > X2 Then Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换 End If If X1 > X3 Then Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换 End If If X2 > X3 Then Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换 End If Print: Print Print "输出结果：" ’在屏幕上输出“输出结果：” Print Print x1,x2,x3 ’在屏幕上输出x1,x2,x3 End Sub
实验报告一一实验内容 应用程序进行四等水准的计算 二程序界面设计 1 程序的设计界面 2 程序的运行界面
3 程序计算界面 三、编写程序 Option Explicit Dim startPoint!, endPoint! Private Sub cmdCheckCalc_Click() Dim i%, tDist '距离 tDist = 0 Dim totalDetH!, closeDetH! '累计高差和高差闭合差 For i = 1 To nMarks tDist = tDist + dis(i) Next i totalDetH = 0
For i = 1 To nMarks '计算累计高差 totalDetH = totalDetH + detH(i) Next i '计算闭合差 startPoint = Val(txtStartPoint.Text) endPoint = Val(txtEndPoint.Text) If optAnnex.Value Then '附合水准 closeDetH = (endPoint - startPoint) - totalDetH Else '闭合水准和支水准 closeDetH = -totalDetH End If '检查闭合差是否超限 If closeDetH > 0.04 * Sqr(tDist) Then '采用40*Sqr(L)来计算，单位是毫米 MsgBox "闭合差超限，测量成果不合格！", , "闭合差超限" txtShowResult.Text = txtShowResult.Text & "闭合差超限，测量成果不合格！" Exit Sub Else MsgBox "闭合差合格，继续计算转点高程！", , "闭合差合格" End If Dim temp! temp = startPoint txtShowResult.Text = txtShowResult.Text & "平差后的高程为：" & vbCrLf For i = 0 To nMarks temp = temp + detH(i) + closeDetH * dis(i) / tDist txtShowResult.Text = txtShowResult.Text & " （" & Str(i) & "）：" & Str(Format(temp, "0.000")) & vbCrLf
本科实验报告 课程名称：人机界面程序设计基础 实验项目：一、VB环境和可视化编程基础实验地点： 专业班级：学号： 学生姓名： 指导教师：李何 年月日
一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法；了解运算符和表达式的使用；熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 2、使用Print方法，掌握“，”和“；”的区别；以及Spc（n）函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序，在标签上实时显示系统时间，系统时间要求00:00:00AM/PM格式 提示：使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动，用输入框函数完成输入，用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数，并对运行结果进行分析。 三、主要仪器设备 计算机
四、实验步骤 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：使用Form_Click事件；文本框计数Text1=Val(Text1)+1。 打开VB软件，建立标准exe，在窗体设计器中添加Command1，更名为“按钮” 添加text1，删掉名称。 双击按钮，编写程序如图
传感器实训心得体会 篇一：传感器实训心得 实训报告 学了一学期的传感器实训心得体会)传感器，在最后期末的时候我们也参加了传感器这一学科的实训，收获还是颇多。 在做测试技术的实验前,我以为不会难做,就像以前做物理实验一样,做完实验,然后两下子就将实验报告做完.直到做完测试实验后,才知道其实并不容易做,但学到的知识与难度成正比,使我们受益匪浅.做实验时,最重要的是一定要亲力亲为,务必要将每个步骤,每个细节弄清楚,弄明白,这样,也会有事半功倍的效果。 实验就是使我们加深理解所学基础知识，掌握各类典型传感器、记录仪器的基本原理和适用范围;具有测试系统的选择及应用能力;具有实验数据处理和误差分析能力;得到基本实验技能的训练与分析能力的训练，使我们初步掌握测试技术的基本方法，具有初步独立进行机械工程测试的能力，对各门知识得到融会贯通的认识和掌握，加深对理论知识的理解。更重要的是能够提高我们的动手能力。 这次实习的却让我加深了对各种传感器的了解和它们各自的原理，而且还培养我们分析和解决实际问题的能力。 在做实验的时候，连接电路是必须有的程序，也是最重要的，而连接电路时最重要的就是细心。我们俩最开始做实验的时候，并没有多注意，还是比较细心，但当我们把电路连接好通电后发现我们并不能得到数据，不管怎么调节都不对，后来才知道是我们电路连接错了，然
后我们心里也难免有点失落，因为毕竟是辛辛苦苦连了这么久的电路居然是错了，最后我们就只有在认真检查一次，看错啊你处在哪里。有了这次的经验下次就更加细心了。以上就是我们组两人对这次实训最大的感触，下次实训虽然不是一样的学科，但实验中的经验和感受或许会有相似的，我们会将这次的经验用到下次，经验不断积累就是我们实训最大的收获。 篇二：传感器实训报告 上海第二工业大学 传感器与测试技术技能实习 专业：机械电子工程 班级：10机工A2 姓名： 学号： 指导老师：杨淑珍 日期：2013年6月24日~7月7日 项目五：转子台转速测量及振动监控系统。 （一）内容 设计一个转子台的振动检测系统，能实时测量转子台工作时的振动信号（振幅）并实时显示转速，当振幅超过规定值时，报警。具体要求： 1.能测量振动信号并显示波形，若振动超过限值，报警（软硬件报警）； 2.能测量并显示转子的转速； 3.限值均由用户可设定（最好以对话框方式设置，软件重新打开后，能记住上次的设置结果）；
篇一：vb实习体会 vb实习体会 我对于visualbasic的学习，是从初中开始的。当时舟山市的中考政策有考级加分制度，考出全国二级能加10分。在此诱惑下报名参加培训班，考了两次，第一次笔试未通过，第二次才全通过。虽然考了两次，但是那时候已经能够编出几个没有什么逻辑性可言的小小游戏了。所以这次认识实习，对我来说难度并不大。然而由于选课上面的原因，认识实习和电子实习冲突，导致我没有上过一节认识实习课。所以我的vb水平基本没有什么进步，这个五子棋，也是建立在初中的经验上的。 vb本身也不是很难。尤其在gui编程上能够体现出来。我接触过几种gui的编程，桌面应用里面有swing、qt库的编程，另外还有android和j2me的编程。这些程序在gui开发上面虽然不能说难，但代码量也是很大的（qt和android有可视化辅助设计，稍微好一点）。而微软确实对程序员比较照顾，出了很多的编程方式都比较简易，比如windowsform式的编程，这在vb和c#上体现的非常到位，大大降低了程序员的门槛。值得一提的是，我初中的学校，超过三分之一的人通过了全国计算机等级考试二级vb，可见vb的简单程度。 虽然vb很简单，但说实话我不太喜欢vb。一方面是长期接触类c语法，让我对于类c语法的语言比较偏爱（java、c++、php等）。另一方面是vb是一种windowsonly的语言，可移植性比较差。 而从业界发展的视角来看，随着苹果焕发第二春以及google的崛起，微软的势力开始萎缩。在终端方面，高端智能手机以及平板电脑正悄悄取代个人pc机的地位。而互联网云计算的概念更加使得这些终端设备能够替代传统pc。而微软在这方面几乎可以被称作是惨败的。所以，开发windows桌面应用渐渐显得不入时，况且是用可移植性非常差的vb6来开发。 如果要我选择桌面应用程序开发工具的话，我恐怕会选择c#。它既有 windowsform的编程方式，拥有https://www.doczj.com/doc/035033066.html,的几乎所有的便利特性，而且是类java语法，使得程序员能够非常快的适应。另外，.net的可移植性比较强。c#运行在.net平台上，理论上可以像java那样易于移植，而且在linux上也出现了mono这样的开源版本。而vb6则不行。当然，语言的问题总是微乎其微的。这一次实习最大的收获应该是大致了解了五子棋程序的原理。比如说怎么判断五子连珠等等。虽然没有更上一层楼编出ai，但是总的来说，这是我第一次用vb开发出一个像样点的游戏了。篇二：vb实训个人总结 vb实训个人总结 在这一周的实习中，使我学到了好多书本上没有的知识，更让我对vb有了更深一步的掌握，同时也发现了许多自己在学习方面的不足，取长补短，互相学习，共同进步，我们不但学习了知识，更好的证明了实践是检验真理的唯一标准。培养和提高我们的实际操作和应用能力，在学习vb后，具体的是使我们熟悉并使用各种类和各种vb控件的应用，在编写程序的过程中我们还专门编写了注释以便于修改程序！这些内容使我们更加熟练的应用这门语言，给自己以后能够走上工作岗位打下良好的基础！ 实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟学籍信息管理系统是一个比较系统、完善、功能相对较齐全的管理系统，即使是用户模块也可以完成各种操作，如对用户的查询、添加.删除以及修改等。因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行， 我做的是学籍信息管理系统，但是在编写程序的时候也遇到了很多难懂的问题，有的是实践能力差，有的是对书本上的内容太过于模糊，有的是什么也不知道，当中有说不出口的味道。
VB 课程实训总结 VB 课程实训总结 VB课程实训总结 跟随着我们学习的步伐，我们又迎来了新一次的实训。本次实训是我们对刚接触一学期的VB程序设计课程进行实训。跟以往的我的实训有很大的区别。 本次实训中我们主要以制作某一个管理系统为主，主要考察我们对VB程序设计软件的了解，及对数据库管理的应用。在短短的一周实训中，让我深刻的明白了，我们对学习的态度要一丝不苟吗，细心谨慎，因为在本次的实训中，我们所做的系统程序中，只要你从中稍有不慎，就会导致全部出错，所以我们对学习要谨慎，认真，细心。在这次我实训中，我深深的发现了，自己在对VB程序设计软件的掌握中，还有很多的不了解，还有很多不明白的地方，同时也提醒了自己，要在今后的学习中更加的努力认真，弥补自身的不足之处。 每天面对着一串串的代码，原先自己感觉头晕眩，不知道从何入手，头脑一点思路都没有，面对自己要做的任务，“制作某一个管理系统”感觉是多么的渺茫，感觉是那么的遥不可及。但是在老师的细心教导下，我们找的了思绪，从迷雾中走了出来，开始着手制作了我们所谓的“管理系统”。在老师的帮助中，我都对系统的制作有了初步了了解，同时也有了方向，我们朝着老师给我们引导的方向，一步一步的开始制作我们的“管理系统”。在我们制作的道路上，我们面临了很多的问题，但我们没有气馁，坚持，细心，慢慢的分析错误纯在的问题，请求老师的帮助，把问题一个一个的去解决掉，在此我们要感谢老师对我们的教导，及给予我们的帮助。
在这次的学习中，我也体会到了同学间的协助也是相当的重要，我们在课下一起讨论，研究。同时也有和更大的收获，对VB程序设计软件也有了更深的了解，也感受到了在学习的道路上我们彼此之间要相互帮助相互关心，以求取得更大的进步。 扩展阅读：VB 课程实训总结电子商务 VB实训总结 一、实训目的： 加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。 二、实训时间：20xx年01月02日20xx年01月06日三、实训方式：上机操作四、实训内容： 这次在3名指导老师的带领下，利用VB开发工具与数据库SQLserver开发一个实用的小型管理信息系统。一共有五个题目。我选择的是第四个-学籍管理系统。它的功能要求如下： 1、学籍信息输入：实现学生基本情况的输入。包括各个学生的情况，姓名、家庭电话、家庭住址、学号等各个消息。 2、学籍信息管理：本模块实现了信息的修改、删除、查询。还能查询到平均信息以及单科最高最低信息以及个人信息。把信息统计这个繁琐的工作简单化，为学生信息的管理方面提高工作效率。 3、学籍信息查询：通过输入学号便可以查询到这个学生的全部信息，包括姓名、性别、生日是、班号、入学日期、联系电话、奖惩日期、奖惩名称和成绩表都一目了然，很大的方便了教工们查询学生信息的过程。
交通与汽车工程学院实验报告 课程名称: 程序设计基础课程代码: 学院(直属系): 年级/专业/班: 学生姓名:学号: 实验总成绩: 任课教师: 开课学院: 实验中心名称: 西华大学实验报告（理工类） 开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日 1、实验目的 a) 理解vb中对象的概念。 b) 理解事件驱动的基本概念。 c) 熟悉vb编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、 保存文件。 d) 掌握常用控件的创建方法以及如何用控件建立用户界面。 e) 掌握在属性窗口中设置 对象属性的基本操作。掌握在代码窗口中编辑程序代码的基本操作。了解在代码中改变对 象属性的基本方法 2、实验设备、仪器及材料 操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0 3、实验内容 3.1实验方案设计与选择（设计性、创新性实验需写该项内容） 3.2实验原理及实验步骤 （实验工作原理或实验的主要操作过程） 原理： vb中对象的操作与应用。步骤： 1.建立界面和对象，更改各个对象的属性; 2.编写程序代码，运行程序; 3.调试程序，改 程序，得正确程序。 3.3实验记录（核心代码及调试过程） 1、界面设计 2、程序代码设计 dim chname as string chname = text1.text label1.visible = false text1.move 360, 1440, 4500 text1.forecolor = vbblue text1.text = 这是 & chname & 的第一个vb程序!end sub end sub private sub form_load() showcls form1.fillcolor = vbred print print tab(3); 欢迎使用 visual basic!! end sub 3、运行/调试程序 4、保存工程 用相关命令在用户文件夹中保存窗体核工程文件，要求文件名分别 是;firpro.frm,firpro.vbp 4、实验总结4.1实验结果分析及问题讨论 1若将form_load事件改成form_click事件过程，而其中的程序代码不变，运行程序后窗体上的显示有什么不同？ 答： form_click事件需单击窗体才能触发，而form_load事件由vb系统自动触发，如 果改变，则需单击窗体才能显示结果。
台州学院 《VB程序设计》实验报告 实验一：Visual Basic环境和程序设计初步 班级： 学号： 姓名： 实验日期：
一、实验目的和要求 1．了解VB系统对计算机软、硬件的要求； 2．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程； 3．初步熟悉几个常用控件的使用方法。 4．掌握启动与退出VB的方法。 二、实验主要仪器和设备 计算机一台，Windows XP操作系统，Visual Basic环境。 三、实验内容 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。 图1-1 程序运行初始界面 图1-2 单击“显示”按钮后的程序界面 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”
按钮变为不可用（图1-4）。 图1-3 第1题的程序运行初始界面 图1-4 单击“改变文字”按钮后的程序界面 图1-5 单击“隐藏”按钮后的程序界面 四、实验原始记录 实验1.1 程序的界面设计。（可以是多张主要的图。下面的图要替换成你们自己设计的图。如何取图？设计好界面，按“Print Screen SysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“Ctrl + C”键，然后选中下面的实验样例图，按“Ctrl + V”键，替换掉）
《VB程序设计》实验报告 一、实验目的及要求（见实验书，要求手填）： 二、实验完成情况： 实验完成情况表： 三、界面设计与程序代码 要求：给出界面设计示意图，在属性窗口修改过的对象属性需列出，列出方式如下： 1、 步骤： ①界面设计 ②程序代码 Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "装入窗体" Me.BackgroundImage = Image.FromFile("tongji.bmp") '当前目录为Bin的Debug End Sub Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Me.Text = "单击窗体" Me.BackgroundImage = Image.FromFile("tongji-2.bmp") End Sub Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.DoubleClick Me.Text = "双击窗体" Me.MaximizeBox = False Me.MinimizeBox = False Me.BackgroundImage = Nothing End Sub
SQL实训总结 为期五天的实习，很快就过去了，让我重新了解了丰富多彩的编程生活，感受到了学习的快乐，也感觉到了许许多多的专业问题，亲身体验了窗体与工程制成之后的喜悦之情。 在实训期间，我学到了许多东西，遇到了一些困难，也看到了自己本身存在着许多问题。 这次实训给我带来了危机感和压迫力，让人警醒，更加清楚自己的水平和重量，心里总有种被大石头压着的无力感，但是又凭着一种坚持，奋力的抗争着。所以也得出个结论，那就是——我得好好好好的努力啊。 这已经是我们的第四次实训了，在我进入大学的这两年多里，或多或少的学到了一些专业的东西。 我知道自己很爱玩，于是为了能够提高锻炼自己，我把本次为期一周的VB、SQL制作实训看作是一个通向社会，通向我的工作岗位的“理论与实践相结合的桥梁”。在本周的实训和学习，我一直知道此次实训的目的，也知道我自己的目的，同时也清楚目前自己的不足——缺乏相应的知识与经验，对所学的专业知识不能够很好地运用于实践操作，所以我是认真的对待这次实训的。 在这次实训中，我也有许多收获。首先，我体会到了作为一个VB设计师，不会将VB与SQL 结合的痛苦和尴尬；然后，我发现了很多以前都不曾注意到的细节；其次，在实训中，我对作为一名编程者应该学习的内容做了一个更深层次的理解；最后，我还从这次实训中看到了自己很他人的差距，危机意识增强，为了不使这个差距拉大，甚至赶上前面的同学，我会努力的。 本次实训，给我最深刻、最刻骨铭心的感觉就是累，不仅每天白天要一整天对着一台机器，而且到了晚上还要对着这台机器来一个法式的“秉烛夜谈”，可惜的是没有浪漫的事前发生，我也只是对牛谈情而已，不似李白的“举杯邀明月，对影成三人”啊，我就和一部会说话的机器唧唧歪歪。我时常想，以后的日子里，如果我成为了一名编程师也会是这样吗？好像很无聊的样子啊。好动的我一定坐不住吧。可是，我也知道，为了衣食父母，为了生存，为了未来，现在我还没有任何的资格想这个问题，时间不对，而现在最最应该想的是——我要怎样成为一个顶级的编程师。当我终于有能力的时候，才是考虑无不无聊的问题，我还是明白这一点点。 经过多番的努力和辛酸，我成功地完成了这次过程艰辛的实训，而且我从中体会到了一种叫做‘成功的喜悦’的感觉，那种小有成就的兴奋是只有置身其中的人才能体会的，就好比我啊，虽然知道笑到最后的才是老大，但是偶尔阿Q一下来调节生活乐趣也是的一项很必要的事情吧。 总之，这次实训为我提供了与众不同的学习方法和学习体会，从书本中走出来，面对现实，为我将来走上社会打下了扎实的基础，铺了一条五光十色的大马路。而且，我也体会到了前人总结出的许多的实践经验，而且一直都知道技术永远是工资的基础，社会是不会要一个一无是处的人的，所以，为了生活庸俗一点，努力一点，多累一点，好好学习技术，将来才有吃大餐的钱呀。 因此，我知道，作为在校电商专业的大专生，我能做的就是好好的吸取知识，努力的提高自己的技术水平和自身的综合素质，提高自己的表达能力、写作能力和合作能力。如此，出了社会，自己有了能力，到时候才会是“吃嘛嘛香”，并且很牛逼的是自己选公司，而不是悲惨的等待公司来选。我相信在不久的未来，会有属于我自己的一片天空，而且这片天空会很蓝很蓝，没有黑黑的乌云，只有灿烂的阳光！
vb实验报告心得体会 vb实验报告心得体会 vb实验报告心得体会数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下，我接触到Mirosoft 公司的.NET产品。那个时候我已经学过v和asp，因为indos程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了++里面的lass，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.net是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推#语言，由于对语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql server2000，以前学asp的时候用的是aess，那个时候只是照着人家做，理论是什么也不是很清楚。 通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么用也不是很清楚。但是这为这学期的课程设计打下了铺垫。
来到学校后，随着这学期的数据库课程大赛开始了，我有一个看法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it!我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的poerdesigner也是一样。 开发的时候我想过用什么架构，s模式?模式有很多，怎么选择?我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it!前期工作准备好后，那么我就得把我暑假学的.net加以实践。这个时候我更加深入的了解了利用https://www.doczj.com/doc/035033066.html,操纵数据库的知识。并且对数据库里面的存储过程有了比较深入的了解。经过大概2个多星期的奋斗，我完成了我的数据库课程设计--基于.net数据集的图书馆管理系统。并最后非常荣幸的获得了大赛的一等奖以及以及新技术应用奖。
vb学习的心得体会 ————刘师桐 这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心得体会。 vb全称为visual basic，是微软公司推出的可视化编程工具msdn之一，是目前世界上使用最广泛的程序开发工具。vb提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且vb提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以vb学起来简单，用起来方便。因此，我学了vb，并有了如下收获： 1.富业余生活。业余时间到处游手好闲的身影不见了，没事我肯定一动不动的坐在电脑面前摆弄vb。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在生活有了寄托，是vb给了我无穷的快乐，让我乐此不疲。 2、多了一门技术。vb是一门计算机编程语言，也算是一项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学 多用多实践，水平才能不断提高，这就是“学以致用”。多看多练是我独门绝技，一般人我不告诉他：多看------别人的代码，即使看不懂也没关系，可以把这些代码输入到机子里运行，然后根据运行结果去体会程序的思路和用途。 3、锻炼意志。编程可不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。越是这样越不要灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。 通过这个学期的学习，对了vb这种高级语言有了初步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，包括教材上的例题程序，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的vb课程让我收获了很多，我对下学期的计算机2级考试很有信心！！！篇二：vb学习心得体会 vb学习心得体会 这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心体会。 通过学习vb我基本学会了编辑一些小程序，掌握了一些基本的知识，得到了以下一些收获： 1.富业余生活。曾经业余时间到处游手好闲的身影不见 了，以前没事我肯定一动不动的坐在电脑面前摆弄电脑。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在有了vb，它给了我无穷的快乐，让我乐此不疲。 2、多了一门技术。vb是一门计算机编程语言，也算是一 项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我明白了万事开
实验类型__验证性_ 实验室_软件实验室二__ 一、实验题目 托盘程序设计 二、实验目的 通过本次实验，使学生了解托盘程序的应用及设计思想，利用Timer控件和NotifyIcon控件实现一个动态托盘程序。 三、实验内容 1、实现动态托盘。 2、关闭窗体时进行隐藏操作。 3、窗体和托盘的转换通过双击实现。 4、托盘所对应主程序的应用自定。 四、实验代码（注明代码所实现的功能） 设计的窗口小型应用程序，即托盘所对应的主程序 Imports System.Threading Public Class Form1 ‘建立一个窗体 Dim isfirst As Boolean = True Dim MyIco1 As System.Drawing.Icon ‘为两个图片定义变量 Dim MyIco2 As System.Drawing.Icon Private flag As Integer = 1 Dim thread As Thread = New Thread(…)‘图片地址 Private Sub MyForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MyIco1 = New System.Drawing.Icon(…") MyIco2 = New System.Drawing.Icon(…") End Sub ‘将定义好的两个变量连接到两张图片的地址路径,从而实现托盘的动态显示 Private Sub MyButton_Click() Handles BtnStart.Click CheckForIllegalCrossThreadCalls = False flag = 1 LabResult.Text = "" thread = New Thread(AddressOf ShowImage) thread.Start() End Sub ‘图片滚动的应用程序 Private Sub ShowImage() Dim Pic As String = Application.StartupPath.Split("bin\Debug")(0)
[心得体会]vb程序设计实验心得4篇数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下，我接触到Microsoft 公司的.NET产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql serverXX，以前学asp的时候用的是aess，那个时候只是照着人家做，理论是什么也不是很清楚。
通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么 用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看 法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML 建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。 开发的时候我想过用什么架构，c/s模式？模式有很多，怎么选择？我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it！
华北科技学院计算机学院综合性实验 实验报告 课程名称程序设计语言(VB) 实验学期2012至2013学年第二学期学生所在系部管理学院 年级2012级专业班级会计B121 学生姓名XXX学号20120404xxxx 任课教师李芙玲 实验成绩 计算机学院制
《程序设计语言（VB）》课程综合性实验报告 开课实验室：基础四2013年6月21日 实验题目Visual Basic综合应用程序开发 一、实验目的 1、掌握数组的应用： （1）数组的定义 （2）数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。 2、会使用过程编程和字符串操作 （1）sub过程的定义与调用 （2）function过程的定义调用 （3）字符串的大小写转换操作 3、掌握基本控件的使用 包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。 4、掌握菜单和工具栏的使用 二、设备与环境 硬件：多媒体计算机 软件：Windows2000以上的操作系统、Visual Basic集成开发环境 三、实验内容 1、先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。（5％） 2、密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（10％） 3、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35％，每个按钮功能为5％）。 题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下： （1）开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。 （2）单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。输入完毕后，“输入”按钮变灰，其他变为可用状态。 （3）按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。 （4）单击“清空”按钮将所有文本框清空。 4、“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25％） 题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。 5、单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%） 题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为
VB程序设计课内实验 报告书 系部名称： 学生姓名： 专业名称： 班级： 学号： 时间：
实验题目过程 一、实验目的 1．掌握for语句的使用。 2．掌握for语句的各种形式的使用。 3．掌握如何控制循环条件，防治死循环或不循环。 二、实验内容 实验一：利用for语句实现1-3图形的输出。 实验二：利用for语句实现2-3图形的输出。 三、设计方案（程序，界面） 实验一： 1.打开Visual Basic，新建一个EXE工程。 2.创建一个按钮命名图（a）,双击Command1编写程序如图1-1. 图1-1 3. 运行程序,点击Command1,得结果如图1-4； 4．分别保存工程文件和窗体文件 实验二： 1. 打开Visual Basic，新建一个EXE工程 2．创建一个按钮命名图（b）,双击Command1编写程序如图： 1－2
图2－1 3. 运行程序,点击Command1,得结果如图1-5； 4．分别保存工程文件和窗体文件。 四、结果及分析 实验一 图1－2
实验二： 图2－2 五、调试情况，设计技巧及体会 通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。同时也学习到处理一些突发问题的能力。 六、源程序清单 实验一： Private Sub Command2_Click() For i = 1 To 4 Print Spc(4 - i); String(2 * i - 1, Trim(i)) Next i End Sub 实验二： Private Sub Command1_Click() For i = 1 To 5 Print Tab(i); String(6 - i, "*") Next i End Sub