NIVEAU : Facile

ETAT : Stable

PUBLIC : Programmeur VB

Switch Button OCX

Le bouton contenu dans cet OCX a plusieurs utilités:

il ne peut pas prendre le focus ce qui évite le désagréable pointillé que VB rajoute automatiquement sur ses boutons
Permet de faire des boutons qui restent enfoncés après un click et qui remontent au prochain click
Choix libre des couleurs pour l'ombrage, ce bouton ne dépend plus des couleurs systèmes

Aperçu des possibilités :

Voir le source complet

Evénements:

Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event Click()

Propriétés:

Property BackColor() As OLE_COLOR
Property ForeColor() As OLE_COLOR
Property Enabled() As Boolean
Property Font() As Font
Property Position() As EnumPosition
Property CaptionAuto() As Boolean
Property CaptionTop() As Long
Property CaptionLeft() As Long
Property Style() As EnumStyle
Property ColorDownRightOne() As OLE_COLOR
Property ColorDownRightTwo() As OLE_COLOR
Property ColorTopLeftTwo() As OLE_COLOR
Property ColorTopLeftOne() As OLE_COLOR
Property Caption() As String

Méthodes de SwitchButton:

Sub About()

Voir le source complet

Téléchargez SwitchButton.ocx avec ses sources 26Ko

Version 2 : une couleur possible pour chaque position