Guidance
指路人
g.yi.org
software / rapidq / Examples / Date & Time / Calendar from COMCTL32.DLL / MonthCalGet.bas

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
'***************************************
'* Add this to the top of yout program *
'* (After the preprocessor directives) *
'***************************************
     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
     DECLARE FUNCTION SendMessageSysTime LIB "user32" ALIAS "SendMessageA" (HWND AS LONG, message AS LONG, WPARAM AS LONG, BYREF LPARAM AS SYSTEMTIME) AS LONG

     CONST MCM_GETCURSEL = &H1001

'************************************
'* Add the folowing to get the time *
'************************************
     DIM time AS SYSTEMTIME
     DIM handle AS LONG 'Handle to MonthCal window
     SendMessage(handle, MCM_GETCURSEL, 0, time)
'Process time...
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2019-7-21  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-05-13 20:15:33