代码设置窗体的弹出模式

曾经有人问过这个问题，怎样用代码设置ACCESS的PopUp 属性。而PopUp 属性只能在设计模式更改，所以很难用一般常规方法实现。
'===========================================================

'用途：代码设置窗体的弹出模式
'作者: andymark
'日期:2008-3-4
' Q Q: 42503577 Email: ewang11@163.com
'
'==========================================================
Private Declare Function AdjustWindowRect Lib "user32" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Long) As Long
Private Declare Function BeginDeferWindowPos Lib "user32" (ByVal nNumWindows As Long) As Long
Private Declare Function DeferWindowPos Lib "user32" (ByVal hWinPosInfo As Long, 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 Declare Function EndDeferWindowPos Lib "user32" (ByVal hWinPosInfo As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
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 Declare Function GetDesktopWindow Lib "user32" () As Long

Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_NOMOVE = &H2
Const SWP_DRAWFRAME = &H20
Const GWL_STYLE = (-16)
Const WS_POPUP = &H80000000     '弹出模式
Const HWND_TOPMOST = -1         '最顶层窗口
Const HWND_BOTTOM = 1
Const SWP_SHOWWINDOW = &H40
Const HWND_NOTOPMOST = -2
Const WS_BORDER = &H800000
Const WS_DLGFRAME = &H400000
Const WS_THICKFRAME = &H40000
Const WS_CAPTION = &HC00000

Const HWND_TOP = 0

Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Function SetPoPupFrm(Frm As Form)

    Dim dwStyle As Long
    Dim BStyle As Long
    Dim R As RECT, hDWP As Long
    '取得当前式样
    dwStyle = GetWindowLong(Frm.hWnd, GWL_STYLE)
    '保存式样,以便还原
    BStyle = dwStyle
    '定义弹出模式
    dwStyle = dwStyle or WS_POPUP

    dwStyle = SetWindowLong(Frm.hWnd, GWL_STYLE, dwStyle)

    '窗口的尺寸
     GetWindowRect Frm.hWnd, R
      '还原窗口样式
     dwStyle = SetWindowLong(Frm.hWnd, GWL_STYLE, BStyle)
     '重新指定窗口位置及状态等属性
    AdjustWindowRect R, WS_THICKFRAME or WS_CAPTION, False
    hDWP = BeginDeferWindowPos(1)
    DeferWindowPos hDWP, Frm.hWnd, HWND_TOPMOST, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, SWP_NOSIZE

    EndDeferWindowPos hDWP

End Function

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

End Sub

http://www.office-cn.net/vvb/thread-60059-1-1.html

代码设置窗体的弹出模式相关推荐

android动态设置软键盘弹出模式,Android 弹出软键盘所遇到的坑及解决方法
重要代码: //1.此layout作为最外层的layout: //2.设置需要调整的view: setAdjustView(View view); //3.如果需要控制输入框的显示与隐藏,可以实现On ...
php 弹窗代码大全,PHP_asp.net弹出窗口代码大全，//关闭,父窗口弹出对话框,子窗 - phpStudy...
asp.net弹出窗口代码大全 //关闭,父窗口弹出对话框,子窗口直接关闭 this.Response.Write(""); //关闭,父窗口和子窗口都不弹出对话框,直接关闭 th ...
vb html ie弹出窗口,VB6 统制IE弹出模式窗口
VB6 控制IE弹出模式窗口最近一个小项目,开发一个插件,需要对一个第三方系统的网页内容进行操作.操作的内容还比较复杂.自然选择用BHO做. 做到一半卡住了,原因在于这个网站有一个showmodal ...
android系统动态切换输入法,一种动态切换Android系统输入法的弹出模式的方法与流程...
技术特征: 1.一种动态切换Android系统输入法的弹出模式的方法,其特征在于,包括步骤如下: (1)初始状态下,即软键盘和表情面板都未展开时,为表情面板设置一个默认高度,默认高度的取值范围是230 ...
android自动切换输入法,一种动态切换Android系统输入法的弹出模式的方法
主权项: 1.一种动态切换Android系统输入法的弹出模式的方法,其特征在于,包括步骤如下:(1)初始状态下,即软键盘和表情面板都未展开时,为表情面板设置一个默认高度,默认高度的取值范围是230dp ...
android 输入法更换_一种动态切换Android系统输入法的弹出模式的方法与流程
本发明涉及一种Android系统利用动态切换输入法的弹出模式解决输入法跳闪抖动问题的方法,属于安卓系统技术领域. 背景技术: 随着Android系统的快速发展以及安卓手机的不断普及,基于Android ...
android dialog 动画代码,android 自定义dialog弹出和消失动画
自定义dialog窗口,根据坐标可随意设置dialog显示位置,实现了窗口弹出动画 Java代码: package com.sunxu.org.IndividualityDialog; import ...
SetWindowLong代码设置窗体borderStyle风格 TOOLWINDOW
//SetWindowLong代码设置窗体borderStyle风格 TOOLWINDOW SetWindowLong(self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW ...
使用网络打印机进行“属性”和“首选项”设置时，弹出个浏览器.exe错误对话框
使用网络打印机进行"属性"和"首选项"设置时,弹出个浏览器.exe错误对话框:"功能地址0x4f662035造成了一个保护错误. (例外码0xc000 ...

代码设置窗体的弹出模式

代码设置窗体的弹出模式相关推荐

最新文章

热门文章