[معاند الحظ]

(02-12-19, 08:54 AM)malek369 كتب : اخي شكرا لك زبطت 100% يعطيك الف عافية في ميزان حسناتك
بس سؤال اخير صديقي هل يمكن اخليه اجباري يحفظ بصيغة txt لانو بيحفظ بدون اي صيغة هيك وشكرا مرة تانية

طبعا يمكنك باستخدام الخاصية Filter التابعة لنفس الاداة
فقط اضف السطر التالي الى الكود 

كود :

      Dim saveTo As New SaveFileDialog
       saveTo.Filter = "Text files (*.txt)|*.txt "


       If saveTo.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim W As IO.StreamWriter
           Dim i As Integer
           W = New IO.StreamWriter(saveTo.FileName, True)

           For i = 0 To ListBox2.Items.Count - 1
               W.WriteLine(ListBox2.Items.Item(i))
           Next
           W.Close()
       End If