VB第6章-2-课件.pptVIP

Private Sub Command1_Click() List1.Clear 清空列表框的内容 For n = 1 To 200 If n Mod 6 = 0 Then List1.AddItem n 若n能被6整除，则添加到列表框中 Next n End Sub 编写“关闭”命令按钮Command2的Click事件代码： Private Sub Command2_Click() Unload Me End Sub 运行程序，结果如图6-12（b）所示。 【例6-12】 从文本框中输入或从列表框中选择姓名，并显示出来，如图6-13所示。 （1）建立应用程序用户界面并设置对象属性。新建一个工程，进入窗体设计器，增加一个框架Frame1和一个标签Label1。激活Frame1后，在其中增加一个列表框List1，一个文本框text1和一个命令按钮Command1。修改对象属性参见表6-1。 （2）编写程序代码。 编写列表框List1的Click事件代码： Private Sub List1_Click() Text1.Text = List1.Text End Sub 编写文本框Text1的Change事件代码： Private Sub Text1_Change() Label1.Caption = 您所选择的代表是： End Sub 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Label1.Caption = 您所选择的代表是： + Text1.Text End Sub 【例6-13】 在列表框之间移动数据，如图6-14所示。 （1）建立应用程序用户界面并设置对象属性。新建一个工程，进入窗体设计器，增加两个列表框List1，List2和两个命令按钮Command1，Command2。然后设置对象属性见表6-2。 （2）编写程序代码。 编写窗体的Load事件代码： Private Sub Form_Load() List1.AddItem 青菜 List1.AddItem 萝卜 List1.AddItem 豆腐 List1.AddItem 苹果 List1.AddItem 香蕉 List1.AddItem 橘子 End Sub 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub 编写命令按钮Command2的Click事件代码： Private Sub Command2_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub 【例6-14】 修改例6-13，允许从一个列表框中将选中的多个选项移至另一个列表框中，如图6-15所示。 6.3.2 组合框控件 组合框（ComboBox）是组合了列表框和文本框的特性而形成的一种控件。组合框有3种不同风格，即下拉组合框、简单组合框和下拉列表框。组合框的风格由Style属性值决定，其值分别为0, 1, 2。3种组合框如图6-16所示。 1．下拉组合框 下拉组合框的Style属性值为0（默认）。 2．简单组合框 简单组合框的Style属性值为1。 3．下拉列表框 下拉列表框的Style属性值为2。 4．组合框使用示例 【例6-15】 利用组合框设计“自动抽奖机”。 （1）建立应用程序用户界面并设置对象属性。新建一个工程，进入窗体设计器，增加一个组合框Combo1，两个标签Label1, Label2和两个命令按钮Command1, Command2。将Combo1的Style属性改为0，其他属性的设置参见图6-17。 （2）编写事件代码。 编写组合框Combo1的KeyPress事件代码： Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 按Enter键 Combo1.AddItem Combo1.Text, 0 接收输入的号码 Combo1.SelStart = 0 设置组合框的起始位置 Combo1.SelLengt