Galera, preciso da ajuda de vocês mais uma vez!
Preciso fazer um programa simples que funcione como um teclado virtual. O alfabeto vai ficar passando sequencialmente na tela, esta letra desejada será enviada a um programa escolhido por ele.
Consigo abrir o Notepad a Calc pelo comando Shell, uso uma variável pra guardar pra quem ele deve enviar as letras. Então uso o AppActivate pra selecionar o programa e logo abaixo o SendKeys pra enviar a letra desejada.
O problema que tá tendo atraso… Para retirar isso eu devia usar um False no Delay mas mesmo assim não tá dando certo! Alguém poderia me ajudar? Preciso que assim que clicado apareça no programa, tem hora que aparece e tem hora que não…
Tá aí o meu código abaixo bem resumido…
[code]Private Sub Form_Load()
tecladocs = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
End Sub
Private Sub cmdenviar_Click()
AppActivate ap, False
SendKeys atual, False
End Sub
Private Sub tmrt_Timer()
atual = Mid(tecladocs, i, 1)
lblt.Caption = Mid(tecladocs, i, 1)
i = i + 1
If (i = 27) Then
i = 1
End If
End Sub[/code]
Desde já muito obrigado!