VB常用命令范例.doc

目录 字体代码 文本框限制命令 IF…THEN…ELSE 倒计时器代码 SELECT CASE IF…THEN…ELSEIF For……next Do……loop While……weng 字符识别 文本框选定 大写字母密文 三个静态数组 动态数组 For Each…Next Type……End Type Form1.windowstate = 2 最大化 Form1.windowstate = 0 还原 Form1.windowstate = 1 最小化 Left = -2000 隐藏，用于无线钮 Form*.show 加载新窗体 Unload me 卸载现在的窗体 Load 加载窗体或控件但不显示 Stop 暂停程序的运行 End 结束程序运行 字体代码 BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = 楷体_gb2312 FontSize = 20 FontBold = True FontItalic = True FontUnderline = True FontStrikethru = True CurrentX = 1200 CurrentY = 350 Print 回乡偶书（贺知章） FontName = 宋体 Print FontSize = 13 Print Spc(6); 少小离家老大回，乡音无改鬓毛衰。 Print Print Spc(6); 儿童相见不相识，笑问客从何处来。 背景色为白色 前景色为蓝色，字体颜色 字体名 字号 粗体 斜体 下划线 删除线 从此横坐标开始打印 从此纵坐标开始打印 字体名 字号 文本框限制命令 Private Sub Command1_Click() If Textxm = Then Textxm.SetFocus Exit Sub End If End Sub 假如文本框为空那么 把这个文本设为焦点 退出这段命令 Private Sub Textdh_LostFocus() If Textdh.Text Then If Len(Textdh.Text) 8 Or Not IsNumeric(Textdh.Text) Then Textdh.Text = Textdh.SetFocus End If End If End Sub 当焦点离开文本框时执行 假如文本框不为空那么 假如输入内容不满8个字节且内容不是数字类型 把此文本框清空 设此文本框为焦点 Private Sub Textxb_LostFocus() If Textxb.Text Then If Textxb.Text 男 And Textxb.Text 女 Then Textxb.Text = Textxb.SetFocus End If End If End Sub 假如文本框内容不为男或女 IF…THEN…ELSE Dim h As Integer, a As Date Show h = Hour(Time) FontSize = 30 fontcolor = RGB(255, 0, 0) BackColor = RGB(255, 255, 0) If h 12 Then Print 早上好！ Else If h 18 Then Print 下午好！ Else Print 晚上好！ End If End If End Sub IF匱HEN匛LSEIF EnPrivate Sub cmdjs_Click() Dim a As Double, b As Double, c As Double, d As Double, e As Double, f As Double a = Val(Text1.Text) b = Val(Text2.Text) c = a - b f = c - 2000 If f = 0 Then d = 0 ElseIf f = 500 Then d = f * 5 / 100 ElseIf f = 2000 Then d = (f - 500) * 10 / 100 + 25 ElseIf f = 5000 Then d = (f - 2000) * 15 / 100 + 175 ElseIf f = 20000 Then d = (f - 5000) * 20 / 100 + 625 ElseIf f = 40000 Then d = (f - 20000) * 25 / 100 + 3625 ElseIf f = 60000 Then d = (f - 40000) * 30 / 100 + 8625 Else