Question

VB 组合框的添加与修改

3、窗体上有一组合框Combo1,一文本框Text1,三个命令按钮，要求：
1）程序一开始运行时，Combo1中有若干选项，命令按钮"确定"不可用
2）选中Combo中某个项目，单击"修改"，则将该项目复制到Text1中（可在Text1中修改），同时"确定"按钮可用
3）单击"确定"将修改过的Text1替换组合框中原有的内容，同时"确定"按钮不可用.
4）单击"添加"，将Text1中的内容添加到组合框中
【提示】修改组合框中选中的内容是需要通过代码来重新设置Combo1.List（Combo1.ListIndex）值的，而不能设置其Text属性值的。

Answer 1

Private Sub Command1_Click()
Text1.Text = Combo1.Text
Command1.Enabled = False '关闭修改按钮，这个你按要求选择关闭不关闭
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
If Text1.Text <> "" Then
Combo1.List(Combo1.ListIndex) = Text1.Text
Text1.Text = "" '修改完成将text1清空
End If
Combo1.ListIndex = Combo1.ListIndex
Command2.Enabled = False
Command1.Enabled = True '打开修改按钮，这个你按要求选择打开不打开
End Sub

Private Sub Command3_Click()
If Text1.Text = "" Then Exit Sub '判断是否为空，为空则不增加到下拉列表中
Combo1.AddItem Text1.Text
'添加成功，并清空text1
Text1.Text = ""
End Sub

Private Sub Form_Load()
'添加数据
Combo1.AddItem "test1"
Combo1.AddItem "test2"
Combo1.AddItem "test3"
Combo1.ListIndex = 0
Command2.Enabled = False '将确定按钮无效

End Sub