MyException - 我的异常网
当前位置:我的异常网» VB » 关于最大化旋钮不能控件,请帮忙

关于最大化旋钮不能控件,请帮忙

www.myexceptions.net  网友分享于:2013-04-10  浏览:1次
关于最大化按钮不能控件,请帮忙
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 Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SIZEBOX = &H40000

Private Sub MDIForm_Load()
    Dim lWnd As Long
    Dim mm As String
    Me.Width = 15100
    Me.Height = 10700
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = lWnd And Not (WS_SIZEBOX)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
.
.
.


End Sub

我的窗体是MDI的,我使用了这么一段刚运行后最大化按钮是不可以点的,界面边框也不拉动,但是我执行完了CSV、Access、Excel转换的操作后,最大化按钮也可以点了,界面也可以拉大拉小了,不知道原因在哪?
最大化按钮

------解决方案--------------------
那就在调用一次去掉最大化看行不行

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有