第9章VB控件的使用.pptVIP

学习VB，很大程度上是在学习各种控件的属性和设置，每一个控件都有自己的属性，如名称（Name）、是否可见（Visible）等。控件的属性可以在设计时通过属性窗口设置，也可以在编程时通过代码窗口改变。需要注意的是：不同的控件有许多相同的属性，也有许多不同的属性，例如，文本框就没有Caption属性。 控件与窗体一样，也具有属性、方法和事件，控件常用属性如下： 9.7控件应用举例 创建窗体及控件 例1：此例将介绍列表框和组合框添加、删除控件等事件，以及标签和命令按钮的使用。 Text3: text = “ ” Text4: text = “ ” List1: text = “ ” Combo1: text = “ ” Command1: Caption = “添加职工” Command2: Caption = “删除职工” Command3: Caption = “添加干部” Command4: Caption = “删除干部” 程序代码 Private Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text3.Text = Val(List1.ListCount) Text1.Text = End If End Sub Private Sub Command2_Click() If List.ListCout 0 Then List1.RemoveItem ListCount Text3.Text = Val(List1.ListCount) End If End Sub Private Sub Command3_Click() If Text2.Text Then Combo1.AddItem Text2.Text Text4.Text = Val(Combo1.ListCount) Text2.Text = End If End Sub Private Sub Command4_Click() If Combo1.ListCount 0 Then Combo1.RemoveItem ListCout Text4.Text = Val(Combo1.ListCount) End If End Sub 运行该程序，在“请输入职工姓名”文本框中输入职工姓名，并单击“添加职工”按钮，那么输入的姓名就添加到了列表框；单击“删除职工”按钮，则列表框中末位职工姓名被删除。“请输入干部姓名”也类似以上操作。“职工人数”、“干部人数”分别指出了当前列表框和组合框的人数。 例2、 设计一个显示时间和日期的小程序。在窗体上放置三个标签、一个文本框、一个复选框、两个框架（并分别在其中放置一个组合框和两个单选按钮）、两个命令按钮和一个计时器 。 初始窗体中各控件属性设置值 对象 属性 设置值 Form Name FrmTimeDisp Caption 计时秒表 Label1 BackColor H00FF0000 ? ForeColor H0000FFFF Label2 Caption 延续时间 Label3 Caption 秒 Text1 Name TxtTime Text 10 CheckBox1 Name ChkDate Caption 显示日期 Frame1 Name FraDateType Caption 日期格式(D) Frame2