VB6.0での描画方法を教えてください。

質問

Form上に点と点を結ぶ折れ線グラフを書きたいのですが、VB6.0ではどうすればよいのでしょうか？。
また、Formの原点位置（０，０）は左上でよいのでしょうか？。

回答No.1

momoturbo · ベストアンサー

fromにコマンドボタンをひとつ置いて、
以下を貼り付けてください。
Private Sub Command1_Click()

Dim i As Integer
Dim intRnd As Integer
Dim intRndOld As Integer

For i = 0 To 100
Randomize
intRnd = Rnd * 500
Line (i * 50, intRndOld)-((i + 1) * 50, intRnd)
intRndOld = intRnd
Next i
End Sub

左上が（０，０）でokです。
FormのプロパティにScale～というものが数個あります
これを変更することにより、左下を（０，０）に
することができます。
MSDNなどで調べてみてください。
LINEコマンドもしらべてみてね

お礼

ありがとうございます。
ばっちりでした。

回答No.2

dietnma2

指摘が見当違いだったらごめんなさい。

質問の答えにはなっていませんが、
折れ線を書きたいのであれば、
MSChartが非常に便利ですよ。
VB6に付いています。

ここに詳しく載ってます。
『VBレスキュ-（花ちゃん）』
http://www.bcap.co.jp/hanafusa/

参考になれば嬉しいです。

参考URL：

http://www.bcap.co.jp/hanafusa/

お礼

回答いただきありがとうございます。
内容的にはNo.1の方の方がベストでしたが、参考になりました。