O teclado é espanhol e preciso de trocar a letra ñ por ~ou ã.

O que eu escrevi, só funciona no form.

Preciso que funcione no sistema do windows. (xp) e (98)

Ao digitar em qualquer programa, a letra é substituida.

Sei que tenho que usar API, mas não sei fazer.

Por favor me mande um e-mail.

If Keyascii = Asc("ñ") then
Keyascii = Asc("ã")
End If

Vc pode colocar seus forms em keypreview = true, no keydow do form chamar uma funcao de um modulo, que faz essa verificação e troca a letra escolhida.....

 

Bem, agora a solução da API seria + interessante, agora com certeza ele vai alterar em todos os outros sistemas sendo executados tambem (eu acho), pq não troca o teclado? rs

 

O teclado é do LAPTOP(FIXO). E tem dois sistemas operando.

Poderia me dar um exemplo?

vc pode usar o princípio de um keylogger...

Preciso de um exemplo.

Poderia me arrumar?

PARA kerplunk

KEYLOGGER

Dê uma olhada. Mas não consegui fazer que funcione. A intenção é que trocaria as letras ao digitar, nos programas.

Módulo

Attribute VB_Name = "Module1"
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub main()
Form1.Show
End Sub

 

FORM1

Option Explicit

Private KeyAscii As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

 

Private Sub Form_Load()
  txtmoitas.Text = ""
End Sub

Private Sub Timer1_Timer()
CheckForKeyPress
   
End Sub
Sub CheckForKeyPress()

    With txtmoitas
 If GetAsyncKeyState(vbKeyN) Then
'If txtmoitas = "ñ" Then

If KeyAscii = Asc("ñ") Then
End If
End If
        End With
   

End Sub

End Sub