关于timer控件的用法? 请问例如我要实现对读卡器只进行一次操作(比如点击一个读取标签按纽commandbutton1读取标签),然后每隔100ms自动读取一次,使用TIMER空件有几种做发?还可以使用什么方法? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 做一个sub,就是读卡操作。timer的事件里面call这个sub。默认intertal属性为0;在commandbutton1_click 事件里面call这个sub一次。再设置timer的intertal为100 Private Sub Command1_Click() Timer1.Tag = 1 Call DoScaleEnd SubPrivate Sub Form_Load() Timer1.Tag = 0 Timer1.Interval = 500End SubPrivate Sub Timer1_Timer() If Timer1.Tag = 0 Then Exit Sub Else Call DoScale End IfEnd Sub 还有sleep,但是更麻烦不说且并不适合这类处理。所以据我所知除了timer,没有好的方法了。 如果你是简单光为了实现这个东西用timer事件就可以了其他的,就像楼上所说的应运起来就比较烦琐一点 有关鼠标事件的!在picture上鼠标一划就能选上一定区域的,怎么做啊? 为什么我的vb6不能用index 怎样设置TDBGrid 6.0,使他能快速对列求和??????????? 如何获得光标位置?? 水晶报表动态设置数据源出错。。。。 请问怎么把剪帖板中的图画存到某一个文件上? 用VB生成Excel文件表后,在不结束VB运行时,如何结束Excel.exe的执行? 如何在设计时使自制控件font同时变化? 如何能被其他语言调用的VB dll 怎么用程序现实缩放JPG图像? TreeView中重命名出错 关于用setup factory 7.0打包vb程序的问题??
timer的事件里面call这个sub。默认intertal属性为0;
在commandbutton1_click 事件里面call这个sub一次。再设置timer的intertal为100
Timer1.Tag = 1
Call DoScale
End SubPrivate Sub Form_Load()
Timer1.Tag = 0
Timer1.Interval = 500
End SubPrivate Sub Timer1_Timer()
If Timer1.Tag = 0 Then
Exit Sub
Else
Call DoScale
End If
End Sub
用timer事件就可以了
其他的,就像楼上所说的
应运起来就比较烦琐一点