VBでPDFライクに画像を動かすには？ (ID:85619)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 りっとっとさん、ありがとうございます。チップ集の中にコントロールをマウスで動かす方法がかかれていましたので、フレームの中にピクチャーボックスを置いて動かすようにプログラムしてみました。また、マウスアイコンをイメージボックスに収納してマウスを押すとつかむアイコンを呼び出すようにしてみました。 ただ、これですと、ピクチャーボックスの動かせる範囲が制限できず、ピクチャーボックスの裏の部分も見えてしまうので、なんとか制限する方法はないかと考えています。 '■SendMessage '指定のウインドウにメッセージを送る '<引数＞ 'hWnd ウインドウのハンドル 'wMsg： 定数(WM_××参照） 'wParam: 定数 (HTCAPTION) 'lParam: 常に0 '<戻り値> '通常使わない '定数はこれ以外にもある=>APIビューワー参照 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '■ReleaseCapture 'マウスキャプチャを解放 Private Declare Sub ReleaseCapture Lib "user32" () Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Private Sub Picture8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Ret As Long If Button = 1 Then Picture8.MouseIcon = Image6(1).Picture Picture8.MousePointer = 99 'マウスキャプチャを解放する ReleaseCapture 'Form1をドラッグせよという命令を送る Ret = SendMessage(Picture8.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If End Sub Private Sub Picture8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture8.MouseIcon = Image6(0).Picture Picture8.MousePointer = 99 End Sub