Illiad vs. VB6.0 (who's retarded?)

[Illiad]

I don't get this at all! I'm making a program that "Locks" windows for a defined period of time. I have 3 settings. Setting 1 is to lockdown for a certain ammount of time. Setting 2 is to lock permanently. Setting 3 is to restart once the timer is completed. That's where the problem is! In setting 3's Subroutine...
Heres a fragment of the code...

Private Sub Timer1_Timer()
BlockInput True
If lbltime.Caption > 0 Then
    lbltime.Caption = lbltime.Caption - 1
Else
    lbltime.Enabled = False
    BlockInput False
    Sleep 800
    Unload frmLocked
    Unload frmWinLock
    Timer1.Enabled = False
    End
End If
End Sub
Private Sub Timer2_Timer()
BlockInput True
lbltime.Caption = "++++"
If lbltime.ForeColor = &H80000012 Then
    lbltime.ForeColor = &HE0E0E0
Else
    lbltime.ForeColor = &H80000012
End If
End Sub
Private Sub Timer3_Timer()
BlockInput True
If lbltime.Caption > 0 Then
    lbltime.Caption = lbltime.Caption - 1
Else
    lbltime.Enabled = False
    BlockInput False
    Sleep 800
    Unload frmLocked
    Unload frmWinLock
    Timer1.Enabled = False
    End
End If
End Sub

The settings are represented by timers (e.g. setting 1 is timer1 and so on)
Whenver I run the program on setting 3 I get this error message "Runtime Error Type 13, Type Mismatch" on the "If lbltime.Caption > 0 Then" line on timer3. However, as you may see above, the code for timer1 and timer3 are the same. I know that timer3 won't restart windows cauz I havent augmented its code yet. But VB only gets the error on timer3...whats going on?!

Note: lbltime.caption is set by a variable "seconds", "seconds" is a public integer.

[KayJay]

If lbltime.Caption > 0 Then

> 0 is a nymeric operation. Cannot be done with a string, lbltime.Caption. Use Val(lbltime.Caption)

HTH

[Illiad]

But y does it work in Private Sub Timer1_timer() and not Private Sub Timer3_timer() ?

Besides, its not like the label contains any words, just an integer. > can work with integers.. integers are numarical vaues last I checked...lol j/p

[KayJay]

AFAIK, It should not work there as well. Set break points on both the "IF" conditions and see if the conditions fire, and if they do, check whether both return an erorr. They should, AFAIK

[Illiad]

I've programmed appz using similar code and never ran into this problem, like I said, the label contains an Integer...no strings attached

[KayJay]

Do you have an On Error Resume Next?

Private Sub Command1_Click()
On Error Resume Next
MsgBox "hello"
Call SomeSub
MsgBox "bye"
End Sub
 
Private Sub SomeSub()
If Label1.Caption > 0 Then
    MsgBox "???"
Else
    MsgBox "!!!"
End If
 
End Sub

The above will not display an error at all, though there is one.

[KayJay]

As to the integer vs string question, try this code out

Private Sub Command1_Click()
Dim x As Integer
x = 25
Label1.Caption = x
MsgBox Label1.Caption
MsgBox TypeName(Label1.Caption)
End Sub

U'll find out what kind of type/variable "Label1.Caption" is

[Illiad]

No, I never know of that command, I fixed it though...I just removed the vars and just did some old fashiond Let commands

thanks anyways

[KayJay]

Just letting U know we cross-posted

[Illiad]

cross posted? im confused....

[KayJay]

Our posts crossed. Both you and I posted at the same time. So we may have missed some of each other's posts and moved on to the next ones. Scroll up and see the times of your posts and mine. One them will be identical.

Anyways, glad you sorted it out, though I am still unable to see where things went wrong.

Cheers and Good Luck

Regards

KayJay

[Illiad]

lol i got it...thats funny i guess

[MerrionComputin]

lbltime.Caption = "++++"

That aint no number I ever saw...

[agmorgan]

So is the conclusion of this thread that Illiad is retarded?

[Illiad]

I know "++++" is not a number, but if you read the code that is timer2's subroutine, and if you graduated 1st grade math you'd know 2 isn't 1 or 3 j/p

in conclusion:

VB6.0 is retared. If what KayJay was saying is correct (and i think it is), then VB should have cought the error on the Timer1_Timer subroutine, but it didn't so VB is retarded...