Jump to content
Netankh

Ajuda VB

Recommended Posts

Netankh

ola, eu estou a fazer uma aplicação e estou com uma dúvida.

Eu tenho por exemplo um botao e uma label e cada vez que eu clico no batao queria que adicionase +1 na label.

por exemplo: clico no botao e aparece o numero 1 na label, clico novamente e aparece 2. isto até chegar aos 10..

Share this post


Link to post
Share on other sites
Netankh

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       MsgBox("Ganhou a ronda ao computador")
       Label3.Text = "1" 
End Sub

Aqui ao clicar no botão 3, aparece uma msgbox a dizer que ganhei.

Ao fazer isto eu mudo o nome da label3 para 1.

Eu queria que cada vez que clicasse no botão 3 a label adicionasse +1. por exemplo: 2, 3, 4, 5...

Se conseguisse ajudar agradecia, ainda estou no começo da aprendizagem.

Share this post


Link to post
Share on other sites
AJBM

Cria uma variável fora desse método.

Sempre que clicares nesse botão verificas o valor da variável e se for menor que 10 incrementas-la e associas-la à label.

  • Vote 1

Share this post


Link to post
Share on other sites
acao

mais uma ajuda é +- isto

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
	Dim valor as byte
   MsgBox("Ganhou a ronda ao computador")
   label3.setfocus
   valor = Label3.Text
   if(valor < 10) then
   Label3.Text = valor + 1
   else
   Label3.Text = "X"
   end if
   End Sub

Edited by acao
  • Vote 1

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • 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.