VB2010のフォームを表示させる方法とグラフカーソルの描画方法

前へ 次へ
このQ&Aのポイント
  • VB2010で2つめのフォームを表示させる方法と、フォームを閉じるまで1つめのフォームの操作ができない問題について解決方法を知りたいです。
  • VB2010で2つめのフォームを表示させると、フォームを閉じるまで1つめのフォームの操作ができない問題が発生しています。解決方法を教えてください。
  • VB2010で2つめのフォームを表示させると、1つめのフォームの操作ができなくなってしまいます。問題の解決策を教えてください。
回答を見る
  • ベストアンサー

ＶＢ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

  • ddtqp
  • お礼率68% (139/203)

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

  • ベストアンサー
  • redfox63
  • ベストアンサー率71% (1325/1856)
回答No.2

おかしいですね 当方は VB2008/2005ですが実現できていますよ 追加したPictureBoxの親の指示が違っていませんか？ 通常ツールボックスからフォーム上にピクチャーボックスをドラッグアンドドロップした場合は 親がフォームになります つまり ピクチャーボックス同士は兄弟という関係です この場合重ね合わせても 兄弟を透過することは出来ませんので親(Form)の背景を描画してしまいます フォームを作成して BackCOlor適当にColor.Controlから Color.Redや Color.Greenなどに変更しておきます この状態で PictureBoxを追加してBorderStyleをFixedSingleなどにしてからBackColorを Color.Transparentに変更してみてください デザイナ画面でPictureBoxの枠線だけの描画になると思います ここまで出来れば先の回答の方法でうまくいくと思うのですが ・・・ 添付の画像は フォームにPictureBoxを2個追加してBackColorを変更した状態ですよ 緑色のPictureBoxの中の 赤色が2番目のPictureBoxで BackColorをTransparentに設定したものです

画像を拡大する
ddtqp
質問者

お礼

ありがとうございます。なんとかできました！ チャートにグラフを描いて、 折れ線グラフ上を移動するカーソルをピクチャーボックスに描くことにしました。 'カーソルセット Dim ActiveLine As Color = Color.Red Me.PictureBox1.Parent = Me.Chart1 '親設定 Me.PictureBox1.BackColor = Color.Transparent 'バックカラー透明 Me.PictureBox1.BringToFront() '最前面に配置 Dim CursorPen As New Pen(ActiveLine, 1) Me.PictureBox1.Image = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Dim g = Graphics.FromImage(Me.PictureBox1.Image) g.DrawEllipse(CursorPen, 5, 5, 10, 10) g.DrawLine(CursorPen, 0, 10, 20, 10) g.DrawLine(CursorPen, 10, 0, 10, 20)

その他の回答 (1)

  • redfox63
  • ベストアンサー率71% (1325/1856)
回答No.1

やるならば PictureBoxを2個使ったほうがいいように思いますよ 1つ目にグラフを描画します 2つ目にはカーソルを描画 PictureBox2.BackColor = TransParent PictureBox2.Parent = PictureBox1 を Form_Loadイベントなどで設定します Paintイベントで 質問のカーソル描く 部分を描画してみましょう マウスの動きに合わせて PictureBox2のLocationを変更すればカーソルも動くと思いますよ

ddtqp
質問者

お礼

回答ありがとうございます。 ピクチャーボックス、透明にできないような感じです。

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

