منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوتي الكرام
عندي داتا جريد فيو
واريد عند الضغط علي صف معين يظهرلي ال SaveFileDialoge فيقوم المستخدم باختيار مكان معين لحفظ الملف فيه ووضع اسم الملف
معالعلم ان اسم الملف هو العمود الاول من الداتا فيو
الي هنا لا توجد مشاكل
ولكن السؤال هو :
عند ظهور ال  SaveFileDialoge   اريد ان يظهر اسم العمود الاول من الداتا جريد فيو في ال File name بتاع SaveFileDialoge 
يعني اسم الملف يكون مكتوب جاهز

(03-12-19, 03:24 AM)Emam emam كتب : [ -> ]السلام عليكم اخوتي الكرام
عندي داتا جريد فيو
واريد عند الضغط علي صف معين يظهرلي ال SaveFileDialoge فيقوم المستخدم باختيار مكان معين لحفظ الملف فيه ووضع اسم الملف
معالعلم ان اسم الملف هو العمود الاول من الداتا فيو
الي هنا لا توجد مشاكل
ولكن السؤال هو :
عند ظهور ال  SaveFileDialoge   اريد ان يظهر اسم العمود الاول من الداتا جريد فيو في ال File name بتاع SaveFileDialoge 
يعني اسم الملف يكون مكتوب جاهز

نفس الصنف SaveFileDialog يحتوي خاصية هي FileName قم بتعديل قيمتها قبل ان تفتح الـSaveFileDialog 

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
MessageBox.Show("all saved!")

(03-12-19, 05:15 AM)معاند الحظ كتب : [ -> ]

(03-12-19, 03:24 AM)Emam emam كتب : [ -> ]السلام عليكم اخوتي الكرام
عندي داتا جريد فيو
واريد عند الضغط علي صف معين يظهرلي ال SaveFileDialoge فيقوم المستخدم باختيار مكان معين لحفظ الملف فيه ووضع اسم الملف
معالعلم ان اسم الملف هو العمود الاول من الداتا فيو
الي هنا لا توجد مشاكل
ولكن السؤال هو :
عند ظهور ال  SaveFileDialoge   اريد ان يظهر اسم العمود الاول من الداتا جريد فيو في ال File name بتاع SaveFileDialoge 
يعني اسم الملف يكون مكتوب جاهز

نفس الصنف SaveFileDialog يحتوي خاصية هي FileName قم بتعديل قيمتها قبل ان تفتح الـSaveFileDialog 

كود :

SaveFileDialog.FileName="The name you want"

الف مليون شكر اخي
جزاك الله خيرا
فعلا اشتغلت كويس  معايا

---

(03-12-19, 07:19 AM)malek369 كتب : [ -> ]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
       MessageBox.Show("all saved!")

اشكرك اخي شكرا كثيرا علي اهتمامك
وبارك الله فيك