vb设计一个倒计时器
@严秆5108：VB中怎样制作一个计时器? 能够设置倒计时的时间,并进行倒计时 -
夏轮18312945330…… 1、打开VB6.0,新建一个工程,在窗体中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,添加一个计时器控件,添加一个文本框. 2、将文本框的Text属性清...
@严秆5108：如何在VB程序中设计一个倒计时器 -
夏轮18312945330…… '---定义一个全局变量,用于倒计时的开始数public maxcount as long private sub form_load()timer1.interval = 1000end sub '开始倒计时,10秒一个循环private sub command1_click()maxcount = 10 '---设计倒计时的起始数label1.caption = ...
@严秆5108：用vb制作倒数计时器 -
夏轮18312945330…… 1、在窗体上添加一个label1控件 2、在窗体上添加一个command1控件 3、在窗体上添加一个timer1控件 4、复制如下代码,运行 Dim a As Long Private Sub Command1_Click() a = InputBox(＂请输入秒数＂) Label1.Caption = a Timer1....
@严秆5108：如何用VB设计一个倒计时的程序 -
夏轮18312945330…… 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Form_Load() ...
@严秆5108：怎么用VB制作一个倒计时? -
夏轮18312945330…… 窗体中放置三个Command、三个Label、一个Timer控件,在Form_Load过程中已经说明了控件用途,其中Label1是显示分钟数,Label2是显示秒数,代码如下:Dim JS As Integer '这里声明了一个全局变量,保存计时数 Private Sub Command1...
@严秆5108：用VB设计一个倒计时器,能够设置倒计时的时间,并进行倒计时 -
夏轮18312945330…… Option Explicit Dim SetTime 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开始倒计时
@严秆5108：vb中设计一个倒计时器
夏轮18312945330…… 这个太简单了吧主要用到timer控件就行了 自己调试了一下,貌似有点问题,这段改了 Private Sub Timer1_Timer()a = a + 1If a <= mytime ThenLabel1.Caption = ＂剩余时间为:＂ & mytime - a & ＂秒＂ElseMsgBox ＂时间到!＂Timer1.Enabled = FalseEnd If
@严秆5108：Vb写一个倒计时器. -
夏轮18312945330…… 创建2个按钮,1个timer,1个文本框,在文本框中输入时间如:23:00:00 然后点击按钮2开始倒计时!!Option Explicit Dim date1 As Date Private Sub Command1_Click() date1 = CDate(Text1) End Sub Private Sub Command2_Click() Timer1....
@严秆5108：VB中如何制作倒计时器? -
夏轮18312945330…… 给你个思路,用Timer控件,它本身就是个计时器,至于倒计时,设定个变量每次减1就行了
@严秆5108：VB制作倒记时器,如何实现?
夏轮18312945330…… 在窗体上加一个Timer1, 两个标签lblDay和lblTime 你可以在Timer1的Timer事件里加上: Dim iDayLeft As Integer Dim timeLeft As Date Const dateToReach As Date = #8/8/2008 8:00:00 PM# '目标日期 iDayLeft = CInt(dateToReach - Now) '取整数...
夏轮18312945330…… 1、打开VB6.0,新建一个工程,在窗体中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,添加一个计时器控件,添加一个文本框. 2、将文本框的Text属性清...
@严秆5108：如何在VB程序中设计一个倒计时器 -
夏轮18312945330…… '---定义一个全局变量,用于倒计时的开始数public maxcount as long private sub form_load()timer1.interval = 1000end sub '开始倒计时,10秒一个循环private sub command1_click()maxcount = 10 '---设计倒计时的起始数label1.caption = ...
@严秆5108：用vb制作倒数计时器 -
夏轮18312945330…… 1、在窗体上添加一个label1控件 2、在窗体上添加一个command1控件 3、在窗体上添加一个timer1控件 4、复制如下代码,运行 Dim a As Long Private Sub Command1_Click() a = InputBox(＂请输入秒数＂) Label1.Caption = a Timer1....
@严秆5108：如何用VB设计一个倒计时的程序 -
夏轮18312945330…… 在窗体上放一个textbox,一个Label,一个Timer,一个Commandbutton 双击窗体,粘贴以下代码: Private Sub Command1_Click() Label1.Caption = Text1.Text Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Form_Load() ...
@严秆5108：怎么用VB制作一个倒计时? -
夏轮18312945330…… 窗体中放置三个Command、三个Label、一个Timer控件,在Form_Load过程中已经说明了控件用途,其中Label1是显示分钟数,Label2是显示秒数,代码如下:Dim JS As Integer '这里声明了一个全局变量,保存计时数 Private Sub Command1...
@严秆5108：用VB设计一个倒计时器,能够设置倒计时的时间,并进行倒计时 -
夏轮18312945330…… Option Explicit Dim SetTime 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开始倒计时
@严秆5108：vb中设计一个倒计时器
夏轮18312945330…… 这个太简单了吧主要用到timer控件就行了 自己调试了一下,貌似有点问题,这段改了 Private Sub Timer1_Timer()a = a + 1If a <= mytime ThenLabel1.Caption = ＂剩余时间为:＂ & mytime - a & ＂秒＂ElseMsgBox ＂时间到!＂Timer1.Enabled = FalseEnd If
@严秆5108：Vb写一个倒计时器. -
夏轮18312945330…… 创建2个按钮,1个timer,1个文本框,在文本框中输入时间如:23:00:00 然后点击按钮2开始倒计时!!Option Explicit Dim date1 As Date Private Sub Command1_Click() date1 = CDate(Text1) End Sub Private Sub Command2_Click() Timer1....
@严秆5108：VB中如何制作倒计时器? -
夏轮18312945330…… 给你个思路,用Timer控件,它本身就是个计时器,至于倒计时,设定个变量每次减1就行了
@严秆5108：VB制作倒记时器,如何实现?
夏轮18312945330…… 在窗体上加一个Timer1, 两个标签lblDay和lblTime 你可以在Timer1的Timer事件里加上: Dim iDayLeft As Integer Dim timeLeft As Date Const dateToReach As Date = #8/8/2008 8:00:00 PM# '目标日期 iDayLeft = CInt(dateToReach - Now) '取整数...
