菜鸟问题 ...识别字符串..在线等
我想实现的是用一个函数识别COMBO控件的TEXT属性中是否存在某一个字符串,请问该怎么做?不知道我的问题问清楚了没有?谢谢
[解决办法]
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 Sub
Private Sub Form_Load()
Me.Combo1.AddItem "kkkhello "
Me.Combo1.AddItem "lllhelly "
Me.Combo1.AddItem "lllhellokkk "
End Sub