VFP中仿MSN的右下角消息提示窗口

1、.VFP中仿MSN的右下角消息提示窗口(轉(zhuǎn)) *!* VFP中仿MSN的右下角消息提示窗口*!* 作者：MEIZIBBSRichardWZP 2006.04.14*!* 調(diào)用方法：*!* PopWindows(cFrmCap,cFrmIco,nLayer,nWaitTime,cLblCap,cMess)*!* cFrmCap: C型，窗口的標(biāo)題*!* cFrmIco: C型，窗口圖標(biāo)，若你程序中使用SET PATH設(shè)置了搜索路徑，此處可以寫(xiě)相對(duì)路徑*!* nLayer: N型，窗口透明度，最小值0（完全透明），最大值250（完全不透明）*!* nWaitTime: N型，等待時(shí)間。以毫秒為單位

2、，1秒=1000毫秒*!* cLblCap: C型，顯示信息的標(biāo)題*!* cMess: C型，要顯示的信息*!* 適用VFP版本：VFP6、7、8、9*!* 適用WINDOWS版本98、2K、XP、2003SER*!* 調(diào)用示例：popWindows('提醒','E:gdm_accessPRGICOmy computer.ico',200,2000,'提醒','歡迎使用'+CHR(13)+'小小設(shè)計(jì)')*!* 說(shuō)明：*!* 1、這只是一個(gè)思路，你可以通過(guò)此思路創(chuàng)建自己的消息窗口，比如加入圖片*!* 2、因?yàn)檎{(diào)用的頂

3、層表單，且設(shè)置了透明度，所以不會(huì)影響你的基本界面*!* 3、若不希望窗口自動(dòng)消失，可設(shè)置“等待時(shí)間”為0；*!* 4、當(dāng)然，當(dāng)窗口的EDITBOX獲得焦點(diǎn)時(shí)，也不會(huì)自動(dòng)消失的（單擊表單后消失）*!* 5、編譯為EXE為200K，占用內(nèi)存300K以下（我用DELPHI編譯后50K，占用內(nèi)存30K，為何如此差距？）FUNCTION popWindowsLPARAMETERS pcCaption,pcIco,pnLayer,pnWaitTim,pcMesCap,pcMes,plMaxButt,plMinButtPUBLIC oFrmPopWindowoFrmPopWindow=NEWOBJECT(&

4、quot;FrmPopWindow")lcStuBar=SET("Status Bar")&&狐友xs160提供界面問(wèn)題的解決辦法SET STATUS BAR ONoFrmPopWindow.ShowSET STATUS BAR &lcStuBar.RETURNDEFINE CLASS FrmPopWindow AS form DataSession = 2AlwaysOnTop=.T.&&若編譯為EXE或APP使用，此屬性不用設(shè)置，TIMER里有設(shè)定，效果會(huì)更好（從WINDOWS任務(wù)欄后面開(kāi)始上升）AllowOutput

5、= .F.ShowInTaskbar=.F. Height = 132 Width = 277 BackColor = RGB(255,255,255) BorderStyle = 2 Caption = pcCaption Icon = pcIco MaxButton = plMaxButt MinButton = plMinButt ShowWindow = 2 Visible = .F. Name = "FrmPopWindow" Layerdd= pnLayer MesCap = pcMesCap Mes = pcMes PROCEDURE Load this.Le

6、ft = SYSMETRIC(21) - this.Width - SYSMETRIC(3) * 2 this.Top = SYSMETRIC(22) this.AddProperty('FormHeight',this.Height) this.AddProperty('FormWidth',this.Width) this.AddProperty('FormActive',.T.) ENDPROC PROCEDURE Click this.formactive = .T. ENDPROC PROCEDURE Init THIS.MY_setw

7、indow(this.layerdd) this.lblCaption.caption = this.MesCap this.Edit1.value = this.Mes ENDPROC PROCEDURE My_SetWindow LPARAMETERS pnLayer DECLARE INTEGER SetLayeredWindowAttributes IN win32api INTEGER HWND, INTEGER crKey, INTEGER bAlpha, INTEGER dwFlags DECLARE INTEGER SetWindowLong IN user32.DLL INT

8、EGER hWnd, INTEGER nIndex, INTEGER dwNewLong DECLARE INTEGER GetWindowLong IN user32.DLL INTEGER hWnd, INTEGER nIndex #DEFINE LWA_COLORKEY 1 #DEFINE LWA_ALPHA 2 #DEFINE GWL_EXSTYLE -20 #DEFINE WS_EX_LAYERED 0x00080000 lnFlags = GetWindowLong(thisform.hwnd, GWL_EXSTYLE) lnFlags = BITOR(lnFlags, WS_EX

9、_LAYERED) SetWindowLong(thisform.HWnd , GWL_EXSTYLE, lnFlags) i=0 DO WHILE i<=254 j=i SetLayeredWindowAttributes(thisform.hwnd,RGB(255,255,255) , j, LWA_ALPHA) i = i +20 ENDDO SetLayeredWindowAttributes(thisform.hwnd,thisform.BackColor ,pnLayer, LWA_ALPHA) *!* *- 在任務(wù)欄中隱藏 *!* #DEFINE WS_EX_TOOLWIN

10、DOW 0x0000008 *!* lnFlags = GetWindowLong(thisform.hwnd, WS_EX_TOOLWINDOW) &&Gets the existing flags from the window *!* lnFlags = BITOR(lnFlags, WS_EX_TOOLWINDOW) &&Appends the Layered flag to the existing ones *!* SetWindowLong(thisform.HWnd , GWL_EXSTYLE, lnFlags) ENDPROC PROCEDUR

11、E DblClick thisform.Release ENDPROC PROCEDURE Unload thisform.Release ENDPROC ADD OBJECT lblCaption AS label WITH ; AutoSize = .T.,; BackStyle = 0,; Caption = '',; Height = 16,; Left = 6,; Top = 5,; Name = "lblCaption" ADD OBJECT Edit1 AS EditBox WITH ; Anchor = 15,; Height = 108,;

12、 Left = 0,; Name = 'Edit1',; Top = 24, ; Width = 277 PROCEDURE Edit1.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord thisform.FormActive = .F. ENDPROC PROCEDURE Edit1.LostFocus thisform.FormActive = .T. ENDPROC ADD OBJECT tmrShow AS Timer WITH ; Name = 'tmrShow',; Interval =

13、10 ADD OBJECT tmrWait AS Timer WITH ; Name = 'tmrWait',; Interval = pnWaitTim,; Enabled = .F. ADD OBJECT tmrHide AS Timer WITH ; Name = 'tmrHide',; Interval = 10,; Enabled = .F. PROCEDURE tmrShow.Timer IF SYSMETRIC(22)-thisform.Top = thisform.Height +SYSMETRIC(4) * 2 this.Enabled = .

14、F. thisform.tmrWait.Enabled = .T. thisform.AlwaysOnTop = .T. ELSE thisform.Top = thisform.Top - 1 ENDIF ENDPROC PROCEDURE tmrWait.Timer IF thisform.tmrHide.Enabled = .F. thisform.tmrHide.Enabled = .T. ENDIF ENDPROC PROCEDURE tmrHide.Timer IF thisform.FormActive IF thisform.Height<>thisform.Formheight OR thisform.Width<>thisform.Formwidth thisform.Height = thisf