VB.NET質問ｽﾚ (Part20)

VB.NET質問ｽﾚ (Part20 ..

331:デフォルトの名無しさん
07/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

次ページ