時計を作る（解答編）
時間を取得するにはTime関数を使用します。それをタイマー(Timer1)を利用して1秒ごとに取得してラベル(Label1)などに表示すればよいわけですからコードは以下のようになります。
| Private Sub Timer1_Timer() Label1.Caption = Time End Sub |
タイマーのIntervalプロパティを1000(1秒)に設定することを忘れないで下さい。コードで設定したい場合は以下のようにします。
| Private Sub Form_Load() Timer1.Interval = 1000 End Sub |