27-10-18, 12:18 PM
(آخر تعديل لهذه المشاركة : 28-10-18, 12:17 AM {2} بواسطة حريف برمجة.)
نقوم بانشاء تكست بوكس وليكن بحجم كبير حتى يتمكن لنا ادراج نص طويل بداخلة ثم نقوم بانشاء زر لجلب التكست الخارجي ونقوم باضافة الكود التالي داخل الحدث 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