Excel Forum

Code: Select all

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim reader As New System.IO.StreamReader("D:\texttest.txt")
        Dim a As String
        'TextBox1.Multiline = True
        'TextBox1.ScrollBars = ScrollBars.Both
        'Me.Controls.Add(TextBox1)
        'TextBox1.WordWrap = True

        a = reader.ReadLine()
        reader.Close()
        TextBox1.Text = a


    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        'TextBox2.Clear()
        'TextBox3.Clear()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay.ToString("h:mm:ss tt")
    End Sub
End Class