SetStateCalendar

Синтаксис

sub SetStateCalendar(ByVal gadget As Long,ByVal YEAR As Long, ByVal MONTH As Long, ByVal DAY As Long)

Описание

Функция для установки даты в гаджеты: CalendarGadget и DateCalendarGadget

Параметры

gadget - номер гаджета

YEAR - год

MONTH - месяц

DAY - день

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,250,300)
CalendarGadget(1,10,10,200,200)
ButtonGadget(2,40,220,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: Full featured Kindle eBooks generator