Mishel917
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Работает без сбоев. Необходимо ещё отрегулировать 1000. Постепенно довёл до 300, хотя для пользователя достаточно 500.
Спасибо! Особенности – привлекается таймер, необходима настройка.
Испытывал метод не измерять, а наблюдать.
Dim intFlag As Integer, intJlag As Integer
Private Sub Calendar1_Click()
…
intJlag = 1
Me.MultiPage1.Value = 1
End Sub
Private Sub ListView1_MouseUp
If intFlag = 0 Then intJlag = 0
If intJlag = 1 Then
intFlag = 1
intJlag = 0
Exit Sub
End If
…
End Sub
Private Sub UserForm_Initialize()
intJlag = 0
intFlag = 0
End Sub
Пропускает 5% затяжных кликов, когда уже можно увидеть открывшуюся Page1.
Эксперименты над событиями мыши дают результат.
Для UserForm_MouseDown код
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendar1_Click
End Sub
работает без сбоев, - всегда открывается Page1, как и должно быть, но MouseDown нет в календаре.
|
