|
 |
 |
 |
| |
 Boîte de couleurs
Paramètres en entrée : CTL (CommonDialog)
Paramètres en sortie : BoiteDeCouleur (long)
Description : Affiche une boîte de choix de couleurs et retourne le numéro de la couleur choisie (par défaut : 6 [noir])
Public Function BoiteDeCouleur(CTL As CommonDialog) As Long
CTL.Color = QBColor(6)
CTL.ShowColor
BoiteDeCouleur = CTL.Color
End Function
|
|
 |
 |
 |
|