منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران (/showthread.php?tid=34363)

هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران - محمد ايمن - 18-04-20

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


RE: هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران - asemshahen5 - 18-04-20

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 


RE: هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران - محمد ايمن - 19-04-20

(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 
شكران

RE: هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران - asemshahen5 - 19-04-20

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