投稿日 | : 2004/06/16(Wed) 12:30 |
投稿者 | : おじん |
URL | : |
タイトル | : Re^2: 解決しました |
> ここの[イベントプロシージャ関係]の[マウスのドラッグ&ドロップで操作]の中の
> 補正しておかないとドロップした位置がずれる のところを参考にドロップ位置の
> 補正をして見て下さい。
投稿する前に「探した」のですが見つける(見落とし)ことができませんでした。
お手間をおかけし、申し訳ありませんでした。
4、は次のように訂正し解決しました。
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したときに影響していると思われます。
悲しいことに、ドラッグするにも「マウスを固定できない」ほど老いぼれてしまいました。
申し訳ありませんでした。