VB编写一个状态栏当时时间

Question

VB编写一个状态栏当时时间
做完后会加分

Answer 1

部件里添加“Microsoft Windows Common Controls 6.0(SP6)”，添加StatusBar控件到窗体，再添加定时器控件Timer到窗体。

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Const VK_CAPITAL = &H14
Const VK_INSERT = &H2D

Private Sub Form_Load()
Dim pnlX As Panel
Dim i As Integer
For i = 1 To 3  '添加3个面板对象。
    '建立一个面板并同时获得对它引用。
    Set pnlX = StatusBar1.Panels.Add(, "Panel" & i) '设置 Key 属性。
    pnlX.Style = sbrText   '设置 Style 属性。
    pnlX.AutoSize = sbrContents '设置 AutoSize 属性。
Next i
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(1).Text = Date
StatusBar1.Panels(2).Text = Time
StatusBar1.Panels(3).Text = IIf(GetKeyState(VK_CAPITAL), "Caps Lock", "")
StatusBar1.Panels(4).Text = IIf(GetKeyState(VK_INSERT), "Insert", "")
End Sub

来自：求助得到的回答