タイトル : Re^12: 「解決」追加Formの移動で描いた図が消える 投稿日 : 2009/08/26(Wed) 11:35 投稿者 : chime
魔界の仮面弁士さん コメントありがとうございます。 Bitmap Imageによる方法を検討し、Windows重畳による画像消去対策に成功 しました。 (1) Dim g* As Graphics文をすべて書き換え (2) PictureBox*.Refresh()をはずし (3) AutoRedraw Functionを追加 が修正項目です。これで、問題は完全に処理されました。Redrawボタンを 消します。 激励ありがとうございました。 chime 以下は修正の具体的コードです。 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form3.Show() 'Dim g11 As Graphics = Form3.PictureBox1.CreateGraphics ........................ 'Dim g22 As Graphics = Form3.PictureBox12.CreateGraphics ........................ Dim g11 As Graphics = AutoRedraw (Form3.PictureBox1) ........................ Dim g22 As Graphics = AutoRedraw(Form3.PictureBox12) 'Form3.PictureBox1.Refresh() ........................ 'Form3.PictureBox12.Refresh() 画像描画処理コード End Sub Public Function AutoRedraw(ByVal Orgpic As PictureBox) As Graphics If Orgpic.Image Is Nothing Then Orgpic.Image = New Bitmap(Orgpic.Width, Orgpic.Height) End If Return Graphics.FromImage(Orgpic.Image) End Function |