第4章-上饶师范学院数学与计算机科学学院
第四章 常用内部控件
教学目标：通过讲授和学生的动手练习，使学生了解VB常用控件的使用方法。
教学类型：在多媒体教室直观讲授，引导学生进行简单程序设计操作。加深对本次课内容的理解。
教学内容：标签与文本框，命令按钮，单选项钮、复选框，图片框与图像框。
讲授40分钟4.1标签与文本框
一、标签
标签显示的是窗体上不改变内容的文本，或是标注不具备Caption属性的控件。
1、标签的属性
一般情况下,在程序设计时在属性窗口确定标签的属性值。
Alignment—确定标签中标题的放置方式。0(靠左)、1(靠右)、2(居中)
Autosize—是否自动调整标签边框的大小以适应标题。(True/False)。
BorderStyle—用于设置标签边框。0(无)，1(有)。
Caption—的标题文字。
Backstyle—设置标签是否透明。(0/1)，可在程序中设置。
WordWrap—设置标签是否扩大，适应标题文字。
例子：在窗体上用属性窗口和命令代码设置不同显示效果的标签。
二、文本框
文本框用于显示或输入文本。
1、类型名：?Text Box
2. 用途：
通常用于输入输出数字和文字信息。也可以作为文本处理的窗口。与Label Box(标签框)的主要区别在于：在程序执行中标签只可输出，而Text Box(文本框)在执行时可以让用户输入和修改其中的内容。因此，在不希望用户修改其中的内容时可使用标签框。
3. 常用属性
Text—放置输入输出的文字和数字标题，用于放置要显示的标题或显示数字及文字信息。
MultLine—?设定单行(False)或多行(True)，默认为单行(False)。
ScrollBars—滚动条，当MultLine属性设为多行时，用于为文本框设置浏览滚动条。0为无滚动条(默认)；1为水平滚动条；2竖直滚动条；3竖直水平两个滚动条。
PasswordChar—口令字符，这是一个很重要且很有趣味的属性，利用它可以把文本框作为一个"口令"的输入窗口，执行过程中用户在文本框中输入文字时，显示的却是特定的字符，即PasswordChar的属性值。而实际输入的字符被隐藏。
4、常用事件
Click—?用鼠标点击该对象时引发事件。
Change—用鼠标双击该对象时引发事件。
4.2命令按钮、单选按钮与复选框
一、命令按钮
1、对象类型名：Command Button
2、应用场合
通常用于引导事件子程序，执行某种功能的操作。
3、常用属性
Caption—标题，显示命令按钮的功能。
Style—用于设置按钮上是否可以显示图形。0为无(默认)；1为图形
Picture—在按钮上显示图片。应设Style=1。
Cancel—只有一个按钮时，将该属性值设为True，则按[Esc]键相当于点击按钮。
Default—只有一个按钮时，将该属性值设为True，则按[Enter]键相当于点击按钮。
Value—用于表示复选框和单选按钮的状态。即“打开(True)”和“关闭(False)”。一般应选择“True”。
4、 常用事件
Click—点击鼠标左键，引发对应功能的事件子程序。
DblClick—双击鼠标左键，引发对应功能的事件子程序。
5、 应用举例
例：设计一个简易计算器程序，输入任意两个数，执行后能进行加减乘除运算。
工程分析：在一个窗体内设置三个文本框，接受用户输入的运算数及显示运算结果；两个Label对象，一个显示运算符，另一个显示“=”号，六个命令按钮.。分别用于输入+、-、*、/运算符和清除。
程序界面：
程序代码:
Private Sub Command1_Click()
Label1.Caption = "+"
End Sub
Private Sub Command2_Click()
Label1.Caption = "-"
End Sub
Private Sub Command3_Click()
Label1.Caption = "*"
End Sub
Private Sub Command4_Click()
Label1.Caption = "/"
End Sub
Private Sub Command5_Click()
If Label1.Caption = "+" Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
ElseIf Label1.Caption = "-" Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
ElseIf Label1.Caption = "*" Then
Text3.Text = Val(Text1.Text) * Val(Text2
如果觉得《上饶师范学院数学与计算机科学学院 第4章-上饶师范学院数学与计算机科学学院.doc...》对你有帮助，请点赞、收藏，并留下你的观点哦！
