１７．マウスの移動軌跡を描画する方法
＜ 使用用途 ＞
ペイント系のソフトを作るときにはよくつかう
今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をＰＵＳＨ！
＝＞ ダウンロード ・・・ 下に書いてあるサンプルソースと同じです
＜ 説明 ＞
Form１の上で左ボタンを押しながらマウスを動かすとマウスの動く通りに描画するサンプルです
< ＳＡＭＰＬＥ ＞
Dim Flag As Boolean
’マウスを動かした時の処理
Private Sub Form_MouseMove(Button AsInteger, Shift As Integer, X As Single,
Y As Single)
If Flag = True Then Line -(X, Y)
End Sub
’マウスのボタンを押した時の処理
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Flag = True
PSet (X, Y)
End Sub
’マウスを離した時の処理
Private Sub Form_MouseUp(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Flag = False
End Sub