¥»©«³Ì«á¥Ñ PKKO ©ó 2015-5-13 17:47 ½s¿è
¤p§Ì¤wª¾Userform ³Ì¤j¤Æªºµ{¦¡½X,¤]ª¾¹D¨Ì¤ñ²v©ñ¤jªºµ{¦¡½X,¦ý¤£ª¾¹D¦p¦ó¦Û°Ê¨ú±o¨âªÌ¤§¶¡ªº¤ñ²v,¨Ó¦Û°Ê³]©w©ñ¤jªº¿¼Æ...
¦³¤Hª¾¹Dzoomªº¤ñ²vn¦p¦ó¨D±o¶Ü?
¤ñ²vªºµ{¦¡½X
UserForm1.Zoom = 125
³Ì¤j¤Æªºµ{¦¡½X- 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 GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
- Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) 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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
- Private Const WS_MAXIMIZEBOX = &H10000
- Private Const WS_MINIMIZEBOX = &H20000
- Private Const GWL_STYLE = (-16)
- Private Const SW_SHOWMAXIMIZED = 3
- Private Const SW_SHOWNORMAL = 1
- Private Const SW_SHOWMINIMIZED = 2
- Private Const WS_THICKFRAME = &H40000
- Const SM_CXFULLSCREEN = 16
- Const SM_CYFULLSCREEN = 17
- Const HWND_TOPMOST = -1
- Const SWP_SHOWWINDOW = &H40
- Dim hWndForm As Long
- Dim IStyle As Long
- Private Sub UserForm_Initialize()
- hWndForm = FindWindow("ThunderDFrame", Me.Caption)
- IStyle = GetWindowLong(hWndForm, GWL_STYLE)
- IStyle = IStyle Or WS_THICKFRAME
- IStyle = IStyle Or WS_MINIMIZEBOX
- IStyle = IStyle Or WS_MAXIMIZEBOX
- SetWindowLong hWndForm, GWL_STYLE, IStyle
- End Sub
- Public Sub myShowMax()
-
- SetActiveWindow hWndForm
- ShowWindow hWndForm, SW_SHOWMAXIMIZED
- End Sub
½Æ»s¥N½X |