UC知道急求一VB程序设计题
来源：百度知道 编辑：UC知道 时间：2024/05/10 08:01:53
2. 组合框示例。设计如图所示的添加和删除程序，根据要求编写相应的事件代码。
（1）在组合框中输入内容后，单击“添加”按钮，如果组合框中没有该内容，则将输入内容添加到列表中，否则将不添加，另外要求组合框中内容能自动按字母排序。
（2）在列表中选择某一项后，单击“删除”按钮，则删除该项。在组合框中输入内容后，单击“删除”按钮，若列表中有与之相同的选项，则删除该项。
（3）单击“清除”按钮，将清除列表中的所有内容。
添加 删除 清除 分别是三个命令按钮
（1）在组合框中输入内容后，单击“添加”按钮，如果组合框中没有该内容，则将输入内容添加到列表中，否则将不添加，另外要求组合框中内容能自动按字母排序。
（2）在列表中选择某一项后，单击“删除”按钮，则删除该项。在组合框中输入内容后，单击“删除”按钮，若列表中有与之相同的选项，则删除该项。
（3）单击“清除”按钮，将清除列表中的所有内容。
添加 删除 清除 分别是三个命令按钮
'100度来回答
'例子需以下控件：
'Command1、Command2、Command3：不用进行任何属性设置
'Combo1：在属性窗口将 Combo1 的 Sorted 属性设置为 True
Private Sub Form_Load()
Command1.Caption = "添加": Command2.Caption = "删除": Command3.Caption = "清除"
End Sub
Private Sub Command1_Click()
'添加项目
If FindList(Combo1.Text) > -1 Then
MsgBox "该项目已存在：" & Combo1.Text, vbInformation, "添加项目"
Exit Sub
End If
Combo1.AddItem Combo1.Text '添加
End Sub
Private Sub Command2_Click()
'删除项目
Dim I As Long
I = FindList(Combo1.Text)
If I = -1 Then
MsgBox "该项目不存在：" & Combo1.Text, vbInformation, "删除项目"
Exit Sub
End If
Combo1.RemoveItem I
End Sub
Private Sub Command3_Click()
'清除所有条目
If vbNo = MsgBox("确实要清除所有条目？", vbInformation + vbYesNo, "添