(VB6) Virtual LED control

It simulates a LED (light emitting diode).

Properties:

Color: Red/Green/yellow/Blue/White/Custom (the Custom color is defined from properties BorderColor, ColorOn and ColorOff)

State: On/Off/Blinking

BlinkType: Shorter/Short/Medium/Long/Twice

BlinkPeriod: in milliseconds

Shape: Round/Square/Rectangle/RoundedSquare/RoundedRectangle

ToggleOnClick: the control changes On/Off on click (not while blinking)

BorderWidth: in pixels, the default is 1.

Style: 2D or 3D.

Events: Click, DblClick, MouseDown/MouseMove/MouseUp

It can be used as a toggle control, like a switch, when property ToggleOnClick is set to True.
You can get the state change from the Click event.

Download from GitHub.

Attachment 185773


Attachment 185774


Attachment 185771


Attachment 185772


Download from GitHub.

Updated. Added Style Property 2D/3D.

Exelent Edu! tnk for sharing

Quote:

---

Originally Posted by LeandroA

Exelent Edu! tnk for sharing

---

Thank you Leandro and Shagratt for your help.