VB.NET質問ｽﾚ (Part20)

1 名前：デフォルトの名無しさん mailto:sage [2007/03/05(月) 11:19:36 ] 前スレVB.NET質問ｽﾚ (Part19) pc11.2ch.net/test/read.cgi/tech/1168585041/ 330 名前：デフォルトの名無しさん [2007/03/22(木) 11:30:24 ] VB2005．NETをはじめたばかりの初心者ですので、レベルの低い問いを勘弁してください。 Form1に貼ったlabel1に現在時刻を表示するプログラムですが、８時から１７時の間だけlabel1のbackcolorをLightGreenにしたいのです。 どのようにしたらよいのでしょうか？ Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = DateTime.Now.ToString End Sub End Class 331 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 11:38:18 ] >>330 こんな感じでええんちゃうのん？ 動かしてないけどなんとなく感覚はわかってもらえるんじゃないかと Dim NowHour As Integer = Date.Now.Hour If NowHour >= 8 AndAlso NowHour <= 17 Then If label1.backcolor <> Color.LightGreen Then label1.backcolor = Color.LightGreen End If Else If label1.backcolor <> Color.Transparent Then label1.backcolor = Color.Transparent End If End If 332 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 11:40:53 ] NowHour < 17 じゃね? 333 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 11:43:15 ] >>332 あ〜　そうだねｗ 多分会社の定時なんだろうけど これじゃ17時台も色変わるなｗｗｗ

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef