VB2005 グラフィック操作 (ID:141807)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB2005、WindowsXPでグラフィック初挑戦です。 With Me.SplitContainer1.Panel1 .BackColor = Color.White Dim b As New Bitmap(.ClientSize.Width, .ClientSize.Height) MsgBox(.ClientSize.Width & " " & .ClientSize.Height) Dim g As Graphics = Graphics.FromImage(b) g.DrawEllipse(Pens.Red, 10, 10, 50, 80) g.DrawLine(Pens.Black, 0, 0, 100, 200) .BackgroundImage = b .BackgroundImageLayout = ImageLayout.None g.Dispose() Me.Refresh() End With 上記のコードで .BackColor = Color.White の部分は変化するので期待通りの動作をしていることが確認できています。 MsgBoxの表示は「223 192」なのでPanelの大きさも問題ないと思います。 しかしDrawEllipse、DrawLine の結果であるはずの赤い楕円形と黒い斜線 は現れません。 上記の1行目を With Me とすればフォームの背景が白色になり、左上の隅に楕円形と斜線が表示されます。 Panelの場合は何か別の操作が必要なのでしょうか？