VB输入时间定时程序代码
VB输入时间定时程序代码 -
'Text1=系统当前时间'Text2=设置关机小时'Text3=设置关机分钟Private Sub Command1_Click() MsgBox "设置成功,系统进入定时关机状态" Me.Visible = False Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load() Text1 = Now Timer1.Enabled = False Timer1.Interval = 1000End有帮助请点赞。
Dim p As Integer Private Sub Command1_Click()Timer1.Enabled = True p = 0 End Sub Private Sub Form_Load()Timer1.Interval = 1000 Timer1.Enabled = False End SubPrivate Sub Timer1_Timer()p = p + 1 If p = 2 Then Shell "C:\1.exe", vbNormalFocus ElseIf p = 4 Then S好了吧!
'Text1=系统当前时间'Text2=设置关机小时'Text3=设置关机分钟Private Sub Command1_Click() MsgBox "设置成功,系统进入定时关机状态" Me.Visible = False Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load() Text1 = Now Timer1.Enabled = False Timer1.Interval = 1000End有帮助请点赞。
Dim p As Integer Private Sub Command1_Click()Timer1.Enabled = True p = 0 End Sub Private Sub Form_Load()Timer1.Interval = 1000 Timer1.Enabled = False End SubPrivate Sub Timer1_Timer()p = p + 1 If p = 2 Then Shell "C:\1.exe", vbNormalFocus ElseIf p = 4 Then S好了吧!
(1)在窗体上加一个时钟控件(外形象机械钟表),选住它,在属性里设置Interval属性值为100(意义是每隔100毫秒执行一次程序,你可以根据你的要求设置),并设置Eable属性为True。(2)双击时钟控件,填入代码:Timer1.Interval = 100 '和你设置的那个必须一样call myfun 'myfun是个函数,定义如下面有帮助请点赞。
先做一个窗体Form1,再做一个窗体form2,form2上放一个image,把stretch属性设为True,在form2的onload事件里写入以下代码:me.image1.picture=loadpicture("此处写入图片路径")再在form1上放一个Timer,把Enabled属性设为True 在其声明部分写下以下代码Private i as integer '用来做倒计时的变量在F说完了。
VB中怎样实现在指定时间运行指定程序 -
Private Sub Form_Load()Timer1.Interval = 60000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()If Hour(Now) = 18 And Minute(Now) = 30 Then Shell "notepad.exe", vbNormalFocus End If End Sub 以上代码是在每天的18:30运行“记事本”希望你能满意。
一、间隔一小时运行:Timer1.Interval = 60000即1分钟,每分钟判断一次Private Sub Timer1_Timer()Static i As Integer i = i + 1 If i Mod 60 > 0 Then Exit Sub Command1.Value = True i = 0 End Sub 二、每天正点运行(假定为12点整):Timer1.Interval = 1000即1秒,每秒判断一次有帮助请点赞。
VB如何编写定时器或者计时器,到时间后关闭指定EXE文件. -
添加一个Timer控件设置Timer的属性Interval=10000 ,表示1分钟Private Sub Timer1_Timer()'例如关闭记事本notepad.exe Shell "taskkill /f /im notepad.exe"End Sub
在Private Sub Timer1_Timer()里面添加代码,判断当前时间(用time函数取得当前时间)是否到了你设定的时间,到了就shell text2.text没到就不理会,程序开始时在form_load()时可以设置timer1.enabled=false,在command1_click()里面设置timer1.enabled=true,这样在设置好text1和text2的内容后,点击说完了。
vb的定时器语句怎么弄(1分钟的) -
创建一个timer控件,它的interval属性是以毫秒为单位的,1分钟就是60000毫秒private sub form_load()timer1.interval=60000 end sub private sub timer1_timer()'你的操作代码end sub
步骤/方法打开VB 软件,选择新建标准EXE 工程。选择左侧工具箱里的TextBox(文本框)控件,然后在窗口上画三个文本框,分别作为时、分、秒。然后再选择左侧的CommandButton(按钮)工具,在时间的下方画两个按钮,分别作为起止和复位使用。接着选择左侧的Label(标签)控件,在三个文本框的上方各好了吧!