Shoutbox

I'm very new to Visual Basic and I'm making a program that displays text after text in a label when you click a button...but the only code I know is how to make a text in a label change once...like this;

code:

---

Private Sub Command1_Click()
Label1.Caption = "First Text"
End Sub

---

Could someone tell me the code to make the text change once again when the button's pressed again...

my gay way

[code]
Private Sub Command1_Click()
if Label1.Caption = "First Text" then
Label1.Caption = "2nd Text"
elseif Label1.Caption = "2nd Text" then
Label1.Caption = "First Text"

End Sub

What about adding like 20 bits of text...which I need to do for this ap
PS. That code seems to be invalid when I try and play it I get an error

that method...but loads of it

quote:

---

Originally posted by jackass_wanabe
that method...but loads of it

---

You sure that's there's no more direct method?

declare a global variable (outside any function or sub you put the declaration)

code:

---

Dim times as long

---

in the load sub of the form, make sure you initializa that variable to the proper number, 0 for example)

code:

---

private sub form1_load()
  ' more code
   times=0
end sub

---

and in the button click sub, you put this code:

code:

---

private sub button1_click()
   times=times+1'the user clicked the button once more
   select case times
         case 1 ' 1st time the button is clicked
                label1.caption="1st text"
         case 2 ' 2nd time the button is clicked
                label1.caption="2nd text"
         case 3 ' 3rd time the button is clicked
                label1.caption="3rd text"
          ' etc....
         case else ' all the other cases (ie: from the last click you have coded)
                 label1.caption="you've clicked the button more times than what I was expected and didn't coded any other text to be displayed .p"
     end select
end sub

---

there are other ways to do that too. If the texts to be displayed are always the same, you can create an array of text and use the times variable to access the proper text (label1.caption=label1_texts[times])

quote:

---

Originally posted by Anubis

quote:

---

Originally posted by jackass_wanabe
that method...but loads of it

---

You sure that's there's no more direct method?

---

Yes.. use the case method

quote:

---

Originally posted by Anubis
PS. That code seems to be invalid when I try and play it I get an error

---

Make sure all the control names are the same.. ect..

quote:

---

Originally posted by Sk3tch
Yes.. use the case method

---

case method? What's that?

quote:

---

Originally posted by Anubis

quote:

---

Originally posted by Sk3tch
Yes.. use the case method

---

case method? What's that?

---

what I've just posted

code:

---

select case -----
    case -----
    case -----
    case -----
    case else
end select

---

It doesn't seem to be working...I had to change it slightly because my version of VB uses slightly different codes;

code:

---

Private Sub Label1_load()
   times = 3
End Sub

Private Sub Command1_Click()
   times = times + 1 'the user clicked the button once more
   Select Case times
         Case 1 ' 1st time the button is clicked
                Label1.Caption = "1st text"
         Case 2 ' 2nd time the button is clicked
                Label1.Caption = "2nd text"
         Case 3 ' 3rd time the button is clicked
                Label1.Caption = "3rd text"
          ' etc....
         Case Else ' all the other cases (ie: from the last click you have coded)
                 Label1.Caption = "you've clicked the button more times than what I was expected and didn't coded any other text to be displayed .p"
     End Select
End Sub
3 times As Long

---