Board logo

標題: [發問] 使用vba 使Excel視窗右上角之縮小放大"失效"? [打印本頁]
作者: yangjie    時間: 2014-7-3 08:52     標題: 使用vba 使Excel視窗右上角之縮小放大"失效"?

請教各位先進:
應如何使用vba 使Excel視窗右上角之縮小放大"失效"?
(Excel2003   Excel2010中均可使用)
作者: stillfish00    時間: 2014-7-4 14:54

本帖最後由 stillfish00 於 2014-7-4 14:55 編輯

回復 1# yangjie
google可找到用API的方法
[attach]18621[/attach]
[attach]18622[/attach]
  1. Option Explicit

  3. Public Const GWL_STYLE = (-16)
  4. Public Const WS_THICKFRAME = &H40000
  5. Public Const WS_MINIMIZEBOX = &H20000
  6. Public Const WS_MAXIMIZEBOX = &H10000

  8. Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( _
  9.     ByVal hWnd As Long, _
  10.     ByVal nIndex As Long) As Long

  12. Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" ( _
  13.     ByVal hWnd As Long, _
  14.     ByVal nIndex As Long, _
  15.     ByVal dwNewLong As Long) As Long


  18. Public Sub Prevent_Window_Resize()

  20.     Dim hWnd As Long
  21.     Dim style As Long
  22.     Dim ret As Long
  23.    
  24.     hWnd = Application.hWnd
  25.         
  26.     style = GetWindowLong(hWnd, GWL_STYLE)
  27.       
  28.     style = style And Not (WS_THICKFRAME Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX)
  29.     ret = SetWindowLong(hWnd, GWL_STYLE, style)
  30.    
  31. End Sub
複製代碼
要還原可把
style = style And Not (WS_THICKFRAME Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX)
改成
style = style OR (WS_THICKFRAME Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX)
再執行



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)