Shoutbox

quote:

---

Originally posted by Anubis

case method? What's that?

---

Private Sub Command1_Click()
   Times = Times + 1
*The user clicked the button once more
         Case 1  (1st time the button is clicked)
                Label1.Caption="First Text"
         Case 2 '(2nd time the button is clicked)
                Label1.Caption="Second Text"
         Case 3 (3rd time the button is clicked)
                Label1.Caption="Third Text"
         Case Else
                 Label1.Caption="Here is where the text goes when all the other cases have been gone threw."
     End select
End sub

Its what Choli said. I cleaned it up a bit

Edit :: You people beat me by a mile

Does this help?

Also...
Where to ask your vb questions :
http://www.vbforums.com

quote:

---

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

---

of course, you have to adjust it depending on the name of the button, label and form

quote:

---

Originally posted by Mike2
Does this help?

---

of course, but doing "select case"s with strings is way slower than with a long

ehm, why not use an array?

code:

---

Dim strMyString(20) As String

Private Sub Form_Load()
strMyString(1) = "..."
strMyString(2) = "..."
End Sub

Private Sub Command1_Click()
Static lngTimes As Long
lngTimes = lngTimes + 1
Label1.Caption = strMyString(lngTimes)
End Sub

---