- 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
您可能关注的文档
- TRW-GSQM-中韩文翻译.doc
- TS16949产品标识和可追溯性手册.doc
- TS16949体系部门执行指引.doc
- TS16949过程审核作业指引.doc
- ts196949标准教材.ppt
- TSPGCGB1WJ10-42车辆管理实施细则.doc
- TSPGCRLCX11员工培训控制程序.doc
- TSW-YF-019定制家具原材料进料检验标准.doc
- TSW培训师技能训练讲义.ppt
- Tunelab_PC_软件安装与功能设定.doc
- “绿色低碳”环保知识网络答题部分答案.pdf
- 2023年环卫清洁装备行业市场需求分析报告及未来五至十年行业预测报告.pdf
- ETC020903 项目计划+测试题及其答案.pdf
- 2023届贵州省安顺市六年级数学第一学期期末达标测试试题含解析.pdf
- 争做新时代好少年作文800字【5篇】.pdf
- [企业,托管,国外,其他论文文档]企业托管:国外范例与我国的理论探索和实践操作.pdf
- 丰田卡罗拉轿车燃油供给系统故障的检修.pdf
- 人教版八年级上册物理期末复习:第一章至第六章共6个单元测试卷全套(含答案解析).pdf
- 人教版九年级化学第五单元第一节中档难题提升题.pdf
- 人教版七年级数学上册第四章测试卷2套含答案.pdf
文档评论(0)