関連するQ&A

  • VB.NET：モーダルで表示したフォームを最小化

    Form2をForm1の所有として、モーダルで表示しました。 '------------------------ Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdChildMdl.Click 　'Form2を開く 　Dim frmN As New Form2 　frmN.ShowDialog(Me) 'MeはForm1 End Sub '------------------------ Form2が最小化された時に、親フォームであるForm1も最小化させたいと思い、 Form2のResizeメソッドに以下のようなコードを書きました。 '------------------------ Private Sub Form2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize 　Select Case Me.WindowState 　　Case FormWindowState.Minimized 　　　'親フォームも最小化((1)) 　　　Me.Owner.WindowState = FormWindowState.Minimized 　　Case FormWindowState.Maximized 　　　'親フォームも最大化((2)) 　　　Me.Owner.WindowState = FormWindowState.Maximized 　　Case FormWindowState.Normal 　　　'親フォームも通常サイズ((3)) 　　　Me.Owner.WindowState = FormWindowState.Normal 　End Select End Sub '------------------------ しかし、(2)、(3)は問題なく実行できるのですが、 (1)を実行すると、自フォーム(Form2)が閉じてしまうのです。 そういう仕様なのでしょうか？ ご存知の方、教えてください。よろしくお願いします。

  • VB2010でMDI親フォームから子フォームを表示

    VB2010でソフトを作っております。 MDI親フォームから子フォームを表示させたいのですが…。 過去に少しだけVB6を使っていたことがありますが、クラスという概念に苦労しております インスタンスや初期化といったところをうまく扱えばとは思うのですが、よろしくご指導お願いいたします。 1.MDI親フォーム(Form1)のボタンを押し、子フォーム(Form2)を表示させる 2.子フォームが表示されていなかったら表示させる 3.子フォームが表示されていたら何もしない これだけの事ですがずいぶん悩んでおります。 全コードがこれです。 Public Class Form1 Private f2 As New Form2 Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.IsMdiContainer = True End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fChild As Form() = Me.MdiChildren For Each f As Form In fChild If f.Text = "Form2" Then Exit Sub End If Next f2 = New Form2 f2.MdiParent = Me f2.Show() f2.Activate() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If f2 Is Nothing OrElse f2.IsDisposed Then f2 = New Form2 f2.MdiParent = Me End If f2.Show() f2.Activate() End Sub End Class ボタン１でもボタン２でも、期待する動作はするのですが、 ボタン１ではアクティブになっているフォームの名前を力技で取得している気がして… ボタン２では子フォーム(Form2)をすでに表示している状態でもさらにShowをしているのが気に入らなくて… もっとスマートな方法がありましたら、ご指導お願いします。

  • VB.NET　フォーム上に描いたグラフィックのクリア方法

    最近、VB6からVB.NET 2003へプログラムの移行作業を始めたものです。極々基本的なことなのかもしれませんが、.NETでフォームに描いたグラフィック（線や円など）を消去するコードがなかなかうまく書けず困っています。 VB6でしたら Form**.Cls だけで消えるのですが、それに対応するコードはどのように記載すれば宜しいでしょうか？ ヘルプなどで見るとClearメソッドを使用するとありましたが、どうもうまく動きません。 例えば、以下の簡単な例でしたらどのように変えれば宜しいでしょうか？ 宜しくお願いいたします。 Private Sub Button1_Click(ByVal sender As　System.Object, ByVal e As System.EventArgs) Handles Button1.Click 　　Dim grph As System.Drawing.Graphics 　　grph = Me.CreateGraphics 　　grph.DrawLine(Pens.Red, 50, 25, 200, 150) 　　ClearScreen(e) End Sub Public Sub ClearScreen(ByVal e As PaintEventArgs) 　　Dim BGcolor As Color 　　BGcolor = Color.FromArgb(0, 0, 0) 　　e.Graphics.Clear(BGcolor) '背景色 End Sub Private Sub Button2_Click(ByVal sender As　System.Object, ByVal e As System.EventArgs) Handles Button2.Click 　　ClearScreen(e) End Sub

  • VB.net(.net framework 3.5 sp1)でフォーム

    VB.net(.net framework 3.5 sp1)でフォーム上に設置したコントロールのプロパティを一括で設定する方法はないでしょうか？ 下記は実行しても反映されないのですが、処理のイメージとしてはこんな形です。 Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim test As New Button test.Text = "TEST" test.Top = 0 Me.Button1 = test End Sub End Class

  • VB2005 フォームの再表示

    プログラムを終了する時、“プログラムを終了しますか？”というメッセージを表示し“はい”ボタンを押すとプログラムを終了、“いいえ”ボタンを押すとプログラムを終了しないようにしたいのですが、“いいえ”ボタンを押すとフォームが消えてしまいます。この時プログラムは終了していません。消えているフォームを再度表示したいのですが、どうしたら良いのか分かりません。Me.Show()、Me.Refresh()とかを使用しても表示されません。現在のコードを記載しますのでどなたか教えて下さい。よろしくお願いします。 Private Sub MainDisp_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Dim resources As System.ComponentModel.ComponentResourceManager _ = New System.ComponentModel.ComponentResourceManager(GetType(MainDisp)) Dim msg As String Dim ret As String Beep() msg = My.Resources.msg001 resources.ApplyResources(msg, "msg") ret = MsgBox(msg, MsgBoxStyle.YesNo + MsgBoxStyle.Question, My.Resources.msg002) If ret = vbYes Then End Else Me.Show() Me.Refresh() End If End Sub

  • ３フォームの重なり順を変えない方法＋同時最小化

    　今晩は、質問させていただきます。どうぞよろしくお願いいたします。 Form1（メインフォーム）の下にForm2を、 Form2の下にForm3を表示し、これらの順番が変わらないように致したく、 次のようにコーディングいたしました。 【Form1のコード】 　Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 　　　Dim form2o As New Form2 　　　Dim form3o As New Form3 　　　Me.Owner = form2o 　　　form2o.Show() 　End Sub 【Form2のコード】 　Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 　　　Dim form3o As New Form3 　　　Me.Owner = form3o 　　　form3o.Show() 　End Sub 　この状態のまま、タスクバー上のアプリケーション名をクリックした際の 最小化⇔普通化を（３フォームとも一緒に）させたいのですがうまくいきません。。 　Form1に、下の【コード１】のようにコーディングいたしましたら、 タスクバーのForm1クリック（最小化）　→３つとも最小化（成功）いたしますが、 Form1とForm2がタスクバー上から消えてしまい、Form1クリックによる最大化ができなくなります。 　またForm3に、下の【コード２】のようにコーディングいたしましたら、 タスクバーのForm3をクリックしてもForm1が一回ちらつくだけで、最小化すらできません。。 　まったく違うイベントを取る方法や、Owner指定方法自体を行わない方法でも結構でございますので、 何かこの動作をうまくできる方法はないでございましょうか？ 　ずっと悩んでおりますが、解決致しません。もしお詳しい方がいらっしゃいましたら， 是非ともアドバイスいただきたく、どうぞよろしくお願いいたします。 【コード１】 　　Public Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize 　　　　Dim form2o As New Form2 　　　　If Me.WindowState = FormWindowState.Minimized Then 　　　　　　Owner.WindowState = FormWindowState.Minimized 　　　　　　Owner.Owner.WindowState = FormWindowState.Minimized 　　　　ElseIf Me.WindowState = FormWindowState.Normal Then 　　　　　　Owner.WindowState = FormWindowState.Normal 　　　　　　Owner.Owner.WindowState = FormWindowState.Normal 　　　　End If 　　End Sub 【コード２】 　　Public Sub Form3_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize 　　　　If Me.WindowState = FormWindowState.Minimized Then 　　　　　　Form1.WindowState = FormWindowState.Minimized 　　　　　　Form2.WindowState = FormWindowState.Minimized 　　　　ElseIf Me.WindowState = FormWindowState.Normal Then 　　　　　　Form2.WindowState = FormWindowState.Normal 　　　　　　Form1.WindowState = FormWindowState.Normal 　　　　End If 　　End Sub 　何卒お願いいたします。

  • フォームを画面のど真ん中に表示させたいのですが

    フォームを画面のど真ん中に表示させたいのですが、 http://dobon.net/vb/dotnet/form/startposition.html を見たのですがコードの書き方がよくわかりません。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim f As New Form1() 'フォームを画面の真ん中に表示する f.StartPosition = FormStartPosition.CenterScreenf.Show() End Sub End Class こうすると、「FormStartPosition.CenterScreenf」の部分に波線がひかれます。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.StartPosition = FormStartPosition.Manual Me.Location = New Point(0, 0) End Sub End Class これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか？

  • 特定のフォームだけ別フォームからの参照がされません

    VB 2005,Framework2.0を使用しています。 現在、サブフォームからダイアログフォームを表示し、ダイアログフォーム内の入力値等をサブフォームに渡す処理を行っています。 サブフォームは複数作成しており、特定のサブフォームだけダイアログフォームの入力値がサブフォームに渡されず原因が分からなくて困っています。 コードは以下のような形で書いています。 'サブフォーム Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim f As New Dialog1 f.StartPosition = FormStartPosition.CenterParent f.ShowDialog() End Sub End Class 'ダイアログフォーム Public Class Dialog1 Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click Form1.Label1.Text = Textbox1.text Me.Close() End Sub End Class 2005では、別フォームからの参照はVB6と同じようにインスタンスを作成しなくても参照できる様になったと聞いていますので、上記のコードでも参照方法として問題はないと思うのですが、うまく動作しない原因が分かる方が居られましたら宜しくお願いします。

  • VS2005 line

    Visual Basic 2005での質問です。 フォームが開いた時、線を一本ひくには Private Sub Form1_Paint(ByVal sender As Object, ByVal e _ As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint e.Graphics.DrawLine(Pens.Black, 0, 25, Me.Width, 25) End Sub でわかりましたが、 ボタンを一個置いて、それをクリックした時、線を一本ひくにはどうしたらいいですか。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click XXXXX.DrawLine(Pens.Black, 0, 25, Me.Width, 25) End Sub XXXXX.の所をなんて記述したらいいのでしょうか？ アクセスのＶＢＡしか使ったことがないもので・・・

  • VB２００８でフォームに文字列をスクロールさせたい

    VB２００８でフォーム上に右～左にフェイドイン、フェイドアウトする 物を作ろうとしてるのですが、どうしてもわからないので書き込みしました。 フォーム1にテキストボックスとボタンがあり、 ボタンを押す事によりテキストボックスの文字列をフォーム２の画面上に 表示し、右～左（HTMLLで言うとキーマー）に動くようにしたいのですが 右からって事は一番右の値が+だと思うのですがフォーム2は大きさを自由に 変更できるので大きさをさらに大きくした場合途中で消えてしまいます。 あと、タイマーでするとタイマーが終わるまで実行できないので 文字が流れてる間もボタンを押す事にｙの値を変えて、 複数実行させたいのです。 以下が試しに書いてみたプログラムです。 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim objG As Graphics objG = Form2.CreateGraphics() objG.Clear(Form2.BackColor) objG.DrawString(Text1.Text, Label1.Font, New SolidBrush(Label1.ForeColor), iLight, 50 + Form2.Width) iLight += -1 If iLight < -50 Then Timer1.Stop() End If objG.Dispose() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = 1 Timer1.Start() End Sub すみませんがよろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する