vb2010第4章.ppt

4.3 列表框和组合框 List1.AddItem 职称 List1.AddItem 籍贯 List1.AddItem 出生年月 List1.AddItem 工作时间 List1.AddItem 工资 List1.AddItem 简历 End Sub 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click（） i = 0 Do While i List1.ListCount If List1.Selected（i） = True Then List2.AddItem List1.List（i） List1.RemoveItem i Else i = i + 1 End If Loop End Sub 编写命令按钮Command2的Click事件代码： Private Sub Command2_Click（） For i = 0 To List1.ListCount - 1 List2.AddItem List1.List（i） Next i 4.3 列表框和组合框 编写命令按钮Command3的Click事件代码： Private Sub Command3_Click（） i = 0 Do While i List2.ListCount If List2.Selected（i） = True Then List1.AddItem List2.List（i） List2.RemoveItem i Else i = i + 1 End If Loop End Sub 编写命令按钮Command4的Click事件代码： Private Sub Command4_Click（） For i = 0 To List2.ListCount - 1 List1.AddItem List2.List（i） Next i List2.Clear End Sub 4.3 列表框和组合框 【例4-3-3】设计一个窗体用来对已有数据库中的结构做字段添加和删除操作。数据库的已有字段通过窗体的Load事件添加到列表框中。 编写程序事件代码 Private Sub Command1_Click（） List1.AddItem Text1.Text Label1.Caption = List1.ListCount 个 Text1.Text = Text1.SetFocus End Sub 4.3 列表框和组合框 Private Sub Command2_Click（） i = 0 Do While i List1.ListCount If List1.Selected（i） = True Then List1.RemoveItem i Else i = i + 1 End If Loop Label1.Caption = List1.ListCount 个 Text1.SetFocus End Sub Private Sub Command3_Click（） Unload Me End Sub Private Sub Form_Activate（） Text1.Text = Text1.SetFocus Label1.Caption = List1.ListCount 个 End Sub Private Sub Form_Load（） List1.AddItem 编号 List1.AddItem 姓名 List1.AddItem 性别 List1.AddItem 学历 List1.AddItem 职称 List1.AddItem 籍贯 List1.AddItem 出生年月 List1.AddItem 工作时间 List1.AddItem 工资“ List1.AddItem 简历 End Sub 4.3 列表框和组合框 组合框（ComboBox）是一种同时具有文本框和列表框特性的控件。它可以像列表框一样，让用户通过鼠标选择所需要的项目，也可以像文本框那样，用键入方式输入项目。 1. 常用属性 因为组合框是文本框和列表框的组合，所以它的大多数属性和这两个控件相同。它有一个特殊属性Style，用以确定组合框的形式。 （1）Style属性 它是组合框的一个重要属性，用来决定组合框的形式，在运行时是只读的。其值可为0、1或2，意义如下： 0-Dropdown Combo（默认值）：称为下拉式组合框，包括一个下拉式列表和一个文本框。如图4-3-6中第一个组合框，用户可以单击右端的向下箭头来显示可滚动的选项列表，还可以在文本框中输入列表中所没有的新选项。 1-Simple Combo：称为