Question

窗体上有一组合框Combo1,一文本框Text1,三个命令按钮，要求：

1）程序一开始运行时，Combo1中有若干选项，命令按钮"确定"不可用
2）选中Combo中某个项目，单击"修改"，则将该项目复制到Text1中（可在Text1中修改），同时"确定"按钮可用
3）单击"确定"将修改过的Text1替换组合框中原有的内容，同时"确定"按钮不可用.
4）单击"添加"，将Text1中的内容添加到组合框中

Answer 1

'修改确定
Private Sub Command1_Click()
Combo1.List(Combo1.ListIndex) = Text1.Text
Command1.Enabled = False
End Sub

'修改
Private Sub Command2_Click()
Command1.Enabled = True
Text1.Text = Combo1.Text
End Sub

'添加
Private Sub Command3_Click()
Combo1.AddItem (Text1.Text)
End Sub

'窗体调入时，设置确定按钮不可用。
Private Sub Form_Load()
Command1.Enabled = False
End Sub

请参考：http://218.65.5.218/VBNET/showcourse.asp?id=84

Answer 2

Private Sub Form_Load()
Command2.Enabled = False
End Sub
Private Sub Command1_Click()
Text1.Text = Combo1.Text
Command2.Enabled = True

End Sub
Private Sub Command2_Click()
Combo1.List(Combo1.ListIndex) = Text1.Text
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
Combo1.AddItem Text1.Text
End Sub

Command1 修改 Command2 确定 Command3 添加
刚试过、可运行的

Answer 3

，你健康 看