• ベストアンサー

【VB6.0】ピクチャーボックスに関数のグラフを描かせる

Visual Basic 6.0でボタンを押すとピクチャーボックス内に関数のグラフを描かせるプログラムを描きたいです。ボタンを押してフォーム上にグラフを表示させることはすでにできています。ではそれをどのようにしてピクチャーボックス内に表示させるのでしょうか。 おねがいします。おしえてください

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

  • ベストアンサー
noname#215107
noname#215107
回答No.1

ピクチャのオブジェクト名.line なり .psetなりで描画すれば良いです。フォームの場合は、フォーム名.メソッドですよね？ フォームと同じことですので、試してみてください。

Nusselt
質問者

お礼

回答ありがとうございました。早速試してみます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

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

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

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

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

  • VB2005でピクチャーボックス内の図形を移動

    VB2005のフォームにピクチャーボックスを配置して、Imageで写真を張り付けたとき、写真がピクチャーボックスの大きさよりも大きい場合にピクチャーボックス内の写真を移動させる方法ってあるのですか？現在左上の一部分しか表示されません。同時に写真の拡大縮小ってできるのでしょうか？どなたか詳しい方よろしくお願いいたします。

  • ピクチャボックスの座標取得

    Microsoft Visual Studio 2008のスマートデバイス用で、PDA用のプログラミングを開発しています。 フォーム上にピクチャボックスを貼りつけ、画像表示をできるようにしています で、やりたいことは・・ Private Sub PictureBox1_MouseUp(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles PictureBox1.MouseUp 'ピクチャボックスの座標を表示させる　　 　　End Sub Private pos As Pointで宣言しておき、 pos.X = e.X pos.Y = e.Y でやると、どうも、フォームの座標が取得されてしまうようです ピクチャの画像は拡大・縮小をできるようにしてあるため、フォーム座標＝ピクチャ座標にはなりません ピクチャボックスの座標を取得するにはどのようにしたらよいのか、ご教授願います

  • ピクチャーボックスでの折線グラフ作成 VB6.0

    お世話になります。 VB6.0にて、下記データを使って、ピクチャーボックスを使用して、コマンドボタンを１つクリック毎に、 「１０個の数値」を使って、CurrentX CurrentY で「点」を描写、「点」同士をつないで、折線グラフ作成 また、連続でクリックする事により、アニメのように見える という事をしたいです。 　ここで、下記「データ群」のように、１、２、３、とクリックで移動する毎に、数値の MAX MIN が変化していき、 [ Picture1.Height = 200 ] としてる為、縦方向にムダなく表示する為、「倍率」を求める事になります。 「１」の場合の「倍率」 = 200 ÷ (33 - 1) 「２」の場合の「倍率」 = 200 ÷ (49 - 1) 　 　ですので、ボタンクリックの度に、 「１０の数値」の MAX MIN で「倍率」を求める その「倍率」を使って折線グラフ作成 　となります。 　しかし、これが「１０個の数値」ではなく、１００～５００、また各数値も　130.88 など３桁、小数点アリ　になると、 「倍率」計算で時間が懸かり、アニメのように、とは難しいです。 　画像であるなら、Picture1.AutoSize があり、縦方向にピッタリとなりますが。 　さてここで質問ですが、私は「倍率」を求めてそれを元に折線グラフ作成としていますが、 もっとイイ方法があれば、是非御教授下さい。 お願いします。 　なお「MSChart」は使わないという事で。 データ群 「１」～「６」 １　[ 01～10 23 ,01 ,02 ,13 ,19 ,29 ,33 ,15 ,17 ,21 ]　MAX; 33 MIN; 01 ２　[ 02～11 01 ,02 ,13 ,19 ,29 ,33 ,15 ,17 ,21 ,49 ] MAX; 49 MIN; 01 ３　[ 03～12 02 ,13 ,19 ,29 ,33 ,15 ,17 ,21 ,49 ,17 ]　MAX; 49 MIN; 02 ４　[ 04～13 13 ,19 ,29 ,33 ,15 ,17 ,21 ,49 ,17 ,54 ]　MAX; 54 MIN; 13 ５　[ 05～14 19 ,29 ,33 ,15 ,17 ,21 ,49 ,17 ,54 ,27 ]　MAX; 54 MIN; 15 ６　[ 06～15 29 ,33 ,15 ,17 ,21 ,49 ,17 ,54 ,27 ,78 ]　MAX; 78 MIN; 15 With Picture1 .Cls: .BackColor =白 .Width = 3000: .Height = 200 .ScaleWidth = .Width: .ScaleHeight = .Height .AutoRedraw = True .DrawWidth = 1 .DrawStyle = 0 .FillStyle = 0 .FillColor = 黒 End With 　 各数値 ----------------- 01 23 02 01 03 02 04 13 05 19 06 29 07 33 08 15 09 17 10 21 11 49 12 17 13 54 14 27 15 78

  • 【Excel】リストボックスからのグラフ表示方法

    教えてください！ 今、フォームで表示されたリストボックスから一つ項目を選択しＯＫボタン（CommandButton1）を押すと、すでに別のワークシートに作成されたグラフが今開いているシートにユーザーフォームで表示されるというファイルを作成しています。 グラフがユーザーフォーム内に表示されるというのは出来たのですが、項目数が７つあるリストボックスからそれぞれ選択すると、 AAA→グラフ１ BBB→グラフ２ CCC→グラフ３ DDD→グラフ４ 　・ 　・ 　・ という風に「リストボックスのこの文字を選択しＯＫボタンを押すと、このグラフが表示されるようにする」といったようなマクロを完成させたいのです。 ちなみにグラフが表示されるようにするのに、以下のような記述をしました。 ------------------------------------------------- Worksheets("グラフ１").ChartObjects(1).Chart.Export ThisWorkbook.Path & "\Chart1.gif" UserForm1.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Chart1.gif") UserForm1.StartUpPosition = 1 UserForm1.Show ------------------------------------------------- 困っています。 教えてください。宜しくお願いいたします。

  • vb2005 ピクチャボックスを配列で再定義

    vb2005 フォーム上のピクチャボックスを5個作成。 コードで作成したピクチャボックスの配列ｐｔ（４）にそのプロパティをコピーしたいのですが、 どのようにしたらよいでしょう？ 個々にこぴーするのではなくループでできませんか？

  • ピクチャボックス

    ピクチャボックスに、指定した絵を並べて表示する事は出来ますか? 使った人が選んだ絵がピクチャボックスより大きかったらそのままで、小さかったらピクチャボックスの中に並べて表示したいんです。

  • VB2005ピクチャーBOX

    VB2005のformにピクチャーBOXにラインを引くには どうしたらよいでしょうか？

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

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

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する