GetStateCalendar

Синтаксис

Function GetStateCalendar(ByVal gadget As long,ByVal flag As long=5) As Integer

Описание

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

Параметры

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

flag - тип возвращаемого значения: 1 - год ; 2 - месяц ; 3 - день недели ; 4 - число ; 5 - год+месяц+число. В linux не возвращает день недели, то есть при flag = 3 ничего не возвращается

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,400,300)
CalendarGadget(1,10,10,220,220)
ButtonGadget(2,250,100,130,20,"Получить дату")
TextGadget(3,250,140,130,20,"",SS_CENTER)
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If eventnumber()=2 Then
        SetGadgetText(3,Str(GetStateCalendar(1)))
     EndIf
  EndIf
loop

Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily