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