[RESOLVED] A MobilePhone Button

[RKuser]

Hey all

I am new to VB and I am using VB6 for an assignment. I have most of the assignment well on its way and a huge headache.

When simulating the buttons i come to the problem of trying to get characters to display next to each other to spell words like benny as the two n's exsist on the same button. I am not sure exactly what area to research.

Dim cntTime As Integer
Dim timesClicked As Integer
=========================================
Private Sub cmd1_Click()
cntTime = 10
timesClicked = timesClicked + 1
If timesClicked = 1 Then lbl1.Caption = "1"
If timesClicked = 2 Then lbl1.Caption = "a"
If timesClicked = 3 Then lbl1.Caption = "b"
If timesClicked = 4 Then lbl1.Caption = "c"
'If cntTime = 0 Then (Here i tried few things with no luck, scraped it)
End Sub
=========================================
Private Sub Form_Load()
timesClicked = 0
End Sub
=========================================
Private Sub Timer1_Timer()
cntTime = cntTime - 1
End Sub


I also tried:
Do Until cntTime = 0
If timesClicked = 1 Then lbl1.Caption = "1"
If timesClicked = 2 Then lbl1.Caption = "a"
If timesClicked = 3 Then lbl1.Caption = "b"
If timesClicked = 4 Then lbl1.Caption = "c"
Loop

I know this 1 doesnt work though due to nothing there really looping, they are my own clicks.

I hope you guys can help or point me in the correct area to research.

Thanks

RK

[AIS4U]

RKuser:

Welcome to VBForums.

I posted this information a week or so ago at this link:
http://www.vbforums.com/showthread.p...ght=Cell+Phone
The posting there under my name has a link to a Web site that will give you what I think you are looking for.

Good Luck

[RKuser]

Great! that is exactly what i need Sorry I didn't find your past post I was mainly trying searches oriented around loops and trying to guess terminology.

Thanks again now i can press on with it

[AIS4U]

RKuser:

Sorry I didn't find your past post

No problem. Glad it helped you.
Maybe you can help by going to the top of this posting section and clicking on the Thread Tools button and then checking on Mark Thread Resolved.

Take Care