vb+run+time+error+91
@赫尚5426：vb出现错误 run time error 53 file not found
卞制19738358952…… VB写的程序在没有使用微软的Package & development 这个工具打包前,是需要MSVB6SR.DLL的服务的支持的.所以在没有安装VB的计算机上是无法运行用VB写出来的EXE文件.解决的方法很简单,你只要在计算机上安装了VB6.0精简版就可以了.
@赫尚5426：vb 按时间运行 -
卞制19738358952…… 需要添加一个Timer控件 Private Sub Form_Load()'下面两行初始化Timer1控件 Timer1.Enabled = True Timer1.Interval = 1 End Sub'Timer控件的代码 Private Sub Timer1_Timer() If Format(Now, ＂hh:mm:ss＂) = ＂09:00:00＂ Then form2.Show End If If Format(Now, ＂hh:mm:ss＂) = ＂10:00:00＂ Then form3.Show End If End Sub
@赫尚5426：请问我要用VB做一个时间跳动 -
卞制19738358952…… 用timer检测时间,每过一秒获取本地时间一次,设置计数器n,启动时间s,每次时间符合启动时间,n-1,s+13.25,n=0是关闭定时器.
@赫尚5426：用VB编一个能够移动的时间(timer)的使用
卞制19738358952…… 不知道你是不是这个意思. 简单的一个例子: Private Sub Form_Load() Timer1.Interval = 100 Me.Left = Screen.Width End Sub Private Sub Timer1_Timer() If Me.Left >= 0 Then Me.Left = Me.Left - 200 Else Timer1.Enabled = False End If End Sub
@赫尚5426：用vb编写距某一时间的倒计时 -
卞制19738358952…… 很简单事件,添加一个command 一个timer Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True a = Text1 End Sub Private Sub Form_Load() Text1 = 10 Command1.Caption = ＂计时＂ End Sub Private Sub Timer1_Timer() If a = 0 Then Timer1.Enabled = False MsgBox ＂倒计时结束＂ Else a = a - 1 Text1 = a End If End Sub
@赫尚5426：vb中timer的用法 -
卞制19738358952…… timer中先间隔值属性设置,如果一秒执行一次,就设置成1000,然后Enable设置成True,然后再事件里输入执行的代码,具体请看http://wenwen.sogou.com/z/q826134261.htm
@赫尚5426：vb timer控件的用法 -
卞制19738358952…… 在设计界面把timer1的enable设为false,间隔数为1000(毫秒,也就是1秒) 按钮事件使用 timer1.enable = true timer1事件中 Label1.Text = Now
@赫尚5426：Excel - VB函数, run - time erro '9' -
卞制19738358952…… 如图所示 2个箭头所指示的名称应该是一致的 你运行有错误就说明你可能名称写错了 导致引用不到对应的工作簿对象
@赫尚5426：VB中TIMER语句的使用 -
卞制19738358952…… Private Sub Command1_Click() Timer2.Enabled = False Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer2.Enabled = True End Sub Private Sub Command3_Click() Timer2.Enabled = False Timer1....
@赫尚5426：如何在vb中用timer实现倒计时功能 -
卞制19738358952…… Function mtot(min As Integer) '求指定分钟后具体时间 Dim f2 As Long f2 = 3600 * Hour(Time) + 60 * Minute(Time) + Second(Time) + 60 * min '所定距离午夜秒数 '所定时间距午夜秒数 mtot = Fix(f2 / 3600) & ＂:＂ & Fix((f2 Mod 3600) / 60) '所定时间...
卞制19738358952…… VB写的程序在没有使用微软的Package & development 这个工具打包前,是需要MSVB6SR.DLL的服务的支持的.所以在没有安装VB的计算机上是无法运行用VB写出来的EXE文件.解决的方法很简单,你只要在计算机上安装了VB6.0精简版就可以了.
@赫尚5426：vb 按时间运行 -
卞制19738358952…… 需要添加一个Timer控件 Private Sub Form_Load()'下面两行初始化Timer1控件 Timer1.Enabled = True Timer1.Interval = 1 End Sub'Timer控件的代码 Private Sub Timer1_Timer() If Format(Now, ＂hh:mm:ss＂) = ＂09:00:00＂ Then form2.Show End If If Format(Now, ＂hh:mm:ss＂) = ＂10:00:00＂ Then form3.Show End If End Sub
@赫尚5426：请问我要用VB做一个时间跳动 -
卞制19738358952…… 用timer检测时间,每过一秒获取本地时间一次,设置计数器n,启动时间s,每次时间符合启动时间,n-1,s+13.25,n=0是关闭定时器.
@赫尚5426：用VB编一个能够移动的时间(timer)的使用
卞制19738358952…… 不知道你是不是这个意思. 简单的一个例子: Private Sub Form_Load() Timer1.Interval = 100 Me.Left = Screen.Width End Sub Private Sub Timer1_Timer() If Me.Left >= 0 Then Me.Left = Me.Left - 200 Else Timer1.Enabled = False End If End Sub
@赫尚5426：用vb编写距某一时间的倒计时 -
卞制19738358952…… 很简单事件,添加一个command 一个timer Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True a = Text1 End Sub Private Sub Form_Load() Text1 = 10 Command1.Caption = ＂计时＂ End Sub Private Sub Timer1_Timer() If a = 0 Then Timer1.Enabled = False MsgBox ＂倒计时结束＂ Else a = a - 1 Text1 = a End If End Sub
@赫尚5426：vb中timer的用法 -
卞制19738358952…… timer中先间隔值属性设置,如果一秒执行一次,就设置成1000,然后Enable设置成True,然后再事件里输入执行的代码,具体请看http://wenwen.sogou.com/z/q826134261.htm
@赫尚5426：vb timer控件的用法 -
卞制19738358952…… 在设计界面把timer1的enable设为false,间隔数为1000(毫秒,也就是1秒) 按钮事件使用 timer1.enable = true timer1事件中 Label1.Text = Now
@赫尚5426：Excel - VB函数, run - time erro '9' -
卞制19738358952…… 如图所示 2个箭头所指示的名称应该是一致的 你运行有错误就说明你可能名称写错了 导致引用不到对应的工作簿对象
@赫尚5426：VB中TIMER语句的使用 -
卞制19738358952…… Private Sub Command1_Click() Timer2.Enabled = False Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Timer2.Enabled = True End Sub Private Sub Command3_Click() Timer2.Enabled = False Timer1....
@赫尚5426：如何在vb中用timer实现倒计时功能 -
卞制19738358952…… Function mtot(min As Integer) '求指定分钟后具体时间 Dim f2 As Long f2 = 3600 * Hour(Time) + 60 * Minute(Time) + Second(Time) + 60 * min '所定距离午夜秒数 '所定时间距午夜秒数 mtot = Fix(f2 / 3600) & ＂:＂ & Fix((f2 Mod 3600) / 60) '所定时间...
