グラフックが消えてしまう

質問

ｖｂ２０１０expressの初心者です
シリアル通信で温度が送られてきます。それをＴｉｍｅｒ１を使って定期的に
グラフ化して表示しています。プログラムは

Private Sub Timer1_Tick
grph =PictureBox1.CreateGraphics()
grph.DrawEllipse(Pens.Black, x, y, 2, 2)

と、ここまではなんとか成功しています。ところが別のアプリを起動したりして
グラフが隠れてしまうと、これまで描いたグラフが消えてしまいます。そこで
ｐａｉｎｔでやってみたんですが、たしかに一度目のデータは消えないけど今度は
二番目からのデータが更新されずかたまったままです。プログラムは

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As ＿　　　　System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawEllipseLine(Pens.Red, x, y, 2, 2)

なんかむづかしいですね。どうしたらいいんでしょうか。

回答No.1

redfox63 · ベストアンサー

描画したデータを蓄積しておいて 再描画の際にすべて書き直すという具合にするか
BITMAPやImageなどから Graphicsオブジェクトを生成して描画し、PictureBoxのImageプロパティへ設定する
といった手法をとりましょう

フォームのクラス変数として
Dim objBitmap as Bitmap
を宣言しておきます

Form_Loadなどのイベントで
objBitmap = new Bitmap( PictureBox1.Width, PictureBox.Height)
といった具合に 実体化しておきます

描画イベントで
dim g as Graphics = Graphics.FromImage( objBitmap )
g.DrawEllipseLine( Pens.Red, x, y, 2, 2 )
g.Dispose
PictureBox1.Image = objBitmap
といった具合にして見ましょう

コントロール.CreateGraphicsは一時的な描画に使うほうがいいのかもしれません

2番目以降のデータの更新をしたときに Paintイベントを呼ぶようにしていなければ描画はされませんよ
PictureBox1.Refreshとか PictureBox1.Invalidateとか

お礼

回答ありがとうございます。
回答のほどんどが理解できないことばかりですがＴＲＹしてみたいと
おもいます。