18-04-20, 06:46 AM
18-04-20, 01:11 PM
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "NotePad (*.txt)|*.txt"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = My.Computer.FileSystem.ReadAllText(ofd.FileName, System.Text.Encoding.UTF8)
End If
End Sub
19-04-20, 02:48 PM
(18-04-20, 01:11 PM)asemshahen5 كتب : [ -> ]شكرانPHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "NotePad (*.txt)|*.txt"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = My.Computer.FileSystem.ReadAllText(ofd.FileName, System.Text.Encoding.UTF8)
End If
End S
19-04-20, 03:07 PM
الحمد لله و الشكر لله .