投稿日 | : 2002/12/27(Fri) 11:58 |
投稿者 | : NEU(ノイ) |
Eメール | : |
URL | : |
タイトル | : Re: タイマーコントロール??? |
以下のものを試してみてください。
フォームを2つ用意し、
Form1にラベルとコマンドボタンを1つずつ
Form2にラベルを1つ貼り付けます。
Form1に以下のコードを貼り付けます。
Private Sub Command1_Click()
Form2.Show
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
Form2.Label1.Caption = Label1.Caption
End Sub