Dim b As Integer
Dim c As Integer
Private Sub Form_Load()
Text1.Text = "20:00"
Timer1.Interval = 1000
a = 1200
End Sub
Private Sub Timer1_Timer()
a = a - 1
b = a \ 60
c = a - (b * 60)
Text1.Text = Trim(Str(b)) + ":" + Trim(Str(c))
End Sub
Dim a As Integer
Private Sub Form_Load()
Text1.Text = "20:00"
Timer1.Interval = 1000
a = 1200
End Sub
Private Sub Timer1_Timer()
Dim b As Integer
Dim c As Integer
a = a - 1
b = a \ 60
c = a mod 60
Text1.Text = Trim(Str(b)) + ":" + Trim(Str(c))
End Sub
如果要让计时器永远在最前面，可以参考这段代码
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为在所有窗口前端
End Sub
timer 倒计时代码怎样在VB6.0中用TIMER空间作出一个30秒钟的倒计时...
Time_count = 0 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()Time_count = Time_count + 1 If Time_count > 30 Then Timer1.Interval = 0 MsgBox ("30秒到了！")End If End Sub
VB6.0制作倒计时计时器
双击窗体，进入代码编辑器，在Form_Load事件中写入代码： Timer1.Enabled = False '先关闭计时器 关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定，如图：单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能，如图：
VB中如何timer 控件进行倒计时
1、程序加载时操作: Private Sub Form_Load() '窗体加载时自动进行 Timer1.Interval = 1000 ‘设置计时周期为1秒注意默认计时单位为毫秒,即1\/1000秒2、定义一个时间变量。可以某控件的Caption属性代替,如Label12.Caption 3、拖放timer控件到程序界面上4、设置倒计时:双击时钟控件,输入计时规则,如Label12.Caption =...
怎么用vb编写倒计时的程序
用VB6.0写的，运行时单击“设置”按钮，弹出Inputbox输入框供用户输入倒计时的时间（以分钟为单位）。单击“开始”按钮则在文本框内显示剩余的时间数（以时：分：秒的格式），同时滚动条上的滚动块同步随时间自左向右移动。dim shi as long dim fen as long dim miao as long Private Sub form_l...
VB6.0里怎么用Timer设置时间开启窗口和关闭
Dim a%Private Sub Command1_Click()a = InputBox("请入倒计时间（单位S）", , 5) '设置时间倒计时间为5秒 End Sub Private Sub Timer1_Timer()a = a - 1 If a = 0 Then Form1.Hide Form2.Show End If End Sub
用VB程序设置倒计时源代码
1、使用Timer控件，其中设置间隔时间，每次激活时计时时间减少相应数值（使用简单，但是程序复杂的话，计时“非常”不准）。2、使用系统时间来计时，Timer控件进行激活显示。如：设置开始时间如StartTime = Timer，Timer控件激活后，再次系统当前时间，将差值在显示中减去（比较准确的计时，推荐）。3、更精确...
VB6.0中带进度条的倒计时怎么做
在窗体上画一个Timer控件、一个按钮，一个ProgressBar控件（需要添加部件Microsoft Windows Common Controls 6.0），用下面的代码，单击按钮开始10秒倒计时。Private Sub Command1_Click()Timer1.Enabled = True ProgressBar1.Value = ProgressBar1.Max End Sub Private Sub Form_Load()Timer1.Enabled ...
怎样用VB编写一个倒计时程序
代码如下：Dim n As Integer Dim t As String Private Sub Command1_Click() '计时开始 If Text1.Text = "" Then Exit Sub End If t = Val(Text1.Text)Timer1.Enabled = True Label1.Caption = "剩余时间：" & t & "分钟"End Sub Private Sub Command2_Click() '退出程序 End...
VB6.0中怎样用按钮控制timer控件的启动、停止和重新开始?
创建3个按钮，用默认名字命名\\x0d\\x0a创建一个label控件，名称为label1\\x0d\\x0a创建一个timer控件，名称为timer1\\x0d\\x0a\\x0d\\x0a复制下列代码运行即可\\x0d\\x0a\\x0d\\x0aPrivate a As Long\\x0d\\x0a\\x0d\\x0aPrivate Sub Command1_Click()\\x0d\\x0aTimer1.Enabled = True\\...
vb6.0时间倒计时器
Timer1.Enabled = False End Sub Private Sub Command2_Click()date1 = Time date2 = Format(Text1.Text, "hh:mm:ss")dt = date1 + date2 Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Form_Load()Text1.Text = "00:03:00"Command1.Caption = "停止"Command2...
