投稿日 | : 2007/07/05(Thu) 20:22 |
投稿者 | : なな |
Eメール | : |
URL | : |
タイトル | : ラインを描き、重ならずに始点の横に文字を表示したい |
お世話になります。
VB歴3年のPGです。
環境:VB6(SP5) WinXp
PictureBox上でラインを描き、重ならずに支点の横に数字を表示したいです。
イメージは以下を参照してください。
-イメージ(矢印をラインと考えてください)----
B
@→ ↑ ↓ ←C
A
----------------------------------------------
以下のようなソースで数字を表示しています。
現在、問題となっているのは、ほとんどの場合は以下のソースでもOKですが。
ラインの角度によっては、ラインと数字が重なってしまいます。
(ラインは自由な角度で描くことが可能です。)
ラインの支点に固定で、100をプラスしているのが問題だと思いますが。
実際にセットする値をどのように導き出せば良いか分かりません。
Picture1.fontBold = False
Picture1.fontSize = 10
Picture1.fontName = "MS 明朝"
Picture1.ForeColor = vbRed
Picture1.CurrentX = x1 + 100
Picture1.CurrentY = y1 + 100
Picture1.Print "1"
※数字を表示する方法として、ラベルを表示する方法も考えられますが。
PictureBoxに直接、文字を表示する方法のみで考えています。
以上 よろしくお願いします。