GUJ Discussões   :   últimos tópicos   |   categorias   |   GUJ Respostas

Teclado numÉrico em vb 6.0


#1

Bom dia pessoal,

sou nova em programação e preciso fazer um teclado numérico em VB 6.0, para ser usado em pc touch que fica na fábrica.

criei o teclado com CommandButton de 1 a 0, porém quando clico no botão 1 ele aparece bonitinho na tela, mas quando clico no botão 2 ele cobre o botão 1 e assim por diante...

pensei em criar um vetor , não sei se daria certo.

Eu criei um botão apagar, caso o usuário erre ele apaga um numero por vez.

Private Sub cmbApagar_Click()
txtRL.SetFocus
If txtRL.Text = "" Then
MsgBox "Não há nenhuma informação para apagar!", vbInformation, "Atenção !"
Else
txtRL.Text = Left(txtRL.Text, Len(txtRL.Text) - 1)
End If

End Sub

Este funciona, criei essa mesma lógica para inserir os números e não deu certo...
Private Sub cmbOne_Click(Index As Integer)
txtRL.Text = 1
txtRL.Text = Right(txtRL.Text, Len(txtRL.Text) +1)
End Sub

POR FAVOR, SEI QUE É UMA COISA BÁSICA, MAS ESTOU COMEÇANDO...


#2

Tente este código nos eventos click dos botões de números:

Private Sub cmbOne_Click(Index As Integer) 
txtRL.Text = txtRL.Text & "1"
End Sub 
Private Sub cmbDois_Click(Index As Integer) 
txtRL.Text = txtRL.Text & "2"
End Sub 
Private Sub cmbTres_Click(Index As Integer) 
txtRL.Text = txtRL.Text & "3"
End Sub

#3

Julio,

Muito obrigada.... deu certinho!!!

Valeu mesmo!


#4