ערכתי לאחרונה בתאריך 20.02.05 בשעה 16:36 בברכה, Ice Cold
WIDNOWS !
VB !או שתפרט או שתוותר על הקפצת המונה שלך ! 
MO, אתה יכול להשתמש ב - ListIndex כדי לדעת מי מסומן כרגע. האופציה הראשונה תחזיר 0, השנניה 1 וכו'... הנה קוד לדוגמא (תיצור 2 LISTBOX עם השמות List1 ו - List2) :
Private Sub Form_Load()
List1.AddItem "Option A"
List1.AddItem "Option B"
List1.AddItem "Option C"
List1.AddItem "Option D"
List1.AddItem "Option E"
End SubPrivate Sub List1_Click()
If List1.ListIndex = 0 Then
List2.Clear
List2.AddItem "Option A1"
List2.AddItem "Option A2"
List2.AddItem "Option A3"
List2.AddItem "Option A4"
List2.AddItem "Option A5"
End If
If List1.ListIndex = 1 Then
List2.Clear
List2.AddItem "Option B1"
List2.AddItem "Option B2"
List2.AddItem "Option B3"
List2.AddItem "Option B4"
List2.AddItem "Option B5"
End If
If List1.ListIndex = 2 Then
List2.Clear
List2.AddItem "Option C1"
List2.AddItem "Option C2"
List2.AddItem "Option C3"
List2.AddItem "Option C4"
List2.AddItem "Option C5"
End If
If List1.ListIndex = 3 Then
List2.Clear
List2.AddItem "Option D1"
List2.AddItem "Option D2"
List2.AddItem "Option D3"
List2.AddItem "Option D4"
List2.AddItem "Option D5"
End If
If List1.ListIndex = 4 Then
List2.Clear
List2.AddItem "Option E1"
List2.AddItem "Option E2"
List2.AddItem "Option E3"
List2.AddItem "Option E4"
List2.AddItem "Option E5"
End If
End Sub
|
אולי יש דרך יותר טובה, אבל זו היתה סתם דוגמא פשוטה.
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
