マウスを使ったタイピング


☆ラベルをクリックするとOKと表示される

■ラベル(Label1)を選択しフォームに貼り付ける。↓
   

■ラベルを1クリックしオブジェクトプロパティのBcakColorを白にする。
   

■フォーム上のラベル(Label1)をダブルクリックしコードを表示し書き換える。↓
'ラベルをクリックしたとき実行される
Private Sub Label1_Click()
   Label1.Caption = "OK"
End Sub


■プログラムを実行しラベルをクリックする。↓


(解説)ラベルをクリックするとOKと表示される。


☆ラベルをクリックすると位置が変わる

■コードを書き換える
Private Sub Label1_Click()
   Label1.Top = Rnd(1) * 2500
   Label1.Left = Rnd(1) * 4000
End Sub


■プログラムを実行しラベルをクリックするとラベルの位置が変わることを確認。↓


∵ダウンロード file1.zip