• ベストアンサー

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

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

画像を拡大する
  • ddtqp
  • お礼率68% (139/203)

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

  • ベストアンサー
  • OMEGAT
  • ベストアンサー率70% (455/642)
回答No.1

Form1のボタンクリックイベントに以下のように書いてみるとどうでしょうか。 Private Sub Command1_Click() Dim f As New Form2 f.Show End Sub

ddtqp
質問者

お礼

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

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他(ソフトウェア)

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

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

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

  • ＶＢ6.0で、フォームの表示位置を画面左上にしたいのですが。

    ＶＢ6.0で、フォームの表示位置を画面左上にしたいのですが、以下コードの「StartUpPosition」でエラーがでます。 コードが対応していないのでしょうか？ ご存知の方教えてください。よろしくおねがいします。 Private Sub Form_Load() Me.Picture2.BackColor = vbWhite \'グラフ背景色 Me.StartUpPosition = 3 \'フォームを左上に表示 End Sub

  • ＶＢ2010で、2つめのフォームを表示させると、フォームを閉じるまで1

    ＶＢ2010で、2つめのフォームを表示させると、フォームを閉じるまで1つめのフォームの操作ができないのですが、どなたか解決方法を御存じないでしょうか。 よろしくお願いします。 Form1のピクチャーボックスに描いた折れ線グラフ上のカーソル（Form11）が、 マウスの動きに合わせてグラフ線上をたどっていくようにしようとしています。 【Form1のボタンを押すと2つめのフォームを呼び出す】 Dim Mark As New Form11 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'グラフカーソル表示 Mark.Show() 【呼び出されたフォームのコード】 Imports System.Drawing Public Class Form11 Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint 'フォームのクライアント領域のサイズを設定 Me.ClientSize = New System.Drawing.Size(20, 20) 'カーソルを描く Dim MarkPen As New Pen(Color.Red, 1) Dim g As Graphics = e.Graphics g.DrawEllipse(MarkPen, 0, 0, 20, 20) '円の描画 Me.TopMost = True '最全面 Me.TransparencyKey = Me.BackColor '透明色の設定 Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None '枠なし End Sub End Class

  • VB6.0でフォームをずらして表示したいのですが

    以下のコードを実行すると、メッセージボックスに10としか表示されません。 同じ場所にフォームが追加されていきます。 複数表示されているフォームを数える方法はないでしょうか？ ご存知の方教えてください。 よろしくお願いします。 Private Sub CMD_drow_Click() Dim GraphForm As New Form2 Dim GraphNumber As Integer 'グラフカウント GraphNumber = Form2.Count MsgBox GraphNumber 'グラフ表示 GraphForm.Show '表示位置の設定 With GraphForm If GraphNumber <= 5 Then ' .StartUpPosition = 0 .Top = GraphNumber * 100 .Left = 0 Else ' .StartPosition = 0 .Top = (GraphNumber - 5) * 100 .Left = 300 End If End With End Sub

  • VBでエクセルのグラフを表示したい

    VB6.0とエクセル2003を使っているのですがまずVBから値を取得してエクセルでグラフを作りそのグラフをまたVBに表示したいのですが一回画像ファイルにしてオブジェクトのイメージで表示するしかないのでしょうか？そうであればエクセルのグラフを画像ファイるに直す方法も教えてください。

  • 【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 ------------------------------------------------- 困っています。 教えてください。宜しくお願いいたします。

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

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

  • Vb2010

    vb2010です。 ログインフォーム(Form1)のログインボタン(button1)を押すとログインフォームは消え、メインフォーム(Form2)を表示するという事をしたいです。サンプルコードを教えて下さい。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する