[أسامة]

(05-03-16, 03:51 PM)سعود كتب : شوف طريقة بسيطة

PHP كود :

Public Class Form1
    Private Sub savetotxt()
        Dim b As String = ""
        Dim ofd As New SaveFileDialog
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            If ofd.FileName.ToString.Trim = "" Then Exit Sub
            For a = 0 To ListBox1.Items.Count - 1
                b &= ListBox1.Items.Item(a).ToString & vbNewLine
                My.Computer.FileSystem.WriteAllText(ofd.FileName, b, False)
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        savetotxt()
    End Sub
End Class 


(05-03-16, 04:04 PM)khodor1985 كتب : وهذه طريقة أخرى أيضا :

PHP كود :

Dim s As StreamWriter = New StreamWriter("D:\txt1.txt")
        For i = 0 To ListBox1.Items.Count - 1
            s.WriteLine(ListBox1.Items.Item(i))
        Next
        s.Close() 


أتمنى لك التوفيق

شكرآ لاكن لا يمكننى اضافة Name=