初学者有关问题 .识别字符串.
菜鸟问题 ...识别字符串..在线等
我想实现的是用一个函数识别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
我想实现的是用一个函数识别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