I)eathBringer (Normal User)
Pro
Messaggi: 127
Iscritto: 11/08/2008
|
Codice sorgente - presumibilmente VB.NET |
Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click Dim save As New SaveFileDialog save.Filter = "File di testo|*.txt" If save.ShowDialog = Windows.Forms.DialogResult.OK Then Dim writer As New IO.StreamWriter(save.FileName) For i As Integer = 0 To ListBox1.Items.Count - 1 writer.WriteLine(ListBox1.Items.Item(i)) Next writer.Close() End If End Sub
|
Ultima modifica effettuata da I)eathBringer il 11/12/2008 alle 13:40 |