COMO EXIBIR A LETRA [Ô]X[Ô] NO TEXT COM O SENDKEYS

MARCOS 09/02/2010 10:34:57
#333977
Pessoal,
Alguém sabe como fica sintaxe para que eu
ao pressionar um Botão no VB, seja acrescentado
o caracter [ô]X[ô] no Conteúdo de um Textbox chamado TxtData


Obs: Por causa, do modo vai funcionar, é necessario que seja, usando o comando SENDKEYS


Algum colega, pode ajudar?
MADMAX 09/02/2010 11:23:08
#333981
Private Sub Command1_Click()
TxtData.Text = TxtData.Text & [Ô]X[Ô]
End Sub

ou
Private Sub Command1_Click()
TxtData.SetFocus
SendKeys [Ô]X[Ô]
End Sub
LEANDRO 09/02/2010 11:36:08
#333984 Resposta escolhida
No Evento KeyPress do TXT

KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
SendKeys [Ô]{TAB}[Ô]
KeyAscii = 0
Else
SendKeys [Ô]{X}[Ô]
End If
Tópico encerrado , respostas não são mais permitidas
Voltar