VB.NET質問スレ (Part18)

VB.NET質問スレ (Part ..

835:デフォルトの名無しさん
07/01/02 21:12:09
非常に手抜き
パネルの上にピクチャボックス乗せて
Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
_OnCtrl = True
End Sub
Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
_OnCtrl = False
End Sub
Private Sub Panel1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseEnter
_OnPan = True
End Sub
Private Sub Panel1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Panel1.MouseLeave
_OnPan = False
End Sub
Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
_OnDrg = False
End Sub
Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
If Not _OnDrg Then
_OnDrg = True
_PrvPnt = New Point(e.X, e.Y)
End If
End Sub

次ページ

続きを表示

1を表示