Сравнение таймера и текстового файла

Question

Я очень плохо знаком с VB (не моя специализация). Я ищу и пытаюсь найти команду сравнения для текстового файла журнала моего exe.

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


    Dim Findstring = IO.File.ReadAllText("C:\Users\JBP-Admin\Desktop\Pugad\Mobile Support\catch.txt")
    Dim Lookfor As String = showdat.Text

    If Findstring.Contains(Lookfor) Then
        MsgBox("Found: " & Lookfor)


    End If



End Sub

Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles DateAndTime.Tick
    DateAndTime.Start()
    ' Me.Text = DateAndTime.Now.ToString("MM/dd/yyyy hh:mm:ss tt")
    showdat.Text = Format(Now, "MM/dd/yyyy hh:mm:ss tt")
End Sub

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles showdat.Click

Answer 1

Вы должны переместить код из Form1_Load в обработчик событий Timer Tick и из DateAndTime.Start в Form1_Load:

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

    DateAndTime.Start()

End Sub

Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles DateAndTime.Tick
    Dim Findstring = IO.File.ReadAllText("C:\Users\JBP-Admin\Desktop\Pugad\Mobile Support\catch.txt")
    Dim Lookfor As String = Format(Now, "MM/dd/yyyy hh:mm:ss tt")

    showdat.Text = Lookfor

    If Findstring.Contains(Lookfor) Then
        MsgBox("Found: " & Lookfor)
    End If

End Sub