VB 天气预报源代码.doc

VB 天气预报源代码.doc

ID:22327740

大小:45.00 KB

页数:10页

时间:2018-10-28

VB 天气预报源代码.doc_第1页
VB 天气预报源代码.doc_第2页
VB 天气预报源代码.doc_第3页
VB 天气预报源代码.doc_第4页
VB 天气预报源代码.doc_第5页
资源描述:

《VB 天气预报源代码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLongPrivat

2、eDeclareFunctionCreateRoundRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong,ByValX3AsLong,ByValY3AsLong)AsLongPrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhwndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLongPrivateDeclareFunctionGetCursorPosLib"us

3、er32"(lpPointAsPOINTAPI)AsLongPrivateTypePOINTAPIXAsLongYAsLongEndTypePrivateDeclareFunctionReleaseCaptureLib"user32"()AsLongPrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateConstHTCAPTION=2P

4、rivateConstWM_NCLBUTTONDOWN=&HA1PrivateConstWS_EX_LAYEREDAsLong=&H80000PrivateConstLWA_ALPHAAsLong=&H2PrivateConstGWL_EXSTYLE=(-20)PrivateConstRDW_INVALIDATE=&H1PrivateConstRDW_ERASE=&H4PrivateConstRDW_ALLCHILDREN=&H80PrivateConstRDW_FRAME=&H400PrivateDeclareFunctionSetWindowLongL

5、ib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong)AsLongPrivateDeclareFunctionSetLayeredWindowAttributesLib"user32"(ByValhwndAsLong,ByVa

6、lcrKeyAsLong,ByValbAlphaAsLong,ByValdwFlagsAsLong)AsLongPrivateDeclareFunctionShell_NotifyIconLib"shell32"Alias"Shell_NotifyIconA"(ByValdwMessageAsLong,pnidAsNOTIFYICONDATA)AsBooleanPrivateTypeNOTIFYICONDATAcbSizeAsLonghwndAsLongUIDAsLonguFlagsAsLonguCallbackMessageAsLonghIconAsLo

7、ngszTipAsString*64EndTypePrivateConstNIM_ADD=&H0PrivateConstNIM_MODIFY=&H1PrivateConstNIM_DELETE=&H2PrivateConstNIF_MESSAGE=&H1PrivateConstNIF_ICON=&H2PrivateConstNIF_TIP=&H4PrivateConstNIF_DOALL=NIF_MESSAGEOrNIF_ICONOrNIF_TIPPrivateConstWM_MOUSEMOVE=&H200PrivateConstWM_LBUTTONDBL

8、CLK=&H203PrivateConstWM_LBUTTONDO

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。