Как написать на стандартной кнопке цветным шрифтом?

[TiG]

Как написать на стандартной кнопке цветным шрифтом?
Вариант с наклеиванием картинки уже проработан!
Есть ли такая возможность, написать цветным шрифтом, в свойствах я не нашёл.

[Aleksej]

Вызвать из процедуры _MouseMove
ButtonCaption-заголовок кнопки


Public Sub SetColorButtonText(Button As CommandButton, _
ButtonCaption As String, _
Color As Byte)
Dim TextColor As Long
Dim Bold As Integer
Dim DC, a As Long
Dim FontDC As Long

DC = GetWindowDC(Button.hWnd)
Button.Caption = ""

Select Case Color
Case 0 ' &&šķū&
TextColor = RGB(0, 0, 0)
Bold = 700
Case 1 ' Źšąńķū&
TextColor = RGB(255, 0, 0)
Bold = 700
Case 2 ' Ē&ė&ķū&
TextColor = RGB(0, 255, 0)
Bold = 700
Case 3 ' Ćīė&įī&
TextColor = RGB(0, 255, 255)
Bold = 700
Case 4 ' Šīēīāū&
TextColor = RGB(255, 0, 255)
Bold = 700
Case 5 ' Ę&ėņū&
TextColor = RGB(255, 255, 0)
Bold = 700
Case 6 ' Į&ėū&
TextColor = RGB(255, 255, 255)
Bold = 700
Case 7 ' &&šķū& (ļī &ģīė&ąķčž)
TextColor = RGB(0, 0, 0)
Bold = 400
End Select
a = SetBkMode(DC, TRANSPARENT)
a = SetTextAlign(DC, TA_CENTER)
a = SetTextColor(DC, TextColor)

FontDC = CreateFont(1, 0, 0, 0, Bold, 0, 0, 0, 0, 0, _
0, 0, 0, Button.FontName)
a = SelectObject(DC, FontDC)

a = TextOut(DC, Button.Width / 2, _
Button.Height / 3.2, ButtonCaption, _
Len(ButtonCaption))

Call DeleteDC(FontDC)
Call ReleaseDC(Button.hWnd, DC)
End Sub

[SergeySV]

Вызвать из процедуры _MouseMove
ButtonCaption-заголовок кнопки


Public Sub SetColorButtonText(Button As CommandButton, _
ButtonCaption As String, _
Color As Byte)
Dim TextColor As Long
Dim Bold As Integer
Dim DC, a As Long
Dim FontDC As Long

DC = GetWindowDC(Button.hWnd)
Button.Caption = ""

Select Case Color
Case 0 ' &&šķū&
TextColor = RGB(0, 0, 0)
Bold = 700
Case 1 ' Źšąńķū&
TextColor = RGB(255, 0, 0)
Bold = 700
Case 2 ' Ē&ė&ķū&
TextColor = RGB(0, 255, 0)
Bold = 700
Case 3 ' Ćīė&įī&
TextColor = RGB(0, 255, 255)
Bold = 700
Case 4 ' Šīēīāū&
TextColor = RGB(255, 0, 255)
Bold = 700
Case 5 ' Ę&ėņū&
TextColor = RGB(255, 255, 0)
Bold = 700
Case 6 ' Į&ėū&
TextColor = RGB(255, 255, 255)
Bold = 700
Case 7 ' &&šķū& (ļī &ģīė&ąķčž)
TextColor = RGB(0, 0, 0)
Bold = 400
End Select
a = SetBkMode(DC, TRANSPARENT)
a = SetTextAlign(DC, TA_CENTER)
a = SetTextColor(DC, TextColor)

FontDC = CreateFont(1, 0, 0, 0, Bold, 0, 0, 0, 0, 0, _
0, 0, 0, Button.FontName)
a = SelectObject(DC, FontDC)

a = TextOut(DC, Button.Width / 2, _
Button.Height / 3.2, ButtonCaption, _
Len(ButtonCaption))

Call DeleteDC(FontDC)
Call ReleaseDC(Button.hWnd, DC)
End Sub

Чето я не пойму в чем заключается цветность шрифта... Судя по этому коду (если я не ошибаюсь конечно), на кнопке просто пишут шрифтом разных цветов. А я так понял, что надо вывести надпись из букв разного цвета ???

[TiG]

Ой как сложно, даже не дочитал!
Задача состоит прросто в том, чтобы текст на кнопке сделать не чёрным цветом, а например белым.

[Tauron]

Если хочешь проще - используй MS Forms 2.0 Object Library