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

タイトル ： VB2005で質問です
投稿日： 2008/01/27(Sun) 20:29
投稿者： たつかわさん
下記のコードを実行すると、フォームに一瞬だけボールが表示されるのですが、すぐに消えてしまいます。
消えないようにする方法をご存知でしたら、ぜひご教授いただきたくよろしくお願いします。


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
-------------------------------------------------------------------------------
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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