Calendar Control - Full

Date: 02-16-2022

Return to Index

 
'Primary Code:
 
UTC         - Greenwich, England
Local Time  - where the PC is located
 
 
TYPE SYSTEMTIME
  wYear      AS WORD
  wMonth     AS WORD
  wDayOfWeek AS WORD
  wDay       AS WORD
  wHour      AS WORD
  wMinute    AS WORD
  wSecond    AS WORD
  wMilliseconds AS WORD
END TYPE
 
 
'Compilable Example:  (Jose Includes)
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
#Include "Win32API.inc"
#Include "commctrl.inc"
%IDC_Calendar = 500
Global hDlg,hCalendar as Dword
 
Function PBMain() As Long
   Dialog New Pixels, 0, "Test Code",300,300,180,170, %WS_OverlappedWindow To hDlg
   Control Add "SysDateTimePick32", hDlg, %IDC_Calendar, "Test", 20,20,100,20, %WS_Child or %WS_Visible
   '   Control Add "SysMonthCal32", hDlg, %IDC_Calendar, "Test", 0,0, 180,170, %WS_Child or %WS_Visible
   Control Handle hDlg, %IDC_Calendar To hCalendar
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Local iResult As Long
   Static DT As SystemTime
   Select Case Cb.msg
      Case %WM_ContextMenu
         Control Set Loc hDlg, %IDC_Calendar, 10,10
      Case %WM_Notify
         Select Case Cb.NMID
            Case %IDC_Calendar
               Select Case CB.nmcode
                  Case %DTN_DateTimeChange
                     iResult = DateTime_GetSystemtime(hCalendar, DT)
                     Dialog Set Text hDlg, Str$(DT.wmonth) + Str$(DT.wday) + Str$(DT.wyear) + Str$(DT.whour) + Str$(DT.wminute) + Str$(DT.wsecond)
                     Control Set Loc hDlg, %IDC_Calendar, -200,-200
               End Select
         End Select
   End Select
End Function
 
'gbs_00770
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm