| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1668 人关注过本帖
标题:请教:command 按钮的click事件可否同时查找几个字符串的位置并显示?
只看楼主 加入收藏
cclhw
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-12-18
结帖率:0
收藏
已结贴  问题点数:20 回复次数:4 
请教:command 按钮的click事件可否同时查找几个字符串的位置并显示?
想要在文本框中同时查找几个字符串的位置并显示,通过1个command 按钮的click事件实现,笨办法是查找几个字符串就设置几个command 按钮的click事件,界面很不好看。可否通过1个command 按钮的click事件实现?琢磨了几天,在click事件中嵌入多次循环并不可行,虽然调试没有错误,但是显示不出想要的结果。请教大家~谢谢!!
搜索更多相关主题的帖子: command 字符串 文本框 
2016-01-19 23:47
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:20 
楼主能不能举个例子?如你描述,应该不需要一个按钮都可以完成的。

能编个毛线衣吗?
2016-01-20 08:20
cclhw
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-12-18
收藏
得分:0 
Private Sub Command3_Click()

Dim s As String

Open path & "\11.OUT" For Input As #1 '打开OUT文件'

Dim M As Integer
Dim Ru As Integer

M = 1

Do
Line Input #1, s
If InStr(1, s, "距离") <> 0 Then '查找位置'
Ru = M + 7
Exit Do
Else
M = M + 1
End If
Loop While Not EOF(1)

Text2.Text = Ru

Close #1

End Sub

Private Sub Command4_Click()

Dim s As String

Open path & "\11.OUT" For Input As #1 '打开OUT文件'

Dim N As Integer
Dim Rd As Integer

N = 1

Do
Line Input #1, s
If InStr(1, s, "最大1小时") <> 0 Then '查找位置'
Rd = N - 3
Exit Do
Else
N = N + 1
End If
Loop While Not EOF(1)

Text3.Text = Rd

Close #1

End Sub

 


[此贴子已经被作者于2016-1-20 16:53编辑过]

2016-01-20 16:46
cclhw
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-12-18
收藏
得分:0 
其实两个事件是一样的,就是为了找不同的字符串,但是我没办法通过一个command 的click事件解决。请指点。谢谢!
2016-01-20 16:48
cclhw
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-12-18
收藏
得分:0 
学习中。

[此贴子已经被作者于2016-1-20 16:54编辑过]

2016-01-20 16:52
快速回复:请教:command 按钮的click事件可否同时查找几个字符串的位置并显示?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045079 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved