投稿者 RJ  (社会人) 投稿日時 2016/9/30 15:56:02
魔界の仮面弁士 様

さっそくやってみました!できました
ありがとうございます

何もしてない時間はクリアーにするにはこれでよろしいでしょうか??

ちょうど15:40からでスタートしています

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim dt As Date = Now
        Dim hm As Integer = dt.Hour * 100 + dt.Minute

        If 1540 <= hm AndAlso hm < 1550 Then
            TextBox1.Text = "テスト"
            TextBox1.ReadOnly = True
        Else
            TextBox1.ReadOnly = False
        End If

    If 1550<= hm AndAlso hm < 1600 Then
            TextBox1.Text = ""
            TextBox1.ReadOnly = True
        Else
            TextBox1.ReadOnly = False
        End If

        If 1600 <= hm And hm < 1610 Then
            TextBox2.Text = "テスト②"
            TextBox2.ReadOnly = True
        Else
            TextBox2.ReadOnly = False
        End If

    End Sub
End Class


他の時間帯になると
textboxは表示されてるままになりますよね?

もし表示したくなければ
あとの時間の処理に""をすれば

よろしいでしょうか??

Timespanでも試してみて
できました

非常にわかりやすくてすごく助かります
ありがとうございます。