Смена шрифта в ТекстБоксе через API

[A.A.Z.]

Почему не работает этот код??

Код: Выделить всё

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_FONTCHANGE = 29

Private Sub Command1_Click()
Dim Font As New StdFont
Set Font = New StdFont
Font.Name = "Arial"
Font.Size = 14
Font.Bold = True
SendMessage Text1.hwnd, WM_FONTCHANGE, 0&, Font
Set Font = Nothing
End Sub


Не пойму!

[GSerg]

Уууууууууу....
УУУ!!!

A.A.Z., ты снова красавец! Срочно читай!

[A.A.Z.]

Надо будет научиться пользоваться MSDN...
Решил я эту проблему, правда, мигает всё равно...

[A.A.Z.]

Решил я эту проблему, правда, мигает всё равно...

Это был вопрос!
Как сделать смену шрифта (при _MouseMove) без мерцания?

[alibek]

Что значит мерцание? Перерисовка?
Это невозможно, если ты меняешь шрифт, то должен обязательно перерисовать текстбокс, чтобы отобразить изменения.
Другое дело, что можно (и нужно) исключать повторную перерисовку. Например так:

Код: Выделить всё

Option Explicit
...
Private SelFont As Boolean
...
Private Sub Form_MouseMove(...)
  If Not SelFont Then
    With Text1.Font
      ...
    End With
    SelFont = False
  End If
End Sub

Private Sub Text1_MouseMove(...)
  If SelFont Then Exit Sub
  With Text1.Font
    ...
  End With
  SelFont = True
End Sub


В принципе, можно обойтись и без флаговой переменной. Если у тебя в fnt1 это фонт по умолчанию, а fnt2 это фонт, когда курсор наведен на текстбокс, то проверка может выглядеть так:

Код: Выделить всё

If Text1.Font Is fnt1 Then Set Text1.Font = fnt2

Только это гораздо медленнее, чем с использованием флаговой переменной.

[A.A.Z.]

Ладно, спасибо, попробую...