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…