Question

vb组合框的使用问题

在窗体中添加一个组合框和一个命令按钮，修改组合框名称为Cb1，并设置其Style属性使部分列表项可见，在组合框内添加部分列表项（信息任意，但内容互不相同），修改命令按钮名称为C1，标题为“确定”。程序运行时，在组合框中输入一信息，单击“确定”按钮，若输入的信息在组合框内，则将该项删除，若在组合框中无输入信息，则将该信息添加到组合框末尾。
提示：在组合框中输入信息由组合框的Text属性得到，通过对组合框中List数组元素进行查找，若找到，则删除，没找到则添加。
求代码！！

Answer 1

Private Sub C1_Click()

    If Cb1.ListCount = 0 Then

      MsgBox "当前的项目为0！没有要被查找的内容！", "36", "项目为空？？"

      Exit Sub

    End If

    

    For s = 0 To Cb1.ListCount - 1

        sintem = Cb1.List(s)

        If sintem = Cb1.Text Then

          Cb1.RemoveItem (s)

          MsgBox "已查找到符合要求的项，并已经移除", "48", "提示"

          Exit For

        Else

        

          If s = Cb1.ListCount - 1 Then

            MsgBox "没有查找到符合的项,将把这值添加到项目", "16", "没有搜索到"

            Cb1.AddItem (Cb1.Text)

          End If

          

        End If

    Next

End Sub

Private Sub Form_Load()

    C1.Caption = "搜索"

    For i = 0 To 10

      Cb1.AddItem i

    Next

End Sub

Answer 2

1.就是为了找到后不添加,找不到才添加(If
Not
find),等于先设置一开关状态,其实不需要了(可以不要这句),因为下面的选择已经很明确了
2..pos=combo1.listindex是给pos变量赋值,这个值是在combo1里选定项的索引号(listindex),以便给按钮事件提供修改的依据,这个依据就是索引号,也就是将要修改第几项,Combo1.list(pos)=combo1.text是指替换选定项的内容,就是在combo1里选定某一项,然后在combo1里输入新的内容,再点击一下按钮,根据之前提供的依据,选定的那一项的内容就被替换成修改后的内容了