VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/06/16(Wed) 11:05 |
| 投稿者 | ： おじん |
| ＵＲＬ | ： |
| タイトル | ： コントロールをドラッグ＆ドロップしたい |
よろしくお願いいたします。下記のソース（PictureBox、Commandボタン）で、
１、移動（ドロップ）位置が微妙にずれる
→正しくなるまで何度が試みる
２、移動（オーバー）中の動きがギシギシする
３、かつ、コントロールの影が見え、その位置がソースの位置とずれている
→２，３は気にしない
４、ボタンの上（範囲内）ではドラッグできない
→一度離れたところに移動し、所定の位置に戻す
矢印（→）のように「解決策」はありますが、どうもしっくりしません。
細かいことですが、解決方法を教えてください。
Option Explicit 'Win98 VB6.0
Dim wx!, wy!
Private Sub Command1_DragDrop( _
Index As Integer, _
Source As Control, X As Single, Y As Single)
' Source.Move X - wx, Y - wy '<----４が解決できると思ったのですが、、残念！
End Sub
Private Sub Command1_MouseDown( _
Index As Integer, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
wx = X: wy = Y
Command1(Index).Drag 'vbBeginDrag
End Sub
Private Sub Picture1_DragDrop( _
Source As Control, X As Single, Y As Single)
Source.Move X - wx, Y - wy '<---こんな方法はダメ？ ずれる！！
End Sub
Private Sub Picture1_DragOver( _
Source As Control, X As Single, Y As Single, State As Integer)
Label1.Caption = State
Source.Move X - wx, Y - wy '<---移動中も表示したい！！
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）