vb,不用计时器,定时执行

在VB中，可以使用循环结构和条件判断来实现定时执行的功能，而不必依赖于计时器控件。具体实现方法如下：

首先，可以使用一个无限循环来不断检查当前时间是否符合执行的条件。可以使用Do While循环来实现无限循环，在循环内部通过获取当前系统时间来进行条件判断。

其次，需要在循环体内部添加一个条件判断，用来判断是否达到了预定的执行时间。可以使用Now函数来获取当前系统时间，并与预定的执行时间进行比较。如果满足执行条件，则执行相应的操作，比如调用指定的函数或方法。

另外，可以通过在循环内部添加延时操作，来控制循环的执行频率。可以使用VB中的Sleep函数来实现延时，以确保每次判断时间的间隔不会太短，从而减少系统资源的占用。

需要注意的是，在实现定时执行的过程中，要确保循环结构不会导致程序阻塞或响应缓慢。可以通过一些优化措施，比如在循环内部添加条件判断来提前跳出循环，或者在循环中适当添加一些耗时较短的延时操作。

总之，通过在VB中使用循环结构和条件判断，以及适当的延时操作，就可以实现定时执行的功能，而不必依赖于计时器控件。

相关问题

vb6 timer做定时任务

VB6中的Timer控件可以用来实现定时任务。下面是一个简单的示例代码：

1. 在VB6中创建一个新项目，添加一个Timer控件和一个Label控件。

2. 将Timer控件的Interval属性设置为1000，即每隔1秒触发一次。

3. 在Timer的Tick事件中编写代码，实现定时任务的逻辑。比如，每隔1秒更新Label的文本：

Private Sub Timer1_Tick()
Label1.Caption = "当前时间：" & Time
End Sub

4. 运行程序，可以看到Label的文本会每隔1秒更新一次，显示当前的时间。

可以根据实际需求，在定时任务的逻辑中添加更多的代码，比如执行某个操作，发送邮件等等。

VB毫秒计时器，实现暂停后还能从停止时间继续开始计时

要实现暂停后还能从停止时间继续开始计时，可以在程序中记录下暂停时的时间点，然后在恢复计时时重新计算时间间隔。

具体实现步骤如下：

1. 在窗体中添加一个 `Timer` 控件。
2. 设置 `Timer` 控件的 `Interval` 属性为所需的毫秒数，例如设置为 1000 表示每秒触发一次。
3. 在窗体中定义一个变量 `elapsedMilliseconds` 表示已经过去的毫秒数。
4. 在 `Timer` 的 `Tick` 事件中编写需要执行的代码，例如更新窗体显示的时间。
5. 在窗体中添加两个按钮，一个用于开始计时，另一个用于暂停计时。
6. 在开始计时的按钮点击事件中启动计时器，并将 `elapsedMilliseconds` 设置为 0。
7. 在暂停计时的按钮点击事件中记录下当前时间，停止计时器，并计算出已经过去的毫秒数 `elapsedMilliseconds`。
8. 在恢复计时的按钮点击事件中记录下当前时间，计算出暂停期间已经过去的毫秒数，再将 `elapsedMilliseconds` 设置为该值，并重新启动计时器。

下面是一个示例代码，实现每 500 毫秒更新一次窗体标题，点击开始按钮开始计时，点击暂停按钮暂停计时并记录下时间，点击恢复按钮从暂停时间继续计时：

Public Class Form1
    Dim elapsedMilliseconds As Integer = 0 '已经过去的毫秒数
    Dim pauseTime As DateTime '暂停时的时间点

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        '计算总共经过的毫秒数
        Dim totalMilliseconds As Integer = elapsedMilliseconds + (DateTime.Now - pauseTime).TotalMilliseconds
        '更新窗体标题显示的时间
        Me.Text = TimeSpan.FromMilliseconds(totalMilliseconds).ToString("hh\:mm\:ss\.fff")
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        elapsedMilliseconds = 0
        Timer1.Start()
    End Sub

    Private Sub btnPause_Click(sender As Object, e As EventArgs) Handles btnPause.Click
        pauseTime = DateTime.Now
        Timer1.Stop()
        elapsedMilliseconds += (pauseTime - Timer1.Interval).TotalMilliseconds '计算已经过去的毫秒数
    End Sub

    Private Sub btnResume_Click(sender As Object, e As EventArgs) Handles btnResume.Click
        Dim resumeTime As DateTime = DateTime.Now
        elapsedMilliseconds += (resumeTime - pauseTime).TotalMilliseconds '计算已经过去的毫秒数
        Timer1.Start()
    End Sub
End Class

在窗体加载时，可以先将计时器停止，避免在程序启动时就开始计时：

Public Class Form1
    Dim elapsedMilliseconds As Integer = 0 '已经过去的毫秒数
    Dim pauseTime As DateTime '暂停时的时间点

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        '计算总共经过的毫秒数
        Dim totalMilliseconds As Integer = elapsedMilliseconds + (DateTime.Now - pauseTime).TotalMilliseconds
        '更新窗体标题显示的时间
        Me.Text = TimeSpan.FromMilliseconds(totalMilliseconds).ToString("hh\:mm\:ss\.fff")
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        elapsedMilliseconds = 0
        Timer1.Start()
    End Sub

    Private Sub btnPause_Click(sender As Object, e As EventArgs) Handles btnPause.Click
        pauseTime = DateTime.Now
        Timer1.Stop()
        elapsedMilliseconds += (pauseTime - Timer1.Interval).TotalMilliseconds '计算已经过去的毫秒数
    End Sub

    Private Sub btnResume_Click(sender As Object, e As EventArgs) Handles btnResume.Click
        Dim resumeTime As DateTime = DateTime.Now
        elapsedMilliseconds += (resumeTime - pauseTime).TotalMilliseconds '计算已经过去的毫秒数
        Timer1.Start()
    End Sub
End Class