Formu Min.ve Max. Ederken Hata Veriyor

[AKTAY27]

selamlar;

bu siteden üstadların yardımıyla hazırlamış olduğum personel özlük programı var yapmak istediğim sace formlara minimize ve maksimize etmek için butonlar eklemekti. forma codlarını ekledim çalıştırdığım zaman hata veriyor bunun nedeni ne olabilir yardımlarınız bekliyorum. teşekkürler

 

[Seyit Tiken]

Aşağıdaki kod UserForm'u Max ve Min pozisyonuna getiriyor.

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
UserForm1.Height = 175: UserForm1.Width = 240
Else
UserForm1.Height = Application.Height: UserForm1.Width = Application.Width
End If
End Sub

 

[Ferhat Pazarçevirdi]

Aşağıdaki satırı; Userform1'in kod sayfasının en üst satırına kopyalayın.

Dim ctrl As Control

 

[AKTAY27]

sayın FPC

Aşağıdaki satırı; Userform1'in kod sayfasının en üst satırına kopyalayın.

Dim ctrl As Control

[/QUOTE]

* minimize oluyor fakat maksimize olmuyor

 

[AKTAY27]

Sayin Seyİt Tİken İlgİnİze TeŞekkÜr Ederİm
Ama Benİm İstedİĞİm BÖyle Bİr Şey DeĞİl

 

[Ferhat Pazarçevirdi]

Userform1'in kod sayfasının Deklarasyon kısmına şu satırı kopyalayın.

dim ctrl as control
Private Const WS_MAXIMIZEBOX = &H10000

Aşağıdaki kodu Userform'un kod sayfasına kopyalayın.

Private Sub AddMaximizeButton() 'max buton ilavesi
    Dim hWnd As Long
    hWnd = GetActiveWindow
    Call SetWindowLong(hWnd, GWL_STYLE, _
                       GetWindowLong(hWnd, GWL_STYLE) Or _
                       WS_MAXIMIZEBOX)
    Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, _
                      SWP_FRAMECHANGED Or _
                      SWP_NOMOVE Or _
                      SWP_NOSIZE)
End Sub

Userform1'in activate kodunu aşağıdaki gibi değiştirin.

Private Sub UserForm_activate() 'FORMU MİNİMİZE ETMEK VEYA TAM SAYFA ETMEK İÇİN KOD
    AddMinimiseButton
    AddMaximizeButton
    AppTasklist Me
End Sub

 

[AKTAY27]

Sayin Fpc;
Elİnİze SaĞlik MÜkemmel Oldu
Çok TeŞekkÜrler