Как создать кнопку с многострочным текстом

Материал из GedeminWiki
Перейти к: навигация, поиск

Для вывода заголовка кнопки в несколько строк необходимо изменить ее стиль с помощью функции SetWindowLong. Ниже приведен код обработчика события OnSetupDialog, который меняет стиль кнопки с именем usrg_Button1 и присваивает ей заголовок из двух строк.

Option Explicit
Sub ...OnSetupDialog(ByVal Sender)
 
  '*** Данный код необходим для вызова встроенного обработчика ***
  '*** В случае его удаления возможно нарушение работы системы ***
    call   Inherited(Sender, "OnSetupDialog", Array(Sender))
  '*** конец кода поддержки встроенного обработчика            ***
 
  Const GWL_STYLE = -16
  Const BS_MULTILINE = 8192
 
  Dim btn
  Set btn = Sender.GetComponent("usrg_Button1")
 
  WinAPI.SetWindowLong btn.Handle, GWL_STYLE, _
    WinAPI.GetWindowLong(btn.Handle, GWL_STYLE) OR BS_MULTILINE
  btn.Caption = "Line1" & vbCrLf & "Line2"
 
End Sub

См. также

Персональные инструменты
Пространства имён

Варианты
Действия
Навигация
Инструменты