做一个电子钟程序,时间和日期与计算机时间同步。效果是这样的。
代码也很简单。Private Sub Form_Load()
LED1.LEDSTRING = Year(Date)
LED2.LEDSTRING = Month(Date)
LED3.LEDSTRING = Day(Date)
End SubPrivate Sub Timer1_Timer()
LED4.LEDSTRING = Time
End Sub
有一点我看不懂,为什么要加一个定时器timer1,还把它的interval设置为200.我看不出这个timer有什么作用哎!
代码也很简单。Private Sub Form_Load()
LED1.LEDSTRING = Year(Date)
LED2.LEDSTRING = Month(Date)
LED3.LEDSTRING = Day(Date)
End SubPrivate Sub Timer1_Timer()
LED4.LEDSTRING = Time
End Sub
有一点我看不懂,为什么要加一个定时器timer1,还把它的interval设置为200.我看不出这个timer有什么作用哎!
解决方案 »
- VB richtextbox 内存释放问题.
- webbrowser控件问题
- 100分求个在VB中比较困难的问题。(200元现金也可)
- 怎样可以为listbox的每行 定制 不同的颜色等属性??
- 请问高手,是否可以用Crystal做多栏报表,怎么做?多谢了.
- 我的ADO咋就用不了呢??
- 一个关于制作SETUP的问题
- 难道我的问题真的那样难吗?
- 新人求助啊,急,用VB做一份个人简历的程序,谢谢
- VB,关于如何让将数据实时导入到excel中按照固定的周期执行?
- 我用WebBrowser自动登陆了一个网站,登陆成功了,但是点击某功能按键时,又提示我没有登陆,退到了登陆面页让我重新登陆。请问怎么办?
- mschart问题。请高手指教
LED1.LEDSTRING = Year(Date) 'LED1控件显示年份
LED2.LEDSTRING = Month(Date)'LED2控件显示月份
LED3.LEDSTRING = Day(Date)'LED3控件显示日期 (某天)
End Sub Private Sub Timer1_Timer()
LED4.LEDSTRING = Time
'LED4控件显示小时.分.秒,interval设置为200是要200毫秒执行一次LED4.LEDSTRING = Time,检查时间是否有变化.有变化及时刷新,1000最好,因为显示的最小时间单位为1秒,也就是1000毫秒,设小了无益.设大了会跳时间
End Sub