• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

homem_serio

Calculadora do windows VB6

2 mensagens neste tópico

Boas mais uma vez, pela pesquisa que fiz pelo google esta deve ser das perguntas mais frequentes e já todos fizemos uma durante a iniciação. Ora bem a maneira que conheço de fazer a calculadora consiste em usar um setfocus na caixa de texto 1 e digitar o numero sem recorrer a botões com "1" "2" por ex. No windows como pude reparar usamos os botões de 1 a 9 + 0 para digitar o primeiro, segundo etc valor limpando em cada acção a txtbox.

Tentei de uma maneira manhosa fazer algo assim mas da maneira que fiz fico-me por apenas um valor. Estou limitado a contas de 1 a 9.

Vejam e riam-se lol

Private Sub jcbutton1_Click() ' aka cmd
If txt1 = "" Then
txt1.Text = txt1 & 1
Else
txt2.Text = Text1 & 1
End If

End Sub

Qual é a maneira de fazer apenas depois de clicar em botões com os sinais? exemplo digito 11111 e quando clico no X ele passa automaticamente a escrever no text2.

Como sempre agradeço qualquer ajuda.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Alterando o que tu já tens:

Private Sub jcbutton1_Click() ' aka cmd
     txt1.Text = txt1.Text & "1"
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora