[فارس جراح]

السلام عليكم ورحمة الله

لو سمحتم طلبي هو كود حفظ النص المكتوب داخل listBOX 

جربت كود حفظ من TextBox عم يحفظ بس المستند يطلع فارغ

ارجوا منكم مساعدتي

وشكرا 

[dark1459]

تفضل اخي الكريم

ListBox1.Items.Add(TextBox2.Text)

[فارس جراح]

(14-11-16, 11:37 PM)dark1459 كتب : تفضل اخي الكريم

ListBox1.Items.Add(TextBox2.Text)

مشكور اخي ولكن ليس هذا ماطلبت 
طلبي هو حفظ النص منListBox الى مستند نصي 

[سعود]

ممكون تشوف الرابط
http://stackoverflow.com/questions/27322...opening-it

[dark1459]

تفضل اخي الكريم :

Dim x As Long
For x = 0 To ListBox1.Items.Count - 1

TextBox2.Text = ListBox1.Items(x).ToString


Next

وهكذا عندما تريد اضافة اكثر من text

[ابو ليلى]

كما اشار لك الاخ سعود 

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SaveFD As New SaveFileDialog()
        SaveFD.Filter = "TXT Files (*.txt*)|*.txt"
        If SaveFD.ShowDialog() = DialogResult.OK Then
            Dim sb As New System.Text.StringBuilder()

            For Each o As Object In ListBox1.Items
                sb.AppendLine(o)
            Next

            System.IO.File.WriteAllText(SaveFD.FileName, sb.ToString())
        End If
    End Sub 


[فارس جراح]

(14-11-16, 11:55 PM)سعود كتب : ممكون تشوف الرابط
http://stackoverflow.com/questions/27322...opening-it

بارك الله فيك اخي الكود الي في الرابط ينقصو امتداد txt وقد قمت بالتعديل عليه وتم بنجاح

جزاك الله عني خيرا 

وهذا الكود لكي يستفيد منه غيري

كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim dz As New SaveFileDialog
       dz.Filter = "TEXT File|*.txt"
       dz.FileName = "new list.txt"
       If dz.ShowDialog() = DialogResult.OK Then
           Using Writer = New StreamWriter(dz.FileName)
               For Each o As Object In ListBox1.Items
                   Writer.WriteLine(o)
               Next
           End Using

       End If
   End Sub

---

(15-11-16, 12:19 AM)ابو ليلى كتب : كما اشار لك الاخ سعود 

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SaveFD As New SaveFileDialog()
        SaveFD.Filter = "TXT Files (*.txt*)|*.txt"
        If SaveFD.ShowDialog() = DialogResult.OK Then
            Dim sb As New System.Text.StringBuilder()

            For Each o As Object In ListBox1.Items
                sb.AppendLine(o)
            Next

            System.IO.File.WriteAllText(SaveFD.FileName, sb.ToString())
        End If
    End Sub 


مشكور اخي ابو ليلى بارك الله فيك وجزاك الله خير

[LoveVb]

كود اخر

كود :

Io.File.writealltext("c:\a.txt",string.join(vbnewline,listbox1.items.cast(of string).toarray))