第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...》对你有帮助,请点赞、收藏,并留下你的观点哦!