关于Combo box跟 FOR的问题，在线等。。。

Question

请问一个下拉列表框，如何判断一个变量的值等于列表框中的一项并选择，如果没有变量相同的项，则添加该项并选择。给出代码，谢谢。

Answer 1

Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As LongPrivate Const LB_FINDSTRINGEXACT = &H1A2    '在 ListBox 中精确查找
Private Const CB_FINDSTRINGEXACT = &H158    '在 ComboBox 中精确查找Dim n As Integern = SendMessagebyString(Combo1.hWnd, CB_FINDSTRINGEXACT, -1, Text1)
If n >= 0 Then
    Combo1.ListIndex = n
Else
    Combo1.AddItem Text1
    Combo1.ListIndex = Combo1.NewIndex
End If