Mishel917
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maximus777
Спасибо за пример. Установил контролы от Xtreme. У Xtreme ListView лучше дизайн. Есть и ограничения, скопированные у ListView – обязательность наличия названий колонок для списка. Если на форме до 5-ти колонок, то во многих случаях можно обойтись без них. Панель с названиями колонок заваливает интерфейс. В Интернете много сообщений о том, что уязвимости модуля Codejock.Controls.v12.0.1.ocx привлекают внимание …
Использование CheckBox для работы с неисправными мышами не лучший вариант. В такой технологии пользователю предлагается попасть курсором в маленький квадрат, - это ему не понравится, необходимо подать целую опцию на несколько колонок.
Таймер лучше CheckBox.
Код:
Dim binFlag As Boolean
Private Sub ListView1_MouseUp
If binFlag = False Then
binFlag = True
Exit Sub
End If
…
End If
Private Sub UserForm_Initialize()
binFlag = False
End Sub
блокирует обработку второй процедуры. Ограничения, - если вторая процедура не запускается кликом из первой процедуры, то начать работу на второй процедуре можно будет из второй попытки.
Поможет класс
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar1_Click
End Sub,
который бы обладал свойствами UserForm_MouseDown и Calendar1_Click.
|
