DateCalendarGadget

Синтаксис

Function DateCalendarGadget(ByVal gadget As long,ByVal x As long, ByVal y As long, ByVal w As long, ByVal h As long) As HWND

Описание

Гаджет - расширенный календарь. Поставить указатель на число можно функцией SetStateCalendar. Получить число из гаджета можно функцией GetStateCalendar

Параметры

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

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

Платформы

Windows

Пример

#Include "window9.bi"
OpenWindow("",10,10,300,100)
DateCalendarGadget(1,10,10,100,20)
ButtonGadget(2,120,10,130,20,"Установить дату")
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If eventnumber()=2 Then
        SetStateCalendar(1,2000,10,26)
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free help authoring environment