Public Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Integer
Public Function MainGetKeyState() As Boolean Dim intKeyState1 As Integer With Me intKeyState1 = GetKeyState(Keys.CapsLock) Select Case intKeyState1 'CAPS Lock Case 1, 65409 'On .stpCAP.Text = "CAPS" Case Else .stpCAP.Text = "" End Select End With intKeyState1 = Nothing End Function
nanasi 2013/03/6 (Wed) 10:51:06
まずはStatusBarのパネルに現在の日付や時間を表示する方法を考えます。
これは単純に、タイマーのイベントでPanelのTextを現在の日時に変更することにより実現します。まずは次のようなStatusBarPanelクラスの派生クラスを作成してみましょう。
どこに?
派生クラスの作り方はどこ?
適当すぎ