81
VB and the development of wizards / Re: MacroPump Doesnt Run
« on: January 15, 2010, 12:21:01 PM »
You'll need to use "GetOEMLED"... but more important use "True/False":
Code: [Select]
Dim Inch_LED_boolean As Boolean
Dim Inch_LED_interger As Integer
Inch_LED_boolean = GetOEMLED(801)
Inch_LED_interger = GetOEMLED(801)
MsgBox "boolan "&Inch_LED_boolean
MsgBox "Number "&Inch_LED_interger
'Number way
If(Inch_LED_interger = -1)Then
MsgBox "Number lookup"
End If
'Boolean way
If(Inch_LED_boolean = True)Then
MsgBox "boolean lookup"
End If
'Boolean way with out ==
If(Inch_LED_boolean)Then
End If
'Boolean way with out ==
If Not(Inch_LED_boolean)Then
End If