读书人

初学者有关问题 .识别字符串.

发布时间: 2012-01-26 19:40:46 作者: rapoo

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

读书人网 >VB

热点推荐