Excel VBA質問箱 IV

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

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


30841 / 76732 ←次へ | 前へ→

【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 質問
【51151】Re:画像のの拡大・縮小 とおりすがり 07/8/30(木) 12:38 回答
【51152】Re:画像のの拡大・縮小 ななしのごんべ 07/8/30(木) 12:42 発言
【51153】Re:画像のの拡大・縮小 yuu1 07/8/30(木) 12:59 回答
【51154】Re:画像のの拡大・縮小 ななしのごんべ 07/8/30(木) 13:15 発言
【51159】Re:画像のの拡大・縮小 とおりすがり 07/8/30(木) 21:08 発言
【51163】Re:画像のの拡大・縮小 ななしのごんべ 07/8/31(金) 10:18 発言
【51166】Re:画像のの拡大・縮小 [名前なし] 07/8/31(金) 12:43 発言
【51167】Re:画像のの拡大・縮小 ななしのごんべ 07/8/31(金) 14:28 お礼

30841 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free