送分了阿 请问如何在一个textbox上显示系统的时间?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在timer的事件里Private Sub Timer1_Timer() text1.Text = "现在时间 :" & Format(Time, "ttttt AM/PM")End Sub timer1.Interval=1000timer事件里Text1.Text = Now() Option ExplicitPrivate Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Text1.Text = NowEnd Sub 如何锁定鼠标在某一点 如何在打开文件对话框中加上预览功能? 各位老大!救命啊!!谁能帮我看看这个是什么函数?好象是个弧线!谁能解开的?万分相赠!!!( 抢分问题! 关联表的报表输出问题,大家帮忙啊 VB6分形图像程序源代码提供! 如何自动填入,读取下一行,提出正确信息 如何在IMAGE里面添加相片? 谁能提供一个有图标和背景图的弹出式菜单的源码或控件? 谁能发扬白求恩同志的精神,救救我这濒临灭绝的同志? ActiveX DLL一般该如何调试呢? 怎么做出xp窗口里导航条????
Private Sub Timer1_Timer()
text1.Text = "现在时间 :" & Format(Time, "ttttt AM/PM")
End Sub
Text1.Text = Now()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Text1.Text = Now
End Sub