在Combo中我只知道一个项的TEXT，不知道INDEX，怎么将这项删除？

Question

苯办法
Private Sub Command1_Click()
For i = 1 To Form1.Combo1.ListCount
If Form1.Combo1.Text = "222" Then
Form1.Combo1.RemoveItem (i)
End If
Next i
End SubPrivate Sub Form_Load()
Form1.Combo1.AddItem "111"
Form1.Combo1.AddItem "222"
Form1.Combo1.AddItem "333"
End Sub

Answer 1

'楼上，你的代码有一点问题，应该如下：Option ExplicitDim Init As IntegerPrivate Sub Command1_Click()  With Combo1
    For Init = .ListCount To 1 Step -1
     If .List(Init) = "RRRRR" Then '你指定要去掉的项
       .RemoveItem (Init)
       Exit For '如果是不是唯一的话，这个去掉
     End If
    Next
  End WithEnd Sub
Private Sub Form_Load()
  
  With Combo1
      For Init = 1 To 26
         .AddItem String(5, 64 + Init)
      Next
      .ListIndex = 0
  End With
  
End Sub

Answer 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRINGEXACT = &H158   combo1.removeitem SendMessage(ccombo1.hwnd, CB_FINDSTRINGEXACT, -1, ByVal cmbItemNo.Text)

Answer 3

combo1.removeitem SendMessage(combo1.hwnd, CB_FINDSTRINGEXACT, -1, ByVal combo1.Text)