- Code: Select all
Public Enum tObjState
Hidden
Disabled
Enabled
Pressed
end Enum
Dim State as tObjState
Select State
Case State.Hidden Color = ActiveScreenColor
Case State.Disabled Color = DisabledColor
Case else Color = SolidColor
end Select
JohnB
Public Enum tObjState
Hidden
Disabled
Enabled
Pressed
end Enum
Dim State as tObjState
Select State
Case State.Hidden Color = ActiveScreenColor
Case State.Disabled Color = DisabledColor
Case else Color = SolidColor
end Select
Select State
Case tObjState.Hidden
Color = ActiveScreenColor
Case tObjState.Disabled
Color = DisabledColor
Case else
Color = SolidColor
end Select
Users browsing this forum: No registered users and 2 guests