gole_maryam
دوشنبه 08 اسفند 1384, 22:51 عصر
سلام
می خواستم بدانم چطور می توانم تمام محتویات یک لیست باکس را در درون یک فایل متنی کپی کنم
asilverisis
سه شنبه 09 اسفند 1384, 01:02 صبح
سلام
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
Try
Dim f As New IO.StreamWriter(SaveFileDialog1.FileName)
Dim i As Integer
For i = 0 To LsbShow.Items.Count - 1
f.WriteLine(LsbShow.Items(i).ToString)
Next
f.Close()
MsgBox("Export Complete.")
Catch ex As Exception
MsgBox("ERROR in Creating file.")
End Try
End If
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.