Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30847 / 76738

←次へ　｜　前へ→


	【51153】Re:画像のの拡大・縮小

yuu1 - 07/8/30(木) 12:59 -


	引用なし

	パスワード

こんにちは。

>あと、出来れば画像をドラッグすると画像が移動するようにしたいのですが、
>どうすればいいのか教えてください。

こちらについては、
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

0 hits

▼

【51150】画像のの拡大・縮小 ななしのごんべ 07/8/30(木) 11:34