كيف انقل من Listbox الى ملف

طب أنا راضى ذمتك , يعنى ايه :

list1.Text

هى الـ List بقت بقدرة قادر Textbox , سبحان الله هو أى كود ينفع لأى حاجة نستخدمة لأى حاجة تانية ؟

و منحاولش حتى ندور ؟

' If we have a ListBox named lstLog and a CommandButton named cmdSave :
Option Explicit

Private Sub cmdSave_Click()
' It still need an Error Handler.
SaveListboxToFile lstLog, "C:\MyLog.log"
End Sub

Private Sub SaveListboxToFile(ctlListBox As ListBox, FilePath As String)
Dim FF As Integer, intCnt As Integer

FF = FreeFile()

Open FilePath For Append As #FF
	For intCnt = 0 To ctlListBox.ListCount - 1
		If Trim$(ctlListBox.List(intCnt)) <> "" Then Print #FF, Trim$(ctlListBox.List(intCnt))
	Next
Close #FF
End Sub

شكرا يااستاذ بس انت لسة مصر على ان يعمل البرنامج يواسطة زر امر وانا بستفسر من عملية ذاتية كل فترة معينة او عند انهاء عمل البرنامج اما بواسطة المستخدم او بتسجيل الخروج من الحساب او الويندوز

السلام عليكم

آسف أخي الكريم msayed2004

اقتباس

سبحان الله هو أى كود ينفع لأى حاجة نستخدمة لأى حاجة تانية ؟

الجواب هنا نعم بعد إضافة الاخ الكريم طلبه

اقتباس

شكرا يااستاذ بس انت لسة مصر على ان يعمل البرنامج يواسطة زر امر وانا بستفسر من عملية ذاتية كل فترة معينة او عند انهاء عمل البرنامج اما بواسطة المستخدم او بتسجيل الخروج من الحساب او الويندوز

أخي الكريم كلك ذوق يعني

وأقسم بالذي بعث محمدا لن تستعمل أي طريقة أخرى غير التي وضعها الاخ الكريم

إلا إلا إذا استعملت دوال API وبقيت تجري بين SendMessage و CreateFile و ReadFile ...

أخي هذا الاجراء ضعه في مكان يسمى ولا أفضل

حسن المشكلة عندك ليست في الbutton

بل المشكلة في الEvent

أخي الكريم

إذا أردت البرنامج أن يعمل كل فترة زمنية استعمل تايمر

إذا أردته عند إغلاق البرنامج استعمله عند الحدث

Form_Unload

الله الموفق

جارى التنفيذ وشكرا على المعلومة

(من علمنى حرفا ......................)

فيه أختراع أسمه Timer و أحداث للـ Form

;) صح و لا أنا غلطان ;)

:lol:

العلم يحتاج الى طول البال وسعة الصدر

اقتباس

هى الـ List بقت بقدرة قادر

اقتباس

فيه أختراع أسمه

فى آخر رد لى أنا أرفقت أبتسامات و ظيفتها ................ أبتسامات :lol: , كل سنة و أنت طيب :)

وانت طيب يا استاذنا