17.マウスの移動軌跡を描画する方法


< 使用用途 >
ペイント系のソフトを作るときにはよくつかう

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」をPUSH! 
   => ダウンロード ・・・ 下に書いてあるサンプルソースと同じです


< 説明 >
Form1の上で左ボタンを押しながらマウスを動かすとマウスの動く通りに描画するサンプルです


< SAMPLE >

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




Visual Basic 技術テクニックへ

ホーム PV ランキング