User Profile

jiexian · May 16 '09, 05:38 PM

Please teach me how to do this the right way in vb6 or vb08. (preferbably vb6)

What i want is to increase the value of Text1.text by 1 every time i click it. But with this code, Text1.text remains as 1 so matter how many times i click it.

Code:

Private Sub Form_Load()
 Dim cap As Integer
cap = Val(Text1.Text)
End Sub

Code:

Private Sub Command1_Click()
cap = cap + 1
Text1.Text

...

jiexian · May 15 '09, 05:06 PM

This is what i have

Code:

Public Sub Form_Load()
 KeyPreview = True
End Sub

Code:

Private Sub Form_KeyDown(KeyCodeConstants As Integer, Shift As Integer)
KeyPreview = True
 If KeyCodeConstants = vbKeyF1 Then cmd1_Click
 If KeyCodeConstants = vbKeyF2 Then cmd2_Click
End Sub

When i press F1 or F2, i get an error msg "Compile error : Sub or Function not defined"
...

User Profile

Profile Sidebar

Please help me with addition to variable

How To set a a Function Key to click a cmd?