グラフィックの表示について VB6

質問

VB6について
PictureBoxにLine文で格子を描きましたが、
For X = 1 To X軸 \ 枠
T = 枠 * X * 是正!
Picture1.Line (0, Y軸 + T)-(横, Y軸 + T), 線色
Picture1.Line (0, Y軸 - T)-(横, Y軸 - T), 線色
Next X
For X = 1 To Y軸 \ 枠
T = 枠 * X
Picture1.Line (X軸 + T, 0)-(X軸 + T, 縦), 線色
Picture1.Line (X軸 - T, 0)-(X軸 - T, 縦), 線色
Next X
ソースはこんなかんじです。
永遠の初心者(向上心はあるのですが、)で、格子をえがくのははじめてなので、
実行してみて、縦の格子の１マスの幅と横の格子の幅がちがい、正方形になるはずが
長方形になってしまいました。
なぜでしょうか、DPIとかなにか関連があるのでしょうか。それぞれのパソコンで異なった結果が出るのでしょうか。どなたか対処法をご教授ください。検索などかけてはいるのですが、ヒントになるような事柄でも結構です。お願いします。
VB6SP6 OS XP 画面サイズ 1024×768です。

回答No.1

burroughs6 · ベストアンサー

>T = 枠 * X * 是正!
「是正」は高さの調整用なのでしょうが不要です。
この値が１以外ならば、長方形になるのは当然です。

>画面サイズ 1024×768です。
パソコンのディスプレイの液晶部の縦横比は、768:1024=0.75:1 になっているか確認して下さい。異なっていれば、グラフィックで正方形を描いてもディスプレイに長方形で表示されてしまいます。

あと気になる点は、
(1)Picture1のプロパティの width と height を同じにすれば、Picture1の外形が正方形になります。これでも長方形に見えるか。
(2)Lineの使い方は無駄があり、同じ線を２度描いてます。

お礼

顛末は、補足に書きました。
ありがとうございました。

補足

お返事ありがとうございます。
>T = 枠 * X * 是正!
是正!は当然１でやっていて、長方形とりあえず、是正値で正方形になるようにしてみたりしているだけです。
枠・・・格子の長さを規定しています。

ちなみに、上のソースに
Picture1.Line (X軸, Y軸)-(X軸 + 枠, Y軸), &HFF0000
Picture1.Line (X軸, Y軸)-(X軸, Y軸 + 枠), &HFF0000
を付け加え、更に半径を、枠の長さにして円を描きました。

その結果がこれです。
http://withyou.system.cx/plugin/hp/test.gif
枠の横の長さは半径と一致し、同じ長さで描いたはずの縦の枠と一致していません。
・・・・・・と描いていたところ、
>(1)Picture1のプロパティの width と height
のところでハタと、バグに気がつきました。
ソースの前部で
With Picture1
.Cls
.BackColor = 背景色
.Top = 位T%
.Left = 位L%
.ScaleWidth = 横%・・・・バグ
.ScaleHeight = 縦%・・・・バグ

.Width = 横%・・・・バグ
.Height = 縦%・・・・バグ
とすべきでした。解決です。あほですねぇ、われながら。
大いにヒントになりました。
ありがとうございました。