vb怎么在窗体上做时间显示？

Question

如图~~是标签控件还是什么控件？里面的计时器是怎么编写的？ 是否和系统的时间同步？ 另外在问一下，怎么令我的每条记录都显示时间！假如我13点00分卖出一瓶红酒!

Answer 1

VB可使用Timer控件实现在窗体的标签控件中显示系统时间等信息。

Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

实现代码：

Private Sub Form_Load()
    Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
   If lblTime.Caption <> CStr(Time) Then
      lblTime.Caption = "后台服务：连接正常" & "  ç³»ç»Ÿæ—¥æœŸï¼š" & Date & "  ç³»ç»Ÿæ—¶é—´ï¼š" & Time
   End If
End Sub

Answer 2

实时的时间显示需要一个计时器Timer,，图显示的应该是状态栏，在Timer事件里改写状态栏的内容。用Now,Time等等函数获取的就是本机的时间。
记录要有记录首先要保存这个时间，即表要增加专门的字段来保存这个时间。

Answer 3

假设有一个标签label1和一个按钮command1外加一个列表框list1还有最重要的计时器timer1

.........
timer的interval设置为100
代码

label1.caption="当前时间"+time

按钮的代码

list1.additem "在"+time+"我卖出了一瓶红酒"

Answer 4

不用计时器 ，给一个变量aa=time$就行 ，如果有时间比较，才用时间控件本回答被提问者采纳

Answer 5

这个是状态栏控件、 关于记录时间 那就要在数据库增加 交易时间字段 设置为默认：now