вопрос про sendkeys

[BOO]

Можно ли через эту функцию задать задержку в нажатии клавиши или через какую функцию это сделать?

[Ducis]

Насколько я понял - ты хочешь чтобы между нажатием клавиши и событием по этой клавише проходило некоторое время.
Можно использовать ф-цию 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 сек соотв.

[BOO]

Нет ты не понял!
Мне надо чтобы имитировалось не кратковременоое нажатие на клавишу как при печатание,а долговременное (ты нажал клавишу и держишь ее) например, идешь ввепред в экшине(wwwwwwwwwwwwwwwwwwwwww), а не(w)

[Fedorfx]

Public MyKey as integer

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
MyKey=keycode
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
MyKey=0
End Sub

Private Sub Timer1_Timer()
select case keyascii
case vbkeyW: Идем вперед
Case vbkeyX: Идем назад
end select
End Sub

[SmarT]

Народ, а как можно иммитировать нажатие Alt+L, например? Это наверна через keybevent, но я с ним плохо знаком. Поскажите плиииз!

[Kosyak]

SendKeys "%{L}"

[SmarT]

Уря! Пасиб огромное!!! Работает! Кстати, раз уж туда пошло, мне на будущее, кто-нить знает, как контрол зажать? пасиб!

[Kosyak]

Если хошь чтоб на всей форме работало, то в свойствах формы поставь Keypreview = true, и на событие нажатия клавиши напиши

Private Sub Form_KeyPress(KeyAscii As Integer)
SendKeys "^" & Chr(KeyAscii)
End Sub

Только будь аккуратней чтоб не попасть в бесконечную итерацию, какой нибудь флаг чтоли поставь, для прерывания повторного вызывания...

[SmarT]

не, я не в своей форме. я умею этим пользоваться всем, пасиб, я тока не знал, как посылать альт и контрол. Пасиб!