Userformdaki maksimize düğmesini iptal etmek.

[Kayıboyu1]

Userform sağ üst köşedeki çıkış düğmesini iptal ettim. Maksimize düğmesini nasıl iptal edebilirim?

Teşekkürler..

 

[Kayıboyu1]

Çıkış butonunu iptal eden kodlar çalışıyor.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Lütfen Çıkış Butonunu Kullanınız... " 
Cancel = True
End If
End Sub

Maksimize düğmesini iptal edebilir miyiz?

Teşekkürler...

 

[İhsan Tank]

dosyanızı eklermisiniz

 

[Kayıboyu1]

Dosya ektedir.

 

[İhsan Tank]

Dosya ektedir.

inceler misiniz

 

[Kayıboyu1]

Sayın İhsan Tank,

Çok teşekkürler. Emeğinize sağlık. Saygılar..

 

[İhsan Tank]

Sayın İhsan Tank,

Çok teşekkürler. Emeğinize sağlık. Saygılar..

rica ederim
:yazici:

 

[Kayıboyu1]

Ustam,

Bir problem var. Userform Show yapınca dosya windows görev çubuğunda gözükmüyor. Birkaç dosya açıkken excel userformu göremiyorum. Windows görev çubunda gösterebilir miyiz?

Saygılarımla..

 

[Kayıboyu1]

'Private Sub UserForm_Activate()
'    Dim lngHwnd As Long
'    Dim lngCurrentStyle As Long, lngNewStyle As Long

    'If Val(Application.Version) < 9 Then
'        lngHwnd = FindWindow("ThunderXFrame", Me.Caption)  'XL97
'    Else
'        lngHwnd = FindWindow("ThunderDFrame", Me.Caption)  'XL2000, XP, 2003?
'    End If

    'Set the Windows style so that the userform has a minimise and maximise button
    'lngCurrentStyle = GetWindowLong(lngHwnd, GWL_STYLE)
'    lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
'   lngNewStyle = lngNewStyle And Not WS_VISIBLE And Not WS_POPUP
'    SetWindowLong lngHwnd, GWL_STYLE, lngNewStyle


    'Set the extended style to provide a taskbar icon
    'lngCurrentStyle = GetWindowLong(lngHwnd, GWL_EXSTYLE)
    'lngNewStyle = lngCurrentStyle Or WS_EX_APPWINDOW
    'SetWindowLong lngHwnd, GWL_EXSTYLE, lngNewStyle
    'ShowWindow lngHwnd, SW_SHOW
        
'End Sub

Bu kodlardan biri userformu windows görev çubunda gösterebilir ama bir türlü bulamadım.