Ducis » 21.10.2003 (Вт) 10:53
Насколько я понял - ты хочешь чтобы между нажатием клавиши и событием по этой клавише проходило некоторое время.
Можно использовать ф-цию Timer
В данном примере функция Timer используется для временной остановки приложения. Кроме того, в нем используется инструкция DoEvents , организующая передачу управления другим процессам на время паузы.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Нажмите Да, чтобы прервать выполнение на 5 секунд", 4)) = vbYes Then
PauseTime = 5 ' Задает длительность.
Start = Timer ' Задает начало паузы.
Do While Timer < Start + PauseTime
DoEvents ' Передает управление другим процессам.
Loop
Finish = Timer ' Задает конец паузы.
TotalTime = Finish - Start ' Вычисляет длительность паузы.
MsgBox "Длительность паузы: " & TotalTime & " секунд"
Else
End
End If
Я сделал так:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim PauseTime, Start
PauseTime = 5 ' Задает длительность.
Start = Timer ' Задает начало паузы.
Do While Timer < Start + PauseTime
DoEvents ' Передает управление другим процессам.
Loop
End Sub
После чего между нажатием клавиши и появлением символа в текст боксе пауза 5 сек соотв.
Понимаешь? (с)Б.Ельцин.