| Forum List • Thread List • Refresh • New Topic • Search • Previous • Next  1  |  1. 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 • Refresh • New Topic • Search • Previous • Next 1 |
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0
