[محمد ايمن]

هو في كود يخليني افتح ورقه دخل تكست بوكس

 وشكران

[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 Sub 


[محمد ايمن]

(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 


شكران

[asemshahen5]

الحمد لله و الشكر لله .