TECLADO VIRTUAL
estou tentando fazer um teclado mas naum estou conseguindo! estou usando a seguinte funcao
Private Sub TclVirtual(Tecla)
Text3.Text = (Tecla)
End Sub
e pra chamar eu uso
Private Sub Command4_Click()
TclVirtual (1)
End Sub
so que ao invez de adicionar ele susbstitui o valor existente!
Private Sub TclVirtual(Tecla)
Text3.Text = (Tecla)
End Sub
e pra chamar eu uso
Private Sub Command4_Click()
TclVirtual (1)
End Sub
so que ao invez de adicionar ele susbstitui o valor existente!
tenta por text3.text = text3.text & (tecla)
tente assim:
Private Sub TclVirtual(Tecla)
If Text3.Text<>"" Then
Text3.Text =Text3.Text & (Tecla)
Else
Text3.Text=(Tecla)
End If
End Sub
e pra chamar eu uso
Private Sub Command4_Click()
TclVirtual (1)
End Sub
Private Sub TclVirtual(Tecla)
If Text3.Text<>"" Then
Text3.Text =Text3.Text & (Tecla)
Else
Text3.Text=(Tecla)
End If
End Sub
e pra chamar eu uso
Private Sub Command4_Click()
TclVirtual (1)
End Sub
perfeito valew a força ai
Ah, so completando:
Tem um teclado virtual pronto aqui:
http://www.vbmania.com.br/vbmdetail.php?varID=2514
Tem um teclado virtual pronto aqui:
http://www.vbmania.com.br/vbmdetail.php?varID=2514
Já exprimentei esse teclado mas não funciona, clique nas teclas e nada acontece.
Aproveitando a ocasião, como fazer funcionar um teclado virtual tal e qual como o do windows. Ter o teclado por cima da aplicação onde queremos digitar?
[S92]
Aproveitando a ocasião, como fazer funcionar um teclado virtual tal e qual como o do windows. Ter o teclado por cima da aplicação onde queremos digitar?
[S92]
Tópico encerrado , respostas não são mais permitidas