Başlıksız Userform'da Minimize Maksimize Komutu Vermek

[WebForumcusu]

Başlıksız Userform'da Minimize ve Maksimize Komutu Vermek

Merhaba,
Bilgisayarda işlem yaparken formu kapatmadan işimi halledip tekrar formu açabilmenin yolunu bulmaya çalışıyorum. Ancak bu konuda verilmiş bütün örnekler başlıklı userform için. Benimse kullandığım userform başlıksız bu nedenle örneklerde verilen kodlar işime yaramıyor.Başlıksız bir userformda, formun üzerine ekleyeceğimiz bir butona, minimize maksimize komutu verdirebilmek mümkünmüdür acaba?

Gerçek Minimize: Minimize Buttona bastıktan sonra Userform Görev Çubuğu'na geçsin.
Doğru Maksimize: Maksimize Buttona basınca bütün ekran boyu değilde, Ekran büyüklüğüne göre Görev Çubuğu'nun üstüne kadar büyüsün.

Userform açıldığında nasıl olmasını istediğimi resimlerlerle açıklıyorum:

Böyle Olmamalı:

Böyle Olmalı:

 

[Ergün Güler]

Selam,

yeni bir modüle:

Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Userforma:

Dim g_hForm

Private Sub UserForm_Initialize()
g_hForm = FindWindow(vbNullString, Me.Caption)
SetWindowLong g_hForm, -16, &H20000 Or &H10000 Or &H84C80080
End Sub

3 tane CommandButton var olduğunu farz edelim:

Private Sub CommandButton1_Click()
ShowWindow g_hForm, 1 'minimize için
End Sub

Private Sub CommandButton2_Click()
ShowWindow g_hForm, 2 'simge durumu için
End Sub

Private Sub CommandButton3_Click()
ShowWindow g_hForm, 3 'maximize için
End Sub

 

[WebForumcusu]

Selam,



Selam Ergün bey,

Teşekkür ederim.
Yazdığınız şekilde başlık malesef var .
başlıksız olabilirmi?

 

[Ergün Güler]

Selam,



Selam Ergün bey,

Teşekkür ederim.
Yazdığınız şekilde başlık malesef var .
başlıksız olabilirmi?

Selam,
Deneme yapmıştım bende sorun olmamıştı. Örnek dosyanızı eklerseniz daha iyi çözüm bulabilirsiniz.

 

[WebForumcusu]

Selam,
Deneme yapmıştım bende sorun olmamıştı. Örnek dosyanızı eklerseniz daha iyi çözüm bulabilirsiniz.

Sorun değilde, düşündüğüm gibi olmadı.
Yazdığınız şekilde Userform başlıksız değil.
Üsteki görev çubuğu olmayacaktı.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

Başlıksız Formda Minimize ve Kapat Uygulaması

 

[Ergün Güler]

Sorun değilde, düşündüğüm gibi olmadı.
Yazdığınız şekilde Userform başlıksız değil.
Üsteki görev çubuğu olmayacaktı.

Selam,
Ben yanlış mı anlıyorum, bilmiyorum. Benim verdiğim kodlar zaten başlıksız yapmıyor. Zaten formunuz başlıksız değil mi?

ilk mesajınızda

Benimse kullandığım userform başlıksız

demişsiniz. Userformu başlıksız yapmak için;

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long

Private Const WS_BORDER = &H800000
Private Const GWL_STYLE = (-16)

Private Sub UserForm_Activate()
Dim hwnd As Long, FormStyle As Long
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) And Not WS_BORDER
DrawMenuBar hwnd
End Sub

 

[halit3]

Alternatif kod

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Initialize()
Me.Caption = " "
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H35000
End Sub

 

[WebForumcusu]

Teşekkür ederim

Selamlar,

Aşağıdaki linki incelermisiniz.

Başlıksız Formda Minimize ve Kapat Uygulaması

Teşekkür ederim Korhan bey :arkadas:

 

[WebForumcusu]

Selam,

Tekrardan binlerce Teşekkür ederim Ergün bey :arkadas:

 

[WebForumcusu]

Teşekkür ederim

Alternatif kod

Sizede binlerce Teşekkür ederim Halit bey :arkadas: