- ' Form
-
- Public Couleur As Long
- Private Sub Command1_Click()
- Unload Me
- End Sub
- '***(c)1998 Deleau Jean-Marie
-
-
- Private Sub Form_Load()
- Vscroll(2) = 128
- ChangerCouleur RGB(0, 0, 128)
- End Sub
-
- Private Sub Vscroll_Change(Index As Integer)
- Couleur = RGB(Vscroll(0), Vscroll(1), Vscroll(2))
- ChangerCouleur Couleur
- End Sub
-
-
- ' Module
-
- Declare Function SetSysColors Lib "user32" (ByVal nChg As Long, lpSysCol As Long, lpColVal As Long) As Long
- Public Const COLOR_ACTIVECAPTION = 2
-
-
- Public Sub ChangerCouleur(Col&)
- r = SetSysColors(1, COLOR_ACTIVECAPTION, Col&)
- End Sub
-
-
-
' Form
Public Couleur As Long
Private Sub Command1_Click()
Unload Me
End Sub
'***(c)1998 Deleau Jean-Marie
Private Sub Form_Load()
Vscroll(2) = 128
ChangerCouleur RGB(0, 0, 128)
End Sub
Private Sub Vscroll_Change(Index As Integer)
Couleur = RGB(Vscroll(0), Vscroll(1), Vscroll(2))
ChangerCouleur Couleur
End Sub
' Module
Declare Function SetSysColors Lib "user32" (ByVal nChg As Long, lpSysCol As Long, lpColVal As Long) As Long
Public Const COLOR_ACTIVECAPTION = 2
Public Sub ChangerCouleur(Col&)
r = SetSysColors(1, COLOR_ACTIVECAPTION, Col&)
End Sub