VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/06/16(Wed) 12:30 |
| 投稿者 | ： おじん |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 解決しました |
> ここの[イベントプロシージャ関係]の[マウスのドラッグ＆ドロップで操作]の中の
> 補正しておかないとドロップした位置がずれる のところを参考にドロップ位置の
> 補正をして見て下さい。
投稿する前に「探した」のですが見つける（見落とし）ことができませんでした。
お手間をおかけし、申し訳ありませんでした。
４、は次のように訂正し解決しました。
Private Sub Command1_DragDrop( _
Index As Integer, _
Source As Control, X As Single, Y As Single)
Source.Move Command1(Index).Left + X - wx, Command1(Index).Left + Y - wy
End Sub
なお、例示したソースでは wx,wy で補正はしていたのですが、よくよく観察していると、
コントロール（Command ボタン）をDragしている間に、マウスの位置がコントロール上で
僅かながらずれ、それがDropしたときに影響していると思われます。
悲しいことに、ドラッグするにも「マウスを固定できない」ほど老いぼれてしまいました。
申し訳ありませんでした。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）