vb几种常用语句自己总结
VB消息语句：
MsgBox "回答正确：你是大笨蛋！！！！！！！！！" '普通消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbInformation '信息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbInformation ,"提示" '输出信息，并以“提示”为标题
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbExclamation '惊叹号，提示警告消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbQuestion '询问消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbCritical '警告危机消息
__________________________________________________________________________________________________________________________________________________________
VB随机选择语句：
Randomize '使随机化
Select Case Int(2 * Rnd) '设置情况种类数量
Case 0: MsgBox "回答正确：你是大笨蛋！！！！！！！！！" '设置执行指令
Case 1: MsgBox "回答正确：你是大笨蛋！！！！！！！！！"
End Select '结束选择
__________________________________________________________________________________________________________________________________________________________
程序退出 选择语句：
If vbNo = MsgBox(ctCap & "您确实要退出吗？", vbYesNo + vbInformation, ctCap & "程序退出") Then Exit Sub
ctCancel = True
End
或 用于form unload事件
If vbNo = MsgBox("确实要关闭程序？", vbYesNo + vbQuestion, "关闭程序" ) Then
Cancel = 1: Exit Sub
End If
ctExit = True
-----------------------------------------------------------------
Private Sub Form_KeyPress(KeyAscii As Integer) '按任意键关闭
Unload Me
End Sub
__________________________________________________________________________________________________________________________________________________________
程序控件定义语句：
App.Title = "外部代码执行器": Me.Caption = App.Title '命名工程名称并赋给窗体
Me.Caption = "彩票模拟系统" '将“彩票模拟系统”赋给窗体标题
Command1.Caption = "开始(&S)" '将“开始”赋给按钮，并定义快捷键为“Alt + S”
Label1(1).AutoSize = True: Label1(1).Font.Size = 48 '设置标签字符的大小
Me.Move 0, 0, S * 11, S * 6 '设置窗口大小
Me.Move (Screen.Width - Me.Width) * 0.5, (Scr
een.Height - Me.Height) * 0.5 '窗口居中
Command1.Font.Size = Label1(1).Font.Size: Command1.Font.Bold = True
Command1.Move 0, S * 3, S * 4, S * 1.5 '设置按钮大小
Command1.Move (Me.Width - Command1.Width) * 0.5 '按钮居中
Me.WindowState = vbMaximized '最大化
Call WinInTop(Me.hwnd) '使本程序显示在最前面 * 有问题
Kill "C:\123.txt" '删除C盘的123.txt文件
Me.AutoRedraw = True: Me.Print "单击窗体绘制折线" '在窗体上打印字，仅支持窗体
Text1.ForeColor = vbRed
Text1.BackColor = vbBlue '颜色定义
Screen.Width Screen.Height '屏幕的宽和高
Me.WindowState = 0 '还原窗口
Me.WindowState = 1 '最小化窗口
Me.WindowState = 2 '最大化窗口
---------------------
lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision '读取程序版本
On Error GoTo Cuo '错误处理
Exit Sub
Cuo:
___________________________________________________________________________________________________________________________________________________________
text1.text 换行语句（举例说明）：
Text1.Text = " 粉刷匠" & vbCrLf & _
" 5 3 5 3 | 5 3 1- |2 4 3 2 | 5---|" & vbCrLf & _
" 我是一个 粉刷 匠，粉刷本能 强， " & vbCrLf & _
" 5 3 5 3 | 5 3 1- |2 4 3 2 | 1---|" & vbCrLf & _
" 我要把那 新房 子，刷得很漂 亮。 " & vbCrLf & _
" 2 2 4 4 | 3 1 5- |2 4 3 2 | 5---|" & vbCrLf & _
" 刷了房顶 又刷 墙，刷子飞舞 忙， " & vbCrLf & _
" 5 3 5 3 | 5 3 1- |2 4 3 2 | 1- |" & vbCrLf & _
" 哎呀我的 小鼻 子，变呀变了 样。"
Chr(13)‘回车符 Chr(10)’换行符 Chr(9)'制表符
________________________________________________________________________________________________________________________________________________________
Private Sub Form_Resize()
'自动调整控件位置
Dim S As Single, W As Single, H As Single, L As Single, T As Single
S = Me.TextHeight("A")
On Error Resume Next
L = S: T = S: W = Me.ScaleWidth - L * 2
Text2.Move S, S, W, S * 1.5
T = T + S * 2: W = S * 6.5: H = S * 2.5
Command1.Move L, T, W, H
Command2.Move L + W + S * 0.3, T, W, H
Command3.Move L + (W + S * 0.3) *
2, T, W, H
Command4.Move L + (W + S * 0.3) * 3, T, W, H
Command5.Move L + (W + S * 0.3) * 4, T, W, H
Command6.Move L + (W + S * 0.3) * 5, T, W, H
Command7.Move L + (W + S * 0.3) * 6, T, W, H
Command8.Move L + (W + S * 0.3) * 7, T, W, H
Command9.Move L + (W + S * 0.3) * 8, T, W, H
T = T + S * 3: W = Me.ScaleWidth - L * 2
Combo1.Move L, T, W
T = T + Combo1.Height + S * 0.5
Text1.Move L, T, W, Me.ScaleHeight - T - S
End Sub
_________________________________________________________________________________________________________________________________________________________
打印（写入）语句： 举例
Open "C:\txl\friend\data.txt" For Append As #1 '假设文件是data.txt，打开文本文件，文件号#1，追加数据
Print #1, Text1.Text,Text2.Text '向文件中写入 text1.text 和 text2.text
Close #1 '关闭文件
__________________________________________________________________________________________________________________________________________________
时间输出：
MsgBox Now & Chr(10) & Date & Chr(13) & Time
--------------------------------
简易时钟：
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub
——————————————————————————————————————————————————————————————————————————
'进行全系统键盘按键检测，是否按下键： Ctrl
If GetAsyncKeyState(vbKeyControl) = 0 Then Exit Sub 'Ctrl 没有按下
______________________________________________________________________________________________________________________________________________________