首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-01-26 
菜鸟问题 ...识别字符串..在线等我想实现的是用一个函数识别COMBO控件的TEXT属性中是否存在某一个字符串,

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

热点排行