在窗体有一个组合框Combo1,其中已经预设了内容;还有一个文本框Text1和三个命令按,名称分别为Command1、Command2、Command3,标题分别为“修改”、“确定”、“添加”。程序运行时,“确定”按不可用,如图所示。 运行界面 程序的功能是:在运行时,如果选中组合框中的一个列表项,单击“修改”按,则把该项复制到Text1中(可在Text1中修改),并使“确定”按可用;若单击“确定”按,则把修改后的Text1中的内容替换组合框中该列表项的原有内容,同时使“确定”按不可用;若单击“添加”按,则把在Text1中的内容添加组合框中。 Private Sub Command1_Click() Text1 = Combo1.Text Command2. (1) End Sub Private Sub Command2_Click() Combo1.List( Combo1.ListIndex)= Text1 Text1 = "" Command2.Enabled = (2) End Sub Private Sub Command3_Click() Combo1.AddItem Text1 End Sub