掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
オブジェクト指向について (ID:146227)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
プロパティを設定してみました（VB2008) 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 Sub go() dx = 1 - dx If dx > 0 Then Form1.PictureBox1.BackColor = Color.GreenYellow Form1.Timer1.Interval = 2000 Else Form1.PictureBox1.BackColor = Color.Gold End If End Sub Public Property taiki() As Integer Get Return dx End Get Set(ByVal value As Integer) If value = 0 Then dx = value End Set End Property Sub start() Form1.Timer1.Start() End Sub End Class
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.