比较计时器和文本文件

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

比较计时器和文本文件

Comparing timer and text file

vb.net

text

time

comparison