vb中如何实现延时功能? Private Declare Sub Sleep Lib\"kernel32.DLL\"(ByVal dwMilliseconds As Long)过程中sleep 1000延时1秒
我再改哪个\ msgbox chr(13)+chr(13)+chr(13)+a,0,\"MsgBox错误,应该改为bmsgbox chr(13)+chr(13)+chr(13)+b,0,\"MsgBox即可
VB脚本如何写在某段时间内把一个值写为0的脚本,这个时间是可以改的 描述不够清晰,不知道下面的解答是否合适,给你个思路:1、2个text控件(分别为text1,text2)用于输入开始时间和结束时间2、一个timer控件Timer1,设置Interval=10003、代码:Private Sub Timer1_Timer()'1秒检测一次输入If IsDate(Text1)And IsDate(Text2)Then '判断输入格式是否为时间Dim t_now As String:t_now=CDate(Now())'=下面做判断,如果现在时间大于开始时间(text1)并且小于结束时间(text2),abc=0,否则abc=1If t_now>;CDate(Text1)And t_now(Text2)Then abc=0 Else abc=1End IfEnd Sub