עבור לתוכן
View in the app

A better way to browse. Learn more.

HWzone

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

הגדרות COMBO בVB

Featured Replies

פורסם

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

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

dim a

a=combo

combo.additem a

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

תודה לעוזרים

פורסם

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

פורסם
  • מחבר

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

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

נ.ב.

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

פורסם

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 ... אל תיקח את זה אישית פשוט ככה תלמד ותזכור את הכל הרבה יותר טוב...

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.