Jump to content
TheSkytalos

Como inserir um número após o outro com Botões ?

Recommended Posts

TheSkytalos

Tenho a seguinte duvida, quero que o usuário, se preferir clique em botões para inserir o valor em uma TextBox, por exemplo tenho três botões com 3 valores 5,4,3 ,

ficaria assim :

Button1 = "5"

Button2 = "4"

Button3 = "3"

Mas ao clicar nos botões ele substitui o número que esta na textbox eu quero que se eu clicar em 5 e depois em 4 apareça 54

Obrigado desde já.

Edited by TheSkytalos

Share this post


Link to post
Share on other sites
nelsonr

Boas,

uma hipótese será guardares a data/hora do ultimo clique nos botões.

Ao clicar num botão, caso o ultimo clique tenha sido inferior a 2 segundos juntas o numero ao texto existente. Caso não tenha sido, substitui o texto completo.

Share this post


Link to post
Share on other sites
nelsonr

Poderá ser algo assim:

Dim UltimoClick As Date

Private Sub Button1_Click()
Text1.SetFocus
If DateAdd("s", 2, UltimoClick) > Time Then
	Text1.Text = Text1.Text + "5"
Else
	Text1.Text = "5"
End If
UltimoClick = Time
End Sub

Private Sub Button2_Click()
Text1.SetFocus
If DateAdd("s", 2, UltimoClick) > Time Then
	Text1.Text = Text1.Text + "4"
Else
	Text1.Text = "4"
End If
UltimoClick = Time
End Sub

Private Sub Button3_Click()
Text1.SetFocus
If DateAdd("s", 2, UltimoClick) > Time Then
	Text1.Text = Text1.Text + "3"
Else
   Text1.Text = "3"
End If
UltimoClick = Time
End Sub

  • Vote 1

Share this post


Link to post
Share on other sites
TheSkytalos

Obrigado. Mas quando inseri o código deu alguns erros, Não sei se há diferença entre VBA e VB.NET. Text1.SetFocus Text1 seria o nome da TextBox, certo ? e SetFocus deu erro no Visual Basic e Time também não é reconhecido pelo Visual Basic.

Edited by TheSkytalos

Share this post


Link to post
Share on other sites
nelsonr
VB.NET , Não achei nada de VB.NET e postei aqui.

Aqui: http://www.portugal-a-programar.pt/forum/112-visual-basic-net/

No entanto, exemplo em VB.NET:

Dim UltimoClick As DateTime = DateTime.Now

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	If (DateTime.Now - UltimoClick).TotalSeconds < 2 Then
		TextBox1.Text = TextBox1.Text + "5"
	Else
		TextBox1.Text = "5"
	End If
	UltimoClick = DateTime.Now
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
	If (DateTime.Now - UltimoClick).TotalSeconds < 2 Then
		TextBox1.Text = TextBox1.Text + "4"
	Else
		TextBox1.Text = "4"
	End If
	UltimoClick = DateTime.Now
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
	If (DateTime.Now - UltimoClick).TotalSeconds < 2 Then
		TextBox1.Text = TextBox1.Text + "3"
	Else
		TextBox1.Text = "3"
	End If
	UltimoClick = DateTime.Now
End Sub

Share this post


Link to post
Share on other sites
TheSkytalos

Muito Obrigado. Mas consegui fazendo apenas isso.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
    Dim Valor1 As Integer
    Valor1 = "0"
    txtBinario.Text += "0"
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
    Dim Valor2 As Integer
    Valor2 = "1"
    txtBinario.Text += "1"
   End Sub

Share this post


Link to post
Share on other sites
nelsonr

Ainda bem que conseguiste fazer, mas esse código que tens ai não faz nada do que indicaste.

Além de teres ai várias linhas que não estão a fazer nada

Share this post


Link to post
Share on other sites
TheSkytalos

Ainda bem que conseguiste fazer, mas esse código que tens ai não faz nada do que indicaste.

Além de teres ai várias linhas que não estão a fazer nada

Sim, percebi logo após que postei ¬¬, apenas o txtBinario.Text += "1" e txtBinario.Text += "2" já bastava.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.