上传者: ygxlf
|
上传时间: 2019-12-21 22:10:49
|
文件大小: 719B
|
文件类型: txt
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(Application.StartupPath & "\tmp.Txt", System.Text.Encoding.Default)
Dim line As String
line = sr.ReadLine
Me.ToolStripStatusLabel2.Text = line
line = sr.ReadLine
Me.ToolStripStatusLabel4.Text = line
line = sr.ReadLine
Me.ToolStripStatusLabel2.ToolTipText = line
line = sr.ReadLine
Me.ToolStripStatusLabel4.ToolTipText = line
sr.Close()