VB常用命令范例

下载后可任意编辑目录字体代码文本框限制命令IF … THEN … ELSE 倒计时器代码SELECT CASEIF … THEN … ELSEIF F or …… next D o……loop W hile …… weng 字符识别文本框选定大写字母密文三个静态数组动态数组F or Each … Next T ype …… 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 = 20FontBold = TrueFontItalic = TrueFontUnderline = TrueFontStrikethru = TrueCurrentX = 1200CurrentY = 350Print "回乡偶书（贺知章）"FontName = "宋体"PrintFontSize = 13Print Spc(6); "少小离家老大回，乡音无改鬓毛衰。"Print'背景色为白色'前景色为蓝色，字体颜色'字体名'字号'粗体'斜体'下划线'删除线'从此横坐标开始打印'从此纵坐标开始打印'字体名'字号下载后可任意编辑Print Spc(6); "儿童相见不相识，笑问客从何处来。"文本框限制命令Private Sub Command1_Click()If Textxm = "" ThenTextxm.SetFocusExit SubEnd IfEnd Sub假如文本框为空那么把这个文本设为焦点退出这段命令Private Sub Textdh_LostFocus()If Textdh.Text <> "" ThenIf Len(Textdh.Text) <> 8 Or Not IsNumeric(Textdh.Text) ThenTextdh.Text = ""Textdh.SetFocusEnd IfEnd IfEnd Sub当焦点离开文本框时执行假如文本框不为空那么假如输入内容不满 8 个字节且内容不是数字类型把此文本框清空设此文本框为焦点Private Sub Textxb_LostFocus()If Textxb.Text <> "" ThenIf Textxb.Text <> "男" And Textxb.Text <> "女" ThenTextxb.Text = ""Textxb.SetFocusEnd IfEnd IfEnd Sub假如文本框内容不为男或女IF…THEN…ELSEDim h As Integer, a As DateShowh = Hour(Time)FontSize = 30fontcolor = RGB(255, 0, 0)BackColor = RGB(255, 255, 0)If h < 12 ThenPrint "早上好！"ElseIf h < 18 ThenPrint "下午好！"ElsePrint "晚上好！"End IfEnd IfEnd Sub下载后可任意编辑IF…THEN…ELSEIFPrivate Sub cmdjs_Click()Dim...