菜鸟问题 ...识别字符串..在线等

Question

我想实现的是用一个函数识别COMBO控件的TEXT属性中是否存在某一个字符串，请问该怎么做？不知道我的问题问清楚了没有？谢谢

Answer 1

Private Sub Command1_Click()
  Dim strXx As String
  strXx = "Hello"  '晄嬫暘戝彫幨
  If InStr(1, UCase(Me.Combo1.Text), UCase(strXx)) <> 0 Then
     MsgBox "YEYE,EXIST"
  Else
     MsgBox "OH!,NOT EXIST"
  End If
  
End SubPrivate Sub Form_Load()
  Me.Combo1.AddItem "kkkhello"
  Me.Combo1.AddItem "lllhelly"
  Me.Combo1.AddItem "lllhellokkk"
End Sub