|
こんにちは。
>あと、出来れば画像をドラッグすると画像が移動するようにしたいのですが、
>どうすればいいのか教えてください。
こちらについては、
Image1のマウスイベントで処理すればいいと思います。
以下のかんじでどうでしょう。
'ユーザーフォームモジュール
Option Explicit
Dim dx!, dy!
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
dx = X: dy = Y
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If dx = 0 And dy = 0 Then Exit Sub
Image1.Left = Image1.Left + X - dx
Image1.Top = Image1.Top + Y - dy
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
dx = 0: dy = 0
End Sub
|
|