Добрый вечер!
Помогите разобраться в API (сам не силен, к сожалению).
Вот это код:
добавляет на UserForm кнопки "Свернуть/Развернуть" и "Во весь экран". Что в нем нужно убрать (добавить?) что-бы осталась только "Свернуть/Развернуть"
Спасибо!
Помогите разобраться в API (сам не силен, к сожалению).
Вот это код:
Код |
---|
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_SYSMENU As Long = &H80000 Private Const WS_MINIMIZEBOX As Long = &H20000 Private Const WS_MAXIMIZEBOX As Long = &H10000 Private Sub UserForm_Initialize() Dim lngFrmHndl As Long, lngStyle As Long lngFrmHndl = FindWindow(vbNullString, Me.Caption) lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE) lngStyle = lngStyle Or WS_SYSMENU lngStyle = lngStyle Or WS_MINIMIZEBOX lngStyle = lngStyle Or WS_MAXIMIZEBOX SetWindowLong lngFrmHndl, GWL_STYLE, (lngStyle) DrawMenuBar lngFrmHndl End Sub |
добавляет на UserForm кнопки "Свернуть/Развернуть" и "Во весь экран". Что в нем нужно убрать (добавить?) что-бы осталась только "Свернуть/Развернуть"
Спасибо!
Согласие есть продукт при полном непротивлении сторон