vb弹出窗口制作:用VB制作TopMost类型窗口来源: 发布时间:星期五, 2008年12月26日 浏览:83次 评论:0
TopMost这个词也许你很陌生
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() SetWindowPos ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Declare Function SetwindowPos Lib "user32.dll" (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 SetWindowPos ![]() ![]() ![]() 表1 SetWindowPos ![]() ![]() 参数名 参数含义 hwnd 要移动 ![]() ![]() ![]() hWndInsertAfter 有关如何在Z轴上放置窗口 ![]() x 相当于窗口 ![]() y 相当于窗口 ![]() cx 相当于窗口 ![]() cy 相当于窗口 ![]() wFlags 有关如何移动窗口 ![]() 表2 HWndInsertAfter参数 ![]() hWndInsertAfter ![]() 某 ![]() ![]() ![]() HWND_BOTTOM(1) 把窗口放在Z轴 ![]() ![]() ![]() HWND_TOP(0) 将窗口放在Z轴 ![]() ![]() ![]() HWND_TOPMOST(-1) 使窗口成为“TopMost”类型 ![]() ![]() ![]() ![]() ![]() HWND_NOTOPMOST(-2) 将窗口放在所有“TopMost”类型 窗口 ![]() ![]() 表3 wFlags参数 ![]() wFlags参数 ![]() SWP_DRAWFRAME(&H20) 移动窗口后重画窗口及其上 ![]() SWP_HIDEWINDOW(&H80) 隐藏窗口 ![]() 务栏上 ![]() SWP_NOACTIVATE(&H10) 窗口移动后不激活窗口 ![]() ![]() 激活 ![]() SWP_NOCOPYBITS(&H100) 当窗口移动后 ![]() ![]() SWP_NOMOVE(&H2) 不移动窗口(即忽略X和Y参数) SWP_NOSIZE(&H1) 不改变窗口尺寸(即忽略Cx和Cy参数) SWP_NOREDRAW(&H8) Do not remove the image of the window in its former position from the screen. In other words,leave behind a ghost image of the window in its old position SWP_NOZORDER(&H4) 不改变窗口听Z轴位置(即忽略hWndInsertAfter参数) SWP_SHOWWINDOW(&H40) 显示窗口(的前必须使用过SWP_HIDEWINDOW 隐藏窗口) 前面已提到 ![]() ![]() ![]() ![]() ![]() ![]() ![]() 另外 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() 2、 ![]() 下面 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() 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 Public Const SWP_NOMOVE= &H2 '不移动窗体 Public Const SWP_NOSIZE=&H1 '不改变窗体尺寸 Public Const Flag=SWP_NOMOVE Or SWP_NOSIZE Public Const HWND_TOPMOST=-1 '窗体总在最前面 Public Const HWND_NOTOPMOST=-2 '窗体不在最前面 为窗体添加代码如下: Private Sub cmdNormal_Click ![]() cmdTopMost.Enabled=True cmdNormal. Enabled= False Form1.Captio = "现在是普通窗口" SetWindowPos Form1.hwnd,HWND_NOTOPMOST,0,0,0,0,Flag End Sub Private Sub cmdTopMost_Click ![]() cmdTopMost.Enabled = False cmdNormal.Enabled = True Form1.Caption = "现在是TopMost窗口" SetWindowPos Form1.hwnd,HWND_TOPMOST,0,0,0,0,Flag End Sub 按下F5 ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() 0
相关文章
读者评论
发表评论 |