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

名前

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

本文 我が輩はオブジェクト指向について勉強中のものです PictureBoxの色を周期的に変化するプログラムを作って みました。（もっともこのようなプログラムはオブジェクト指向 でつくるのは時間の無駄だと思いますが） このような感じでいいものかどうかご意見聞かせてね。 え〜なにこれ (@_@)とあきれないでくださいねなにしろとうしろうなものですから。 Public Class Form1 Dim henkan As irohenkan = New irohenkan '色変換クラスのインスタンス生成 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click henkan.start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick henkan.go() End Sub End Class Class irohenkan '色変換クラス Private dx As Integer = 40 Sub start() Form1.Timer1.Start() End Sub Sub go() dx = 100 - dx If dx < 60 Then Form1.PictureBox1.BackColor = Color.GreenYellow Form1.Timer1.Interval = 2000 Else Form1.PictureBox1.BackColor = Color.Gold End If End Sub End Class