tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。