Ухаживание за выбранными предметами в другом списке

Question

Пользователь должен выбрать не более шести фондов в общей сложности из элементов управления ListBox lstLowRisk, lstMedRisk и lstHighRisk. Если пользователь пытается выбрать седьмой фонд из одной из категорий риска, выведите сообщение в окне сообщения. Тем не менее, я не знаю, как ухаживать за выбранными элементами в другом списке. Переменная изменится на 0, когда я нажму на элемент другого списка. Пожалуйста, помогите мне.

Answer 1

Вы можете использовать onExit для каждого ListBox, OnLostFocus или MouseDown, чтобы увеличить глобальную переменную CountSelected

Public CountSelected As Integer
Dim x As Integer
Private Sub List0_Exit(Cancel As Integer)
    For x = 0 To Me.List0.ListCount - 1
      If Me.List0.Selected(x) Then CountSelected = CountSelected + 1
    Next x
    MsgBox CountSelected
End Sub
Private Sub List6_Exit(Cancel As Integer)
    For x = 0 To Me.List6.ListCount - 1
      If Me.List6.Selected(x) Then CountSelected = CountSelected + 1
    Next x
    MsgBox CountSelected
End Sub
Private Sub List8_Exit(Cancel As Integer)
    For x = 0 To Me.List6.ListCount - 1
      If Me.List6.Selected(x) Then CountSelected = CountSelected + 1
    Next x
    MsgBox CountSelected
End Sub