Как создать кнопку с многострочным текстом
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
| − | Для вывода заголовка кнопки в несколько строк необходимо изменить ее стиль. Ниже приведен код обработчика события '''OnSetupDialog''', который меняет стиль кнопки с именем '''usrg_Button1''' и присваивает ей заголовок из двух строк. | + | Для вывода заголовка кнопки в несколько строк необходимо изменить ее стиль с помощью функции '''SetWindowLong'''. Ниже приведен код обработчика события '''OnSetupDialog''', который меняет стиль кнопки с именем '''usrg_Button1''' и присваивает ей заголовок из двух строк. |
<syntaxhighlight lang="vbnet"> | <syntaxhighlight lang="vbnet"> | ||
Текущая версия на 17:22, 10 февраля 2012
Для вывода заголовка кнопки в несколько строк необходимо изменить ее стиль с помощью функции 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
