オブジェクト指向について (ID:146240)

名前

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

本文 これで遊んで。 Option Strict On 'VisualBasic2008 Public Class Form1 Private red As Integer Private green As Integer Private blue As Integer Private myRandom As System.Random Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick myRandom = New System.Random() red = myRandom.Next(255) green = myRandom.Next(255) blue = myRandom.Next(255) PictureBox1.BackColor = Color.FromArgb(255, red, green, blue) PictureBox1.Invalidate() End Sub End Class