| タイトル | ： VB2005で質問です |
| 記事No | ： 6904 |
| 投稿日 | ： 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
-------------------------------------------------------------------------------
|