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

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



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

السلام عليكم ورحمت الله وبركتو
بعد ازنكم سؤل هل في كود يخليني اضغط علي زر وبلتلي يحفظ الكلام المكتوب دخل تيكست بوكس
وشكران مقدمام



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

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim sfd 
As New SaveFileDialog
        sfd
.Filter "NotePad (*.txt)|*.txt"
 
       If sfd.ShowDialog Windows.Forms.DialogResult.OK Then
            My
.Computer.FileSystem.WriteAllText(sfd.FileNameTextBox1.TextTrue)
 
       End If
 
   End Sub 



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

(18-04-20, 01:42 AM)asemshahen5 كتب :
PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim sfd 
As New SaveFileDialog
        sfd
.Filter "NotePad (*.txt)|*.txt"
 
       If sfd.ShowDialog Windows.Forms.DialogResult.OK Then
            My
.Computer.FileSystem.WriteAllText(sfd.FileNameTextBox1.TextTrue)
 
       End If
 
   End Sub 

شكران لحضرت بس بعد ازنك ممكن سؤل اخر 
هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران


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