Guidance
指路人
g.yi.org
Guidance Forums / Rapid-Q Basic / Use Calendar (from COMCTL32.DLL) in RapidQ ?

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

  
Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next First 1 Last
Message1. Use Calendar (from COMCTL32.DLL) in RapidQ ?
#892
Posted by: 2003-05-09 07:05:52
On forum "Yahoo! Groups rapidq" I asked about "Use Calendar (from COMCTL32.DLL) in RapidQ?" (the original message: http://groups.yahoo.com/group/rapidq/message/18498).

Answer (http://groups.yahoo.com/group/rapidq/message/18500):
'====================================================
'-- Window styles
CONST WS_CAPTION = &HC00000
CONST WS_CHILD = &H40000000
CONST WS_VISIBLE = &H10000000
CONST WS_BORDER = &H800000
CONST WS_SYSMENU = &H80000
CONST WS_THICKFRAME = &H40000
CONST WS_SIZEBOX = WS_THICKFRAME
CONST WS_CLIPCHILDREN = &H2000000
CONST WS_MINIMIZEBOX = &H20000
CONST WS_MAXIMIZEBOX = &H10000
CONST WS_EX_DLGMODALFRAME = 1
CONST WS_EX_NOPARENTNOTIFY = 4
CONST WS_EX_TOPMOST = 8
CONST WS_EX_ACCEPTFILES = &H10
CONST WS_EX_TRANSPARENT = &H20
CONST WS_EX_MDICHILD = &H40
CONST WS_EX_TOOLWINDOW = &H80
CONST WS_EX_WINDOWEDGE = &H100
CONST WS_EX_CLIENTEDGE = &H200
CONST WS_EX_CONTEXTHELP = &H400
CONST WS_EX_RIGHT = &H1000
CONST WS_EX_LEFT = 0
CONST WS_EX_RTLREADING = &H2000
CONST WS_EX_LTRREADING = 0
CONST WS_EX_LEFTSCROLLBAR = &H4000
CONST WS_EX_RIGHTSCROLLBAR = 0
CONST WS_CLIPSIBLINGS=&H4000000
CONST WS_EX_CONTROLPARENT = &H10000
CONST WS_EX_STATICEDGE = &H20000
CONST WS_EX_APPWINDOW = &H40000
CONST WM_DESTROY = 2

TYPE INITC
dwSize AS integer
dwICC AS integer
END TYPE
DIM icex AS INITC

CONST ICC_DATE_CLASSES=&H100
ICEx.dwSize = 8
ICEx.dwICC = ICC_DATE_CLASSES
DECLARE FUNCTION InitCommonControlsEx LIB "COMCTL32" _
ALIAS "InitCommonControlsEx" _
(ICEx as INITC) AS word

DECLARE FUNCTION CreateWindowEx LIB "USER32" ALIAS "CreateWindowExA" _
(ExStyle&, ClassName$, WindowName$, Style&, X&, Y&, _
Width&, Height&, WndParent&, hMenu&, hInstance&, Param&) AS LONG

DECLARE FUNCTION UpdateWindow LIB "USER32" ALIAS "UpdateWindow" _
(hWnd AS LONG) AS LONG


DIM Form AS QForm
DIM Handle AS long
Dim Calendar1 AS long
Handle=Form.Handle
CC=InitCommonControlsEx(ICEx)

Calendar1 = CreateWindowEx(WS_EX_TOOLWINDOW, "SysMonthCal32", _
0, WS_CHILD Or WS_VISIBLE Or WS_CLIPCHILDREN OR WS_BORDER Or _
WS_CLIPSIBLINGS, 0, 0, 200, 200, Handle, 0, 0, 0)

UpdateWindow(Handle)

Form.ShowModal
'====================================================


All work, BUT...

My new question:
------------------------
What get the result of the choice of the date from control???
Forum List • Thread List • Reply • Refresh • New Topic • Search • Previous • Next First 1 Last
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2021-10-21  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0