怎样用VB设计在计时器启动后不停点击command

界面上有一个计时器timer1有一个命令按钮command1,当timer1启动时让计时器不停点击command1

有3种办法实现你的 要求!
1、command1 默认 enter 在属性里可以设置,然后计时器触发后就不停的自动按回车就行了

2、使用鼠标自动点击固定的坐标位置的按钮。也就是 模拟鼠标双击
3、模拟键盘的回车按键,API监控回车键的消息, 如果判断在按回车键,那就点command1的按钮就行 了

你想要那种?说下,我给你写代码哈追问

第一种,非常感谢

追答

    首先将commade1的defalut的属性设置为 true

    然后将timer1控件的interval的属性设置为1000

 工程代码详见附件!VB6+win7通过测试


 

温馨提示:内容为网友见解,仅供参考
无其他回答

怎样用VB设计在计时器启动后不停点击command
1、command1 默认 enter 在属性里可以设置,然后计时器触发后就不停的自动按回车就行了 2、使用鼠标自动点击固定的坐标位置的按钮。也就是 模拟鼠标双击 3、模拟键盘的回车按键,API监控回车键的消息, 如果判断在按回车键,那就点command1的按钮就行 了 你想要那种?说下,我给你写代码哈 ...

VB计时器如何实现点开始实现开始计时,点暂停能暂停计时,点继续能继续...
基本如下:添加1个Label、1个Timer、1个Command Dim aa Private Sub Command1_Click()Timer1.Enabled = Command1.Caption = "开始"Command1.Caption = IIf(Command1.Caption = "开始", "暂停", "开始")End Sub Private Sub Form_Load()Timer1.Interval = 1000 Command1.Caption = "暂停"End ...

vb中用设计一个进度条,一按command,进度条开始工作
1.首先添加microsoft window common Cortrols 6.0部件;2.在控件工具箱中点ProgressBar,在窗体中放置一个滚动条,命名为字pb1;3.在窗体中放置一个命令按钮;4.在窗体上在放置一个计时器控件,命名为T1;代码如下:Dim i As Integer Private Sub Command1_Click()T1.Interval = 1000 i = 10 End...

vb中,如何使计时器在离开窗口后停止跳动,当回到窗口后继续跳动
那就你在加载那个显示窗口的时候也就是这样说吧 比如你说的是你的两个窗口,同一程序的 那么private sub form_load() timer1.enabled=ture form2.timer1.enabled=false '这里就是令另一窗口的计时器停止计时了 end sub

vb怎样实现某个按钮自动点击
设置Interval=1000,即一秒钟;定义一个全局变量M,记录分钟值,在Timer事件过程定义一个静态变量,记录秒数:sub Timer1_Timer()static n as long n=n+1 if n>59 then m=m+1 n=0 end if ’298秒=4分58秒 if m=4 and n>=58 then command1_Click m=0 n=0 end if end sub ...

vb如何编辑再次点击button事件
添加一个按钮,一个计时器,一个标签。复制以下代码即可:Option ExplicitPrivate Sub Command1_Click()Static nn = n + 1If n Mod 2 = 0 ThenCommand1.Caption = "启动"Timer1.Enabled = FalseElseCommand1.Caption = "停止"Timer1.Interval = 1000Timer1.Enabled = TrueEnd IfEnd Sub ...

在vb中如何设计一个电子滚动屏幕,使 欢迎使用 几个汉字在窗体中自左...
代码如下:private sub timer1_timer()if label1.left>=form.width then label1.left=0-label1.width else label1.left=label1.left+100 end if end sub 只要通过按钮或者设置窗体控制计时器开始工作(即把timer1.enabled=true语句放入form_load或者command1_click过程中即可),就可以实现 ...

用vb的timer做一个计时器程序
窗体上放一个Label,三个Command按钮:Dim h As Integer, m As Integer, s As Integer, ms As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueTimer1_TimerEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()h = 0m = 0s = 0ms =...

VB中怎样制作一个计时器? 能够设置倒计时的时间,并进行倒计时
1、打开VB6.0,新建一个工程,在窗体中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,添加一个计时器控件,添加一个文本框。2、将文本框的Text属性清空,将字体Font属性调整为小四,便于观察,将背景色属性Backcolor调为浅黄色...

用VB设计一个倒计时器,能够设置倒计时的时间,并进行倒计时
As Integer Private Sub Command1_Click()Timer1.Interval = 1000 SetTime = CInt(Text1)Timer1.Enabled = True End Sub Private Sub Timer1_Timer()SetTime = SetTime - 1 If SetTime = 0 Then MsgBox "时间到"End If End Sub text1里面输入倒计时时间(秒),command1开始倒计时 ...

相似回答