Страницы: 1
RSS
Убрать с 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 кнопки "Свернуть/Развернуть" и "Во весь экран". Что в нем нужно убрать (добавить?) что-бы осталась только "Свернуть/Развернуть"
Спасибо!
Согласие есть продукт при полном непротивлении сторон
 
Попробуйте поочерёдно отключать Private Declare Function  :)
 
Тоже вариант  :) , боюсь не разберусь с возникшими ошибками
Согласие есть продукт при полном непротивлении сторон
 
Закомментируйте строку:
Код
'Private Const WS_MAXIMIZEBOX As Long = &H10000
Кнопка не пропадёт, но будет недоступна.
 
Юрий М,спасибо. Еще заметил если в обработчике события UserForm_Initialize() или UserForm_Activate() изменять свойство Caption,  то кнопки вообще не появляются. С чем связано? Как лечиться? Спасибо!
Согласие есть продукт при полном непротивлении сторон
 
Последнюю проблему решил (Caption нужно изменять ДО работы с кнопками)! Всем СПАСИБО!
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх