vb怎么每隔一秒自动点击按钮

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vb怎么每隔一秒自动点击按钮相关的知识,希望对你有一定的参考价值。

我的VB程序里有一个Command1按钮 我想用时钟控件每隔一秒自动执行一次command1里的事件,也就是每隔一分钟自动点击command1.还有怎么设置一个按钮去停止这种自动点击事件。求大神给代码。
是每个一秒钟 我打错了

VB可使用Timer控件的Timer事件实现执行按钮的Click事件来实现。

Timer 控件,通过引发 Timer 事件,Timer 控件可以有规律地隔一段时间执行一次代码。

Timer 事件,在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 Interval 属性中,它以千分之一秒为单位指定时间的长度。

实例代码:

Option Explicit
    Dim i As Long
    
Private Sub Command1_Click()
    Me.Cls
    i = i + 1
    Me.Print i
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Command1_Click
End Sub
参考技术A

先在窗体上放两个commandbutton和一个timer控件 代码 如下:

Option Explicit

Private Sub Command1_Click()           '这里是命令按钮1的单击事件
MsgBox ""
End Sub

Private Sub Command2_Click()          '单击命令按钮2将会关闭timer的调用
Timer1.Enabled = False
End Sub

Private Sub Form_Load()               '设置一秒
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()            '每过一秒调用一次命令按钮1的单击事件
Call Command1_Click
End Sub

程序代码win7+vb6.0下运行正常 望采纳

追问

程序里已经有了Command1_Click() 是采集数据的按钮,我想用一个每秒触发一次的时钟控件控制每秒自动点击一次Command1_Click()来实时采集数据。要求时钟控件默认是关闭的,就是我刚开软件的时候不自动点击Command1_Click()。然后建一个Command2_Click(),来开启自动点击事件,建一个Command3_Click()来关闭自点击事件。能用立刻采纳给分。

追答

赞!

本回答被提问者采纳

Android Studio 多线程实现 每隔一秒使text的值加1

实现功能:创建一个TextView,居中显示,text设置为0。主线程中开启新的线程,每隔1秒使text的值加1

MainActivity.java

package com.example.test4;

import androidx.appcompat.app.AppCompatActivity;

import android.os.Bundle;
import android.widget.TextView;
import android.os.Handler;
import android.os.Message;


public class MainActivity extends AppCompatActivity 
    private TextView number;
    private int num = 0;
    private boolean flag = true;

    Thread thread = new Thread(new Runnable() 
        @Override
        public void run() 
            while (flag) 
                Message message = new Message();
                message.what = 1;
                handler.sendMessage(message);
                try 
                    thread.sleep(1000);
                 catch (InterruptedException e) 
                    e.printStackTrace();
                
            
        
    );

    private Handler handler = new Handler() 
        @Override
        public void handleMessage(Message msg) 
            switch (msg.what) 
                case 1:
                    number.setText(String.valueOf(++num));
                    break;
                default:
                    break;
            
        
    ;

    @Override
    protected void onCreate(Bundle savedInstanceState) 
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);
        number = findViewById(R.id.textView);
        thread.start();
    

activity_main.xml

<?xml version="1.0" encoding="utf-8"?>
<androidx.constraintlayout.widget.ConstraintLayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:app="http://schemas.android.com/apk/res-auto"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    tools:context=".MainActivity">

    <TextView
        android:id="@+id/textView"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:text="@string/textview"
        android:textSize="96sp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent" />

</androidx.constraintlayout.widget.ConstraintLayout>

AndroidManifest.xml 

<?xml version="1.0" encoding="utf-8"?>
<manifest xmlns:android="http://schemas.android.com/apk/res/android"
    package="com.example.test4">

    <application
        android:allowBackup="true"
        android:icon="@mipmap/ic_launcher"
        android:label="@string/app_name"
        android:roundIcon="@mipmap/ic_launcher_round"
        android:supportsRtl="true"
        android:theme="@style/Theme.AppCompat.Light.NoActionBar">
        <activity
            android:name=".MainActivity"
            android:exported="true">
            <intent-filter>
                <action android:name="android.intent.action.MAIN" />

                <category android:name="android.intent.category.LAUNCHER" />
            </intent-filter>
        </activity>
    </application>

</manifest>

 

以上是关于vb怎么每隔一秒自动点击按钮的主要内容,如果未能解决你的问题,请参考以下文章

java 如何隔一段时间自动重复触发一个按钮动作?

js限制按钮每隔一段时间才能再次点击

SimpleAdapter 每隔一秒启动一次就崩溃一次

vb后台模拟鼠标点击网页

请问C编程中怎么使一段代码每隔一段时间自动执行一遍

如何:每隔一秒调用一个方法来实现 getchar() 或者如果它为空则继续