利用VB控制窗口显示风格
2006-02-27 21:08:36 来源：WEB开发网核心提示：软件界面生动与否很大程度上决定于你对窗口的设计和控制，事实上，利用VB控制窗口显示风格，Windows程序员可以对系统中的任何窗口进行操纵，它意味着，0，0，Windows程序员可以直接操纵任何正在运行的应用窗口；可以发现一个特定的应用是否在运行，如果该应用没有运行还可以启动它；可以重新排列屏幕上的所有窗口；还可以使其
软件界面生动与否很大程度上决定于你对窗口的设计和控制。事实上，Windows程序员可以对系统中的任何窗口进行操纵，它意味着，Windows程序员可以直接操纵任何正在运行的应用窗口；可以发现一个特定的应用是否在运行，如果该应用没有运行还可以启动它；可以重新排列屏幕上的所有窗口；还可以使其他应用的窗口最大化或最小化。下面我们探讨一种十分有意义的应用。
我们很希望在程序激活其它窗口时仍使得封面窗口处于前台，也就是说该窗口具有“总在最前面”（“AlwaysOnTop”）这一特性。其实Microsoft系列软件都是这样做的，当你运行Word、Excel或Powerpoint时，你会发现它们的封面窗口不随系统激活其它窗口而消
失。
VisualBasicForWindows3.0（以下简称VB）作为一种可视化编程软件，以其优秀的图形化界面设计风格而著称。利用它可使软件开发周期大为缩短，然而VB对WindowsDLL（动态链接库）调用的强大功能却易受不少程序员所忽略。事实上，灵活应用WindowsDLL的API（应用程序接口）才能使你开发的系统更加充满活力。正是由于VB支持DLL使得我们可以随心所欲地控制窗口显示风格，从而我们可以让系统封面总处于前台，下面说明用到的API函数。
.SetWindowPOS
VB定义：DeclareSubSetWindowPosLib“User”（BybalhWndasInteger，
hWndInserAfterasInteger，ByValXasInteger，ByValYasInteger，ByVal
cxasInteger，ByValcyasInteger，ByValwFlagsasInteger）
说明：能改变窗口的位置和大小，并能修改窗口在内部窗口列表中所处的位置，
以控制显示次序。
参数类型／说明
hWndInteger－需定位的窗口
hWndInserfterInteger－窗口句柄，在窗口列表里，窗口hWnd将放在该窗口句柄的后面，它可以取以下值：
HWND＿BOTTOM：把窗口放在窗口列表的底部；
HWND－TOP：把窗口放在Z序的顶部。Z序是窗口按层次级别显示的顺序；
HWND＿TOP（MOST）：把窗口放在列表的顶部，位于所有最顶窗口之后。
XInteger—窗口新的x坐标，如果hWnd是一个子窗口，X给出的是父窗口的客户坐标。
YInteger—窗口新的Y坐标，如果hWnd是一个子窗口，Y给出的是父窗口的客户坐标。
cxInteger—指定新窗口宽度。
cyInteger—指定新窗口高度。
wFlagsInteger—包含下列标志之一的整数：
SWP＿DRAWFRAME：围绕窗口画一个边框；
SWP＿HIDEWINDOW：隐藏该窗口；
SWP＿NOACTIVATE：不激活该窗口；
SWP＿NOMOVE：保持当前位置（X和Y被忽略）；
SWP＿NOREDRAW：窗口不自动重画；
SWP＿NOSIZE：保持当前大小（cx和cy被忽略）；
SWP＿NOZORDER：保持窗口列表中的当前位置（hWndInsertAfter被忽略）；
SWP＿SHOWWINDOW：显示该窗口。
注释：当一个窗口成为最顶窗口时，它所有的从属窗口也成为最顶窗口；当它成为非最顶窗口时，它全部的从属窗口和拥有窗口也成为非最顶窗口，Z序表示窗口沿着从屏幕里向外延伸的假想Z轴，从顶到底的排列次序。
VB实现窗口拥有“AlwaysOnTop”特性：
首先，定义全局常量及函数。
GlobalConstHWND＿TOPMOST＝－1
GlobalConstSWP＿NOACTIVATE＝＆H10
GlobalConstSWP＿SHOWWINDOW＝＆H40
DeclareSubSetWindowPosLib“User”（ByBalhWndasInteger，hWndInserAfterasInteger，ByValXasInteger，ByValYasInteger，ByValcxasInteger，ByValcyasInteger，ByVALwFlagsasInteger）主程序如下编写：
SubMain0
Screen.MousePointer＝11'使鼠标变为漏斗状
LoadSystemCover'装载系统封面窗体
SetWindowPosSystemCover.hWnd，HWND＿TOPMOST，0，0，0，0，SWP＿NOACTIVATEOrSWP＿SHOWWINDOW'使得封面总处于最前面
LoadInitWindow1'装载初始化窗体1
LoadInitWindow2'装载初始化窗体2
：
：
UnloadSystemCover'关闭系统封面窗体
Screen.MousePointer＝0'使鼠标变为缺省形状
EndSub->
我们很希望在程序激活其它窗口时仍使得封面窗口处于前台，也就是说该窗口具有“总在最前面”（“AlwaysOnTop”）这一特性。其实Microsoft系列软件都是这样做的，当你运行Word、Excel或Powerpoint时，你会发现它们的封面窗口不随系统激活其它窗口而消
失。
VisualBasicForWindows3.0（以下简称VB）作为一种可视化编程软件，以其优秀的图形化界面设计风格而著称。利用它可使软件开发周期大为缩短，然而VB对WindowsDLL（动态链接库）调用的强大功能却易受不少程序员所忽略。事实上，灵活应用WindowsDLL的API（应用程序接口）才能使你开发的系统更加充满活力。正是由于VB支持DLL使得我们可以随心所欲地控制窗口显示风格，从而我们可以让系统封面总处于前台，下面说明用到的API函数。
.SetWindowPOS
VB定义：DeclareSubSetWindowPosLib“User”（BybalhWndasInteger，
hWndInserAfterasInteger，ByValXasInteger，ByValYasInteger，ByVal
cxasInteger，ByValcyasInteger，ByValwFlagsasInteger）
说明：能改变窗口的位置和大小，并能修改窗口在内部窗口列表中所处的位置，
以控制显示次序。
参数类型／说明
hWndInteger－需定位的窗口
hWndInserfterInteger－窗口句柄，在窗口列表里，窗口hWnd将放在该窗口句柄的后面，它可以取以下值：
HWND＿BOTTOM：把窗口放在窗口列表的底部；
HWND－TOP：把窗口放在Z序的顶部。Z序是窗口按层次级别显示的顺序；
HWND＿TOP（MOST）：把窗口放在列表的顶部，位于所有最顶窗口之后。
XInteger—窗口新的x坐标，如果hWnd是一个子窗口，X给出的是父窗口的客户坐标。
YInteger—窗口新的Y坐标，如果hWnd是一个子窗口，Y给出的是父窗口的客户坐标。
cxInteger—指定新窗口宽度。
cyInteger—指定新窗口高度。
wFlagsInteger—包含下列标志之一的整数：
SWP＿DRAWFRAME：围绕窗口画一个边框；
SWP＿HIDEWINDOW：隐藏该窗口；
SWP＿NOACTIVATE：不激活该窗口；
SWP＿NOMOVE：保持当前位置（X和Y被忽略）；
SWP＿NOREDRAW：窗口不自动重画；
SWP＿NOSIZE：保持当前大小（cx和cy被忽略）；
SWP＿NOZORDER：保持窗口列表中的当前位置（hWndInsertAfter被忽略）；
SWP＿SHOWWINDOW：显示该窗口。
注释：当一个窗口成为最顶窗口时，它所有的从属窗口也成为最顶窗口；当它成为非最顶窗口时，它全部的从属窗口和拥有窗口也成为非最顶窗口，Z序表示窗口沿着从屏幕里向外延伸的假想Z轴，从顶到底的排列次序。
VB实现窗口拥有“AlwaysOnTop”特性：
首先，定义全局常量及函数。
GlobalConstHWND＿TOPMOST＝－1
GlobalConstSWP＿NOACTIVATE＝＆H10
GlobalConstSWP＿SHOWWINDOW＝＆H40
DeclareSubSetWindowPosLib“User”（ByBalhWndasInteger，hWndInserAfterasInteger，ByValXasInteger，ByValYasInteger，ByValcxasInteger，ByValcyasInteger，ByVALwFlagsasInteger）主程序如下编写：
SubMain0
Screen.MousePointer＝11'使鼠标变为漏斗状
LoadSystemCover'装载系统封面窗体
SetWindowPosSystemCover.hWnd，HWND＿TOPMOST，0，0，0，0，SWP＿NOACTIVATEOrSWP＿SHOWWINDOW'使得封面总处于最前面
LoadInitWindow1'装载初始化窗体1
LoadInitWindow2'装载初始化窗体2
：
：
UnloadSystemCover'关闭系统封面窗体
Screen.MousePointer＝0'使鼠标变为缺省形状
EndSub->
中查找“利用VB控制窗口显示风格”更多相关内容
中查找“利用VB控制窗口显示风格”更多相关内容更多精彩
赞助商链接
