הגדרות COMBO בVB

[idofr]

היייייייי אנשים אני צריך עוד עזרה קטנה

אז ככה יש לי תיבת COMBO ועשיתי שכול מה שכתוב בה יכנס לרשימה עם משהו בסגנון הזה

dim a

a=combo

combo.additem a

עכשיו זה עובד ס22ה אבל מה שקורה זה שמה שאני כותב פעמים (בזמנים שונים) נכנס לי לרשימה פעמים אז מישהו בבקשה יכול להסביר לי איך לעשות שכול פריט יכנס לרשימה רק פעם אחת

תודה לעוזרים

[R-E-L]

Dim found As Boolean

Dim a As String

a = Combo

found = False

For i = 0 To Combo.ListCount - 1

If Combo.List(i) = a Then found = True

Next i

If Not found Then Combo.AddItem a

[idofr]

מאיפה הבאתה את הi ?

עשיתי בגלל שהוא התלונן עשיתי dim i וזה לא עובד

נ.ב.

איך אני יכול לישמור את התוכן של הCOMBO גם אחרי שסגרתי את התוכנה אם אני רוצה להשתמש בו בפעם אחרת

[R-E-L]

Dim found As Boolean

Dim a As String

dim i as integer

a = Combo

found = False

For i = 0 To Combo.ListCount - 1

If Combo.List(i) = a Then found = True

Next i

If Not found Then Combo.AddItem a

בקשר לשמירה של הנתונים, אם יהיה לי כח אני יעשה את זה אחר כך

---------------

כח אין לי אבל שיעמום בשפע ;D

Private Sub Form_Load()

Dim str As String

Open App.Path & "\list.txt" For Binary As #1

Do While Not EOF(1)

Line Input #1, str

Combo.AddItem str

Loop

Close #1

Combo.RemoveItem Combo.ListCount - 1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim i As Integer

Open App.Path & "\list.txt" For Output As #1

For i = 0 To Combo.ListCount - 1

Print #1, Combo.List(i)

Next i

Close #1

End Sub

אגב - אני ממליץ לך להפעיל קצת את הראש וללמוד לבד... יש דוגמאות נהדרות ב www.planetsourcecode.com ... אל תיקח את זה אישית פשוט ככה תלמד ותזכור את הכל הרבה יותר טוב...