欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

应该不算难的有关问题,大家来帮忙看看

更新时间: 2014-05-18 05:44:00 责任编辑: Author_N8

 

应该不算难的问题,大家来帮忙看看啊
已知道combo控件内有以下4种数据
combo   item[ "我我我 "]
combo   item[ "的的的 "]
combo   item[ "他他他 "]
combo   item[ "你你你 "]

我现在想实时监视combo控件内是否有   "的 "   字样出现
如果有的话就执行   之后...

还有有没有办法自动或者定时的去点击一个command按钮控件

--参考方法--
Private Sub Command1_Click()

1、实时监视combo控件内是否有 "的 " 字样出现,如果有的话就执行 之后...

'用Instr函数判断有没有制定的字符,返回值是字符的位置

For i = 0 To 3

IF InStr(Combo1.List(i), "的 ") then

'你要执行的代码
exit sub

END IF

Next i
End Sub

2、定时点击一个按钮

在timer控件中或直接 Call Command1_Click 就可以

--参考方法--
Private Sub Combo1_Change()
If InStr(Combo1.Text, "的 ") Then MsgBox "Have "
End Sub
在Change 事件里面检测输入字符是否有 "的 "


在LOAD里面检测初始化是否有 "的 "
Private Sub Form_Load()
Dim intIi As Integer
For intIi = 0 To Combo1.ListCount - 1
If InStr(Combo1.List(intIi), "的 ") Then MsgBox "Have "

Next
End Sub
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-05-18 05:44:00
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/869454/
本文WWW.DOC100.NET DOC100.NET版权所有。