Userform Tam Ekranı Sabitlemek

[İsmail Küçükşengün]

Merhabalar;

Aşağıdaki kodla userformu tam ekran yapıyorum.

Private Sub UserForm_Initialize()
With UserForm1
.Height = Application.Height
.Width = Application.Width
End With
End Sub

Fakat Userformun üstünden (caption) mouse ile tutulduğunda userformu aşağı yukarı, sağa sola yeri değiştirilebiliyor.

Öğrenmek istediğim;
Mouse ile tutulduğunda dahi userformun yerinin değiştirilememesi ve hiçbir müdahale ile buna imkan yermeyen, formun tam ekranda olduğu gibi sabit kalması için ne gibi bir kod gereklidir.

Teşekkürlerimle..

 

[Haluk]

...
Öğrenmek istediğim;
Mouse ile tutulduğunda dahi userformun yerinin değiştirilememesi ve hiçbir müdahale ile buna imkan yermeyen, formun tam ekranda olduğu gibi sabit kalması için ne gibi bir kod gereklidir.

http://www.mrexcel.com/board2/viewtopic.php?t=211924

 

[İsmail Küçükşengün]

Sayın Haluk;

Çok teşekkür ediyorum.

Gerçi ayrı bir başlık açmam gerekli ama,
formun üstündeki mavi kısım (caption) tamamen iptal edilebilir mi?

Çünkü sizin verdiğiniz kodda, form hernekadar sabit kalsa da, mouse ile tutup taşımak istediğimizde, hafif kıpırdanmalar oluyor, ama yine de sabit kalıyor, taşınmıyor.

Teşekkür ve saygılarımla...

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

 

[İsmail Küçükşengün]

Sayın Cost Control;

Tam aradığım gibi.

Teşekkür ve saygılar. k::