| Код |
Public Class Form1
Dim reader As New System.IO.StreamReader("C:\Users\admin 1\Desktop\Новый текстовый документ.txt")
Dim allLines As List(Of String) = New List(Of String)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Do While Not reader.EndOfStream
allLines.Add(reader.ReadLine())
Loop
reader.Close()
Label1.Text = ReadLine(1, allLines)
Label1.Text = ReadLine(1, allLines)
End Sub
Public Function ReadLine(ByVal lineNumber As Integer, ByVal lines As List(Of String)) As String
Return lines(lineNumber - 1)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class
|
|