- 1、本文档共12页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB常用命令范例
目录
字体代码 文本框限制命令 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
文档评论(0)