جربه الان انسخه ولصق مثل ماهو
انت لم تضع system.IO
هذا الكود
واذا كنت تريده دون وضع مسار فهذا الكود
انت لم تضع system.IO
هذا الكود
كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim TextFile As String
TextFile = My.Computer.FileSystem.ReadAllText("ãÓÇÑ ÇáãáÝtext.txt")
For i = 1 To TextFile.Split(vbNewLine).Count
Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)
Next
Catch MUDZ As Exception
End Try
End Sub
End Class
واذا كنت تريده دون وضع مسار فهذا الكود
كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
'(f)ضع ملف التكست في ركويست ثم ضع اسمه بدل حرف
Dim TextFile As String = My.Resources.f
For i = 1 To TextFile.Split(vbNewLine).Count
Controls("TextBox" & i).Text = TextFile.Split(vbNewLine)(i - 1)
Next
Catch MUDZ As Exception
End Try
End Sub
End Class
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها