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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 ObjectAs EventArgsHandles 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.FileNameSystem.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 ObjectAs EventArgsHandles 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.FileNameSystem.Text.Encoding.UTF8)
 
       End If
 
   End S 
شكران


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

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