Userform minimize olayını labele atamak?

[turk-x]

Slm Arkadaşlar;
Label nesnesine tıklayınca userformun görev çubuğuna simge durumunda küçülmesini istiyorum. Bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim..
Neden label derseniz Başlıksız Userform üzerinde çalışıyorum ve simge durumunda küçültme olayı userforma eklediğim temada kullanıcam...
Birde;Userformun başlık bölümüne çok pratik bir kodla simge nasıl ekleyebilirim...(Aslında başlığa simge ekleme forumda çok yerde geçiyor ve standart kodlarla eklemek çok basit ama ben daha pratiği varmıdır acaba diye buraya yazıyorum )

 

[Levent Menteşoğlu]

Label ile ilgili ekli örneği inceleyin. Ancak merak ettiğim, başlıksız userformu minimize ettiğinizde tekrar nasıl maximize edeceksiniz.

userform başlığına icon eklemekle ilgili olarakta aşağıdaki linki inceleyin.

http://puremis.net/excel/code/049.shtml

 

[Zeki Gürsoy]

"ShowWindow" API ile kolayca yapılabilir.

API:

Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" ( _
                ByVal hwnd As Long, _
                ByVal nCmdShow As Long) As Long

Label Click olayları altına:

[COLOR=DarkGreen]'****Minimize*****[/COLOR]
myForm = FindWindow(vbNullString, Me.Caption)
ShowWindow myForm, 6

[COLOR=DarkGreen]'****Maximize****[/COLOR]
myForm = FindWindow(vbNullString, Me.Caption)
ShowWindow myForm, 3

[COLOR=DarkGreen]'****Normal****[/COLOR]
myForm = FindWindow(vbNullString, Me.Caption)
ShowWindow myForm, 1

 

[turk-x]

Sayın Levent Bey;
Öncelikle Size yardımcı olduğunuz için çok teşekkür ederim.
puremis.net sitesinde yayınlanan kodlamayı ımage nesnesini userforma ekleyerek kullanıyorum. ama merak ettiğim daha basit bir kodlama ile yapılabilir mi?

Userform minimize etme kısmına gelince benim istediğim görev çubuğuna minimize etmekti. Görev çubuğunda simge durumunda olunca üzerine tıkladığımda maximize olur zaten

Sizin kodunuzun bir kısmını alarak görev çubuğuna minimize etme koduna ekledim ve minimize etme tam istediğim gibi oldu maximize etme olayı da dediğim gibi çözüldü.

 

[turk-x]

Sayın Zeki Gülsoy;

Sizin belirttiğiniz kodlarda işimi görür ama dediğim gibi minimize olayı ekranın alt kösesine eğil görev çubuğuna olmalıdır. Sizin kodunuzuda görev çubuğuna minimize eden koda eklediğimizde tam istediğim gibi oluyor.
Yardımcı olduğunuz için çok teşekkürler

 

[WebForumcusu]

Label ile ilgili ekli örneği inceleyin. Ancak merak ettiğim, başlıksız userformu minimize ettiğinizde tekrar nasıl maximize edeceksiniz.

userform başlığına icon eklemekle ilgili olarakta aşağıdaki linki inceleyin.

http://puremis.net/excel/code/049.shtml

Teşekkür ederim Levent bey :arkadas: