ButtonGadget

Gadget ››
Parent Previous Next

ButtonGadget

Синтаксис

Function ButtonGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByRef s As String="", ByVal Style As Long=0) As HWND

Описание

Кнопка с текстом.

Установить текст в гаджет можно функцией SetGadgetText.
Получить текст из гаджета можно функцией GetGadgetText.
Установить шрифт в гаджет можно функцией SetGadgetFont.
В Linux можно изменить цвет текста кнопки с помощью SetGadgetColor

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

x,y,w,h - расположение и размеры

s - текст кнопки

Style - Для установки кнопки "toogle" можно установить стиль FB_BS_PUSHLIKE. Стили , которые можно установить только в Windows читайте ниже

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
OpenWindow("1",300,10,100,100)
ButtonGadget(1,10,10,60,30,"button")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then MessBox("Сообщение","Это кнопка")
Loop

Результат

Возможные параметры Style:

Created with the Personal Edition of HelpNDoc: Write eBooks for the Kindle