API改变窗体的弹出窗体模式

andymark

'===========================================================

'用途：动态改变窗体的弹出模式
'作者: andymark
'日期:2008-3-4
' Q Q: 42503577  Email: ewang11@163.com
'
'==========================================================

    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    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 Const SWP_NOSIZE = &H1
    Private Const SWP_NOZORDER = &H4
    Private Const SWP_NOMOVE = &H2
    Private Const SWP_DRAWFRAME = &H20
    Private Const GWL_STYLE = (-16)
    Private Const WS_POPUP = &H80000000     '弹出模式
    Private Const HWND_TOPMOST = -1         '最顶层窗口

Public Function SetPoPupFrm(Frm As Form, SetPOPUP As Boolean)

    Dim dwStyle As Long
   
    dwStyle = GetWindowLong(Frm.hwnd, GWL_STYLE)
   
    If SetPOPUP Then
   
        dwStyle = dwStyle Or WS_POPUP
        dwStyle = SetWindowLong(Frm.hwnd, GWL_STYLE, dwStyle)
        SetWindowPos Frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
        
    Else
      
       dwStyle = SetWindowLong(Frm.hwnd, GWL_STYLE, dwStyle)
       SetWindowPos Frm.hwnd, 0, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

        
    End If
End Function

'Private Sub Form_Load()
'设置窗体弹出模式
' SetPoPupFrm Me, True
'非出模式
' SetPoPupFrm Me, False

'End Sub

hjbboy

很好的列子

yanghua1900363

lynnwang

今天偶然路过这里，发现这个贴子，跟 我昨天在下面链接分析的问题很接近。
既然发现了错误就指出来罗

由于是管理员级发布的代码，新手自然认为是比较权威的，但 WS_POPUP   和 WS_CHILD（WINDOW）两种是不能共容的，
就像现实中的男人与女人，虽然都是人，但是不能转换来转换去，虽然现实中可以男人变性为女人，但是要付出代价的，虽然贴了女人标，但始终是男人。

同理，代码中虽然可以将普通窗体标上 WS_POPUP  标签，但你始终是男人，所以运行起来问题就多多了（你说变性男/人妖，到底上男厕所还是女厕所，现实如此，系统也如此{:soso_e144:} ）

文采就这样，能让大家能深入一点理解就好。

http://www.office-cn.net/thread-114430-2-1.html

sl-txm

xie62

学习学习。

dlack

学习一下

accesswj

okokokokokooookokokok

qczvba

谢谢看，谢管理员。

liaoqiang234