    ôһֱ           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  ôһֱ     ôһֱ ڣ200767 ߣ 鿴:[     С ]       ܶһѡAlways on Topô棬Ĵڲܸ VB Уʹķʵ֣ 
Private Const SWP_NOSIZE = &amp;H1 
Private Const SWP_NOMOVE = &amp;H2 
Private Const SWP_NOZORDER = &amp;H4 
           Private Const SWP_NOREDRAW = &amp;H8 
Private Const SWP_NOACTIVATE = &amp;H10 
Private Const SWP_FRAMECHANGED = &amp;H20 
Private Const SWP_SHOWWINDOW = &amp;H40 
Private Const SWP_NOCOPYBITS = &amp;H80 
Private Const SWP_NOOWNERZORDER = &amp;H200 
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED 
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER 
Private Const HWND_TOP = 0 
Private Const HWND_BOTTOM = 1 
Private Const HWND_TOPMOST = -1 
Private Const HWND_NOTOPMOST = -2 
Private Declare Function SetWindowPos Lib "user32" ( _ 
ByVal hwnd As Long, _ 
ByVal hWndInsertAfter As Long, _ 
ByVal X As Long, _ 
ByVal Y As Long, _ 
ByVal cx As Long, _ 
ByVal cy As Long, _ 
ByVal wFlags As Long) As Long 
Private mbOnTop As Boolean 
Private Property Let OnTop (Setting As Boolean) 
if Setting Then 
SetWindowPos hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 
Else 
SetWindowPos hwnd, -2, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 
End If 
mbOnTop = Setting 
End Property 
 
Private Property Get OnTop() As Boolean 
Return the private variable set in Property Let 
OnTop = mbOnTop 
End Property 
 OnTop=True ô Always On Topۡ   [1]   [2]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   ôһֱ £   ôһֱ  ôһֱ   
һƪ: VBദӦ  
һƪ: VBļس  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBѧ±ܼӴ    VBʹDirectXļ̳    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    API޸עģ    VB쳬Ի˵    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    webbrowser 2ղأ    VB6DataGridʵͨõӱ    FindWindow    VB6.0ͼ    VB̳ ڶ£ؼѧϰ    VB֮·ý     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       