[ تمت الإجابة ]كيف أحفظ واسترجع بيانات Listbox

1. 'For saving in a string variable
2. Dim str As String, iCount As Integer
3. str = ""
4. For iCount = 0 To List1.ListCount - 1
5. str = str & List1.List(iCount) _
6. & IIf(iCount < List1.ListCount - 1, ",", "")
7. Next 
8.  
9. 'For restoring
10. Dim arr() As String
11. arr = Split(str, ",")
12. Dim iCount As Integer
13. List1.Clear
14. For iCount = 0 To UBound(arr)
15. List1.AddItem arr(iCount)
16. Next
17.  
18.  
    
    

الف الف الف شكر

استاذي الفاضل

اكن الك الكثير من الإحترام والتقدير

أسأل الله الك راحت البال والتوفيق في الدارين

لقد قمت بوضع الكود في المثال المرفق لمن اراد ان يستفيد منه

لكم خالص التحية والتقدير