TITLE:  [95] Re: さっそく質問なのですが
DATE : 2001-07-20 23:14:00
--------------------------------------------------
a-murataさん、お久しぶりです。

僕も、eVC++に行って、またeVBに戻ってしまっている一人です。
考えはa-murataさんと一緒、その機能が早く欲しくて、開発に時間がかけ
られないのです。

で、a-murataさんの質問に行きますね。

> ピクチャーボックスを使ってグラフを描くことは
> できるのでしょうか？

PicturBoxでもかけますが、Formに直接かけますので、そちらの方法を書
きます。（この方がPicturBoxコントロールの分、インストールサイズが
小さくなると思いますので）

まず、準備でフォームにコマンドボタンを１つ貼り付けてください。
そして、そのボタンをダブルクリックしたところに、次のようにコードを
書いてください。

Private Sub Command1_Click()
  DrawGraph 10, 30, 60, 75, 100
End Sub

ここで使っているDrawGraphという関数は、自作関数です。
次のように記述してください。

Function DrawGraph(g1, g2, g3, g4, g5)
  'X軸
  DrawLine 360, 3120, 3120, 3120
  'Y軸
  DrawLine 360, 720, 360, 3120
  '棒グラフの描画
  '<1>
  DrawLine 540, 3120, 900, 3120 - ((3120 - 720) * g1 / 100), &HC0FFFF, vbLineBoxFill
  '<2>
  DrawLine 1080, 3120, 1440, 3120 - ((3120 - 720) * g2 / 100), &HC0FFC0, vbLineBoxFill
  '<3>
  DrawLine 1620, 3120, 1980, 3120 - ((3120 - 720) * g3 / 100), &HFFFF80, vbLineBoxFill
  '<4>
  DrawLine 2160, 3120, 2520, 3120 - ((3120 - 720) * g4 / 100), &H8080FF, vbLineBoxFill
  '<5>
  DrawLine 2700, 3120, 3060, 3120 - ((3120 - 720) * g5 / 100), &HFFC0FF, vbLineBoxFill

End Function


これで実行して、コマンドボタンを押すと、グラフがかけるはずです。
DrawGraphの後の５つの数字が棒の長さです。１００が最高ですが、エラ
ー処理していないので、もっと長いのもかけてしまいます。
適当に指定して試してみてください。

では。