Visual Basic NET ( 3)


         

:


Dim As New System.IO.StreamWriter("E:\VB\.txt", True) '
.WriteLine(_)
.WriteLine(A)
.WriteLine()
.Close()
End Sub
Private Sub __()
Dim As New System.IO.StreamReader("E:\VB\.txt") '
SecretNumber = .ReadLine '
Debug.WriteLine(" ߠ ")
' :
Do While .Peek() <> -1
_ = .ReadLine
A = .ReadLine
= .ReadLine
Debug.WriteLine(_ & " " & A & " " & )
Loop
.Close() '
' :
txtNumber.Text = A
lblMessage.Text =
lblNumberTry.Text = " = " & _
End Sub
: : txtNumber, , lblNumberTry, , lblMessage , . Button1, . , . .
139.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = Image.FromFile(".jpg")
PictureBox1.BorderStyle = BorderStyle.None

    





Forekc.ru
, , , , , , , , , ,