アクセス フォームの中の直線移動

フォームにイメージと直線を２本（水平線・垂直線）を置いています。

イメージの中でマウスボタンが押されたら、この直線がそのポイントをクロスするように移動させたいのですが・・

マウスのポイントは x,y（座標　ドット？） で取得できますが、直線を移動させる時 cmで単位があいません。

感じとしては
水平線.Top =イメージ.Top + Y * ???
垂直線.Left =イメージ.Left + X * ???
としたいのですが　???にあたる係数はいくつになるのか、どなたか教えて頂けませんか？

No.1 ベストアンサー 回答者： 16August 回答日時： 2007/07/06 12:50

私のアクセス（2000）では

Private Sub IMAGE0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.VLINE.Left = X + Me.IMAGE0.Left
Me.HLINE.Top = Y + Me.IMAGE0.Top
End Sub
でぴったりあっていますが、
もしかしたら、このあたりかもしれません。（以下引用）

単位の変換
　VB に限った事ではないのだが、座標の単位を変換しなればならない事がよくある。
　よくあるパターンとしては、ポイントとミリメートル、そして VB の Twips 。
　その換算式はこうなる。

１[インチ] ＝ 72 [ポイント]
１[インチ] ＝ 1440 [Twips]
１[ポイント] ＝ 20 [Twips]
１[インチ] ＝ 25.4 [mm]
１[ピクセル] ＝ Screen.TwipsPerPixelY [Twips]

　上の式を応用すると、χ [mm] の文字のポイント数は、

y [ポイント] ＝ χ × 72 ÷ 25.4

となる。

参考URL：http://www.threeweb.ad.jp/~valkyrie/tips_vb.shtml

この回答へのお礼

う～～ん
昨日、うまくいかず悩んで質問しましたが。
>Me.VLINE.Left = X + Me.IMAGE0.Left
>Me.HLINE.Top = Y + Me.IMAGE0.Top
でピッタリと合ってます。
何が悪かったのかわかりませんが、うまくいきました。

単位の変換も含めて、ありがとうございます。

お礼日時：2007/07/06 18:08