ник: alecks_lp
++Подсветку бы. В форме с несколькими списками не удается выделения убрать из неиспользуемых.++
Чтобы убрать выделения листбокса(lst0) достаточно прописать
однако это работает в случае если lst0.MultiSelect = 0
если же lst0.MultiSelect <> 0 тогда по другому надо
For i = 0 To lst0.ListCount - 1
If lst0.Selected(i) = True Then lst0.Selected(i) = False
Next i
|
таким образом, напрашивается цикл по листбоксам с очищением (Null) неактивных контролов плюс корячится внутренний цикл( если lst0.MultiSelect <> 0)
вариант лукаса с одним списком симпатичней