27-10-18, 12:18 PM
نقوم بانشاء تكست بوكس وليكن بحجم كبير حتى يتمكن لنا ادراج نص طويل بداخلة ثم نقوم بانشاء زر لجلب التكست الخارجي ونقوم باضافة الكود التالي داخل الحدث click
كود :
Dim ahmad As New OpenFileDialog
ahmad.Filter = "Text file (*.txt)|*.txt"
ahmad.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
If ahmad.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
Dim myfile As String = ahmad.FileName
Dim reader As New System.IO.StreamReader(myfile)
TextBox1.Text = reader.ReadToEnd