タイトル : 解決しましたっ! 投稿日 : 2008/01/28(Mon) 07:24 投稿者 : たつかわさん
> 下記のコードを実行すると、フォームに一瞬だけボールが表示されるのですが、すぐに消えてしまいます。 > 消えないようにする方法をご存知でしたら、ぜひご教授いただきたくよろしくお願いします。 > > > OS : Windows XP Home Edtion(SP2) > > ------------------------------------------------------------------------------- > Public Class Form1 > > Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load > > Me.Show() > Call ボールを描く() > > End Sub > > Private Sub ボールを描く() > Dim g As Graphics = Me.PictureBox1.CreateGraphics > Dim i As Integer > Dim x As Integer > Dim y As Integer > Dim n As String > > For i = 1 To 10 > x = 0 + i * 50 > y = 0 > Dim b2 As New Drawing2D.LinearGradientBrush( _ > New Rectangle(x, y, 50, 50), _ > Color.Yellow, Color.Red, _ > Drawing2D.LinearGradientMode.ForwardDiagonal) > > g.FillEllipse(b2, x, y, 50, 50) > Next > > g.Dispose() > > End Sub > > End Class > ------------------------------------------------------------------------------- |