- 浙江广播电视大学德清学院.ppt

计算机文化基础
德清学院方圆雨田工作室
2002年
第五章常用控件
VB程序设计 2001计大
学****目标
1、掌握:标签、文本框、命令按钮
图片框、单选框和复选框的基本用法
2、理解:组合框、滚动条、
记时器的用法
3、了解:Image控件和综合示例
基本内容
计时器
综合示例
标签 Label
文本框 Text box
mand Box
复选框 Option Box
单选框 Check Box
列表框 List Box
bo Box
滚动条 Scroll
框架 Frame
mon Dialog
图片框 Picture Box
图像框 Image Box
5_1、标签的常用属性
1、Alignment属性:对齐方式,值为:0、1、2
2、Caption属性:标签显示的内容
3、Font 属性:Forcolor\ Backcolor\ Backstyle(背景模式:0:透明,1:覆盖)
Borderstyle 加框形式:0:无框 1、有框
Enabled\ Visible\Top\left\width\Height
5-1-2 常用事件
Change事件:
Click事件:
Dbclick事件:
实例:动态显示文字
Private mand1_Click()
Dim newleft,I as integer
newLeft=7500 ’初始化标签left记录变量
Do
Newleft=newleft-50’修改left的值,得到新位置
newleft,400
For I=1 to 10000 ’循环
Doevents
Next I
Loop Until newleft<=400 ’停止
End sub
实例:动态按钮
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
= False
= False
End Sub
Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
= True
= True
End Sub
5_2、文本框(TextBox)的常用属性
1、Text属性:例:=“AAA”
例:TXT=, =“”
2、MultiLine属性:是否允许多行
3、MaxLength属性:最大字符数
4、ScrollBars属性:滚动条属性
0-None 1-Horizontal 2-vertical 3-Both
P103 表5-2 TextBox的常用属性
5_2、文本框(TextBox)的常用属性
5、PasswordChar属性:密码代替显示字符
6、Locked属性:是否允许修改 true或false
7、MaxLength属性:最大字符数
8、Selstar, Sellength,SelText属性:
Selstar:返回或设置所选择文本的起点
Sellength:返回或设置所选文本的字符数
Seltext:返回或设置被选正文的内容
设置了Selstar属性和Sellength属性后,被选正文也就相应确定了,此时,系统会自动将所选的文本送入seltext属性保存,为了使所选中的文本能反相显示,可用HideSelection属性值为false来确定。
实例:密码框
Private mand1_Click()
Static i As Integer
If = "12345678" Then
MsgBox "OK"
= True
Else
i = i + 1
If i = 3 Then
MsgBox "你不能再使用!", vbOKOnly + vbCritical, "密码"
End
End If
= ""

End If
End sub