• ベストアンサー

VB6.0で折れ線グラフに最大値を表示したいのですが

VB6.0でピクチャーボックスに折れ線グラフを描画しています。グラフ上の最大値のところに数値を表示したいのですが、ピクチャーボックス上で任意の座標に、ラベルを表示させることはできるのでしょうか? やり方をご存知の方がいたら教えてください。 参考になるサイトを教えていただいても助かります。 どうぞお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • s-uzen
  • ベストアンサー率65% (2051/3118)
回答No.1

ピクチャボックスにPrint文で直接文字列を表示することができます。 ラベルコントロールなどは隠れてしまい、前面に出せません。 PictureBoxのScaleMode=3(vbPixels)の場合、 Picture1.CurrentX = xxx Picture1.CurrentY = yyy で文字列左上の座標をピクセル値で指定して、PictureBoxに Picture1.Print xxx のようにして文字列を表示します。 座標の原点(0,0)は、PictureBoxの左上ですが、ScaleTop, ScaleLeft等の設定でView座標系に変更すれば、左下からの指定とすることもできます。 ScaleMode=4(vbCharacter)の場合は、桁と行で指定できますが、微調整が効きませんので、ピクセル座標を使用されるのが良いと思います。 文字フォント、色などはプロパティで指定します。 表示位置を正確に決める時、文字列の幅、高さを Picture1.TextWidth(str) Picture1.TextHeight(str) などで修得して、グラフ頂点に対する数値の表示位置の、CurrentX、CurrentY座標を計算すると良いですね。 下記は、ピクチャボックスへの文字表示方法の参考にはなると思います。 http://hanatyan.sakura.ne.jp/vbhlp/gra_pikusave.htm

ddtqp
質問者

お礼

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

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • VB6.0で、グラフを複数表示させたいのですが。

    VB6.0で、Form1にある描画ボタンを押すたびに、 Form2のグラフを画面上に追加表示したいのですが、 同じフォームを複数表示させる方法がわかりません。 ご存知の方教えてください。 よろしくお願いします。 Form2は添付ファイルのような感じです。 ピクチャーボックスにグラフを描画します。

  • グラフの書き方

    使っている環境はVB6.0です。 X座標とY座標のデータがあるとします。 そのデータを使ってピクチャーボックスに折れ線グラフを書きたいのですが、どのようにすればよいかわかりません。なので、教えてもらえないでしょうか? 軸については、書き方はわかりませんがアイデアとしては、データからX座標とY座標の最大値を取ってきて、それを自分で決めた個数で目盛り線を入れるという考えです。 よろしくお願いします。

  • VB6.0で複数フォームのグラフ描写ができません

    VB6.0でForm1にある描画ボタンを押すと、Form2が表示され、Form2のピクチャーボックスにグラフが描かれるコードを作っているところです。 ところが、Form2にはグラフが描かれません。 以下の簡単なコード(ピクチャーボックス2の背景を白色にする)も実行されません。 Form1にピクチャーボックスを作り、描画ボタンを押すとそこにグラフが表示されるようにしたところ、グラフが描かれました。 フォームは2つ表示させると問題があるのでしょうか? なにか考えられる原因を教えていただけないでしょうか。 Form1に記述しているコード Dim GraphForm As New Form2 GraphForm.Show Form2.Picture2.BackColor = vbWhite

  • 折れ線グラフ

    Excelのグラフについて。 一旦0にリセットする折れ線グラフを作成できますでしょうか? 具体的には、 ある数値について 1月1日は0 1月末日は、任意の値(350など) 2月1日は0 2月末日は、任意の値(760など) 1年分、以下略 これらの値を棒グラフで示したいです。 その際、1月末日から2月1日までの折れ線を非表示にしたいです。 可能でしょうか? よろしくお願いします。 Excel2010以上

  • グラフ表示の仕方 教えてください

    随時データを取得して、それを折れ線グラフで描画したいと思っています。 また一定期間をスクロールさせて表示できるようにしたいのですが、ピクチャボックスとスクロールバーを使用すれば出来るでしょうか? アドバイスまたはサンプルのプログラム等がありましたら教えて下さい。

  • 折れ線グラフのラベル

    折れ線グラフのラベルの系列名を、自動で最新のデータの右横に表示するのはどうしたらいいのでしょうか? 今は毎回テキストボックスを挿入しています。

  • エクセルの折れ線グラフで・・・

    エクセル2000です。エクセルの折れ線グラフで、各データ系列の最高値および最低値のデータラベルの値を表示させるにはどうしたらいいですか?

  • Excelグラフのラベル表示方法について

    Excelで折れ線グラフを作って、それぞれのポイントでラベルとして該当する数値が表示されるようにしていますが、数値によっては注釈をつけたいものがあり、コメントを直接表示あるいはせめて※印などをつけたいのですが、どうしたらよいでしょうか?

  • Excel 折れ線グラフのデータ描画時間を改善したい

    Excel 折れ線グラフのデータ描画時間を改善したい Excel 2003を使用しています。 15000行20列ほどのデータを折れ線グラフとして表示していますが 系列が20と、データ数が膨大なためグラフの描画時間がかかってしまいます。 グラフデータを図面化するなどといった方法で、 なんとか描画時間を少なくしてExcelオープン時の負担を軽くしたいのです。 よい方法をご存知の方は教えてください。 よろしくお願いします。

  • VBでグラフ表示をするにあたって

    Excelを利用するか、市販のOCXを使用するか迷っています。 この2点を比べるにあたって、 こういうところが違うからこっちの方が良いということを 説明していただけると助かります。 ちなみにVB6.0(SP5)+SQLSERVER2000の環境です。 SQLSERVERの中のデータをグラフ表示しようと思っています。 グラフは、棒グラフ、円グラフ、折れ線グラフなど 何種類か使用する予定です。 もしExcelを使うことになればExcel97になります。 よろしくお願いします。

専門家に質問してみよう