Enabled = False

[Deju]

Hello,

Is it possible to change the color of a font when I set its enabled property to False?


Thanks.


Deju

[oetje]

In English:
What kind of control do you use?

In Dutch:
Welke control gebruik je?

[Deju]

Geen enkele

[oetje]

In English:
Do you draw on a form?

In Dutch:
Teken je dan op een form ofzo?

[Jop]

English: You're setting a font to disabled? huh? the form?

Nederlands: Leuk dat er nog meer Nederlanders/Belgen zijn hè Oetje

English: Oh by the way, I think the disabled text color is a System Color... you can change it for the whole system if you need to, but not that elegant.

[Edited by Jop on 11-16-2000 at 09:07 AM]

[HeSaidJoe]

'In 3 words and a symbol

Disabled = Greyed Out

Why not just set the control's color to any color and...

Example:

If control.forecolor = color Then Exit Sub

You can change the control's disable colour, but it'll have to be systemwide.

Here is an example.

Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Const COLOR_GRAYTEXT = 17
Dim lForeColor

Private Sub Form_Load()
    lForeColor = GetSysColor(COLOR_GRAYTEXT)
    SetSysColors 1, COLOR_GRAYTEXT, vbGreen
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetSysColors 1, COLOR_GRAYTEXT, lForeColor
End Sub

[Lafor]

danke fur
askjsuds jepimaf alksd
merci beaucoup
gracias
kasweansajasdy asdh astdsa