UserForm Tam Ekran ve normal boyutların öğrenmek.

[Orion1]

Merhaba.
UserForm'u tam ekran yaptığımda veya normal duruma getirdiğimde,Userform'un Genişlik ve yüksekliğini nasıl öğrenebilirim?
Teşekkür ederim.

 

[Seyit Tiken]

Kodu bir uygulayınız.

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hWnd As Long, ByVal bEnable As Long) 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_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub
Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H35000
UserForm1.Width = 50
UserForm1.Height = 50
End Sub

 

[Mahmut Bayram]

Şöyle bir kod işinizi görebilir

Private Sub UserForm_Activate()
MsgBox UserForm1.width & "x" & UserForm1.height
End Sub

 

[Orion1]

Merhabalar.
Sayın Seyit Tiken Yanıtınız için teşekkür ederim.
Gönderdiğiniz kodlar ile Userform'u minimize,maxsimize yapabiliyor veya normal boyuta getirebiliyoruz.
UserForm Tam ekran olduğunda UserForm'un Genişlik ve yüksekliğini veya normal boyuta geldiğinde Genişlik ve yüksekliğini nasıl öğrenebilirim?

 

[Orion1]

merhaba.
Sayın Partner sizin verdiğiniz kodu denedim sonuç alamadım.

 

[Mahmut Bayram]

Sn. Sezar kesinlikle işe yaraması lazım.

Private Sub UserForm_Activate()
    Me.Top = Application.Top
    Me.Left = Application.Left
    Me.Height = Application.Height
    Me.Width = Application.Width
MsgBox UserForm1.Width & "x" & UserForm1.Height
End Sub

Bu bende işe yaradı. 966x585 çıktı bende. :???:

 

[Orion1]

Merhaba.
Örnek dosyayı yollarmısınız?

 

[Mahmut Bayram]

Örnek dosya ekte.

 

[Orion1]

Merhaba.
Örnek dosyayı incelermisiniz?
Tam ekrana getirdiğimde ebadı verecek tekrar normal boyuta getirdiğmde gene ebadı verecek.

 

[Mahmut Bayram]

Sn. Sezar bu istediğiniz ancak api ile yapılabilir.
Ekranı küçült ve büyüt butonlarını kontrol edebilen bir kod ile olabilir.
Veya şu an aklıma gelmeyip, daha pratik ve kolay bir kod da olabilir.
Araştııyorum. Bulursam eklerim.

 

[Orion1]

Merhaba.
Teşekkür ederim.İyi geceler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

 

[Orion1]

Sayın Cost Control
Teşekkür ederim.İstediğim buydu.
Amacım Userform Maximize olduğu zaman Listbox'ın uzunluğuda o oranda Uzasın ve textbox'ların left durumuda o oranda sağa kaysın.Elimde bulunun maximize minimize Apilerinde bu işlem yapılmıyor.Userform maximize oluyor,Fakat Listbox düdük gibi kalıyor.Textbox'larda ayni yerinde kalıyor.
Eğer elinizde Listbox'ında Maximize oranında büyüdüğü ve textbox'larında ve diğer nesnelerinde O oranda sağa doğru yer değiştirdiği bir Userform Minimize maximize api'si varsa yollayabilirmisiniz.Eğer yollarsanız.Bu hesaplamalardan kurtulmuş olurum.
Tekrar teşekkür ederim.İyi çalışmalar.

 

[Seyit Tiken]

Bunu Api'lerle değilde normal kodlarla yapılabilir diye düşünüyorum. Tasarladığınız adımların kodlarını butonlara atayıp, uygulamanızı gerçekleştirebilirsiniz.

 

[Orion1]

Merhaba.
Listbox'ın büyümesi küçülmesi konusunda Sayın Cost Controlun verdiği dosyada çalışma yaptım.Fakat listbox'ın büyüme ve küçülme durumunu yapamadım.Örnek dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda gerekli düzenlemeyi yaptım. İncelermisiniz. Umarım faydası olur.

Ayrıca daha önce forumda yayınlanan örnek bir uygulamayıda ekliyorum. İncelerseniz belki faydası olabilir.

 

[Levent Menteşoğlu]

Userform üzerine bir frame ekleyip, tüm nesneleride bu frame üzerine yerleştirirsek userformun maximize veya minimize durumuna göre nesnelerin büyüklüklerinide değiştirebiliriz. Burada frame nesnesinin zoom özelliğinden istifade edilmiştir.

 

[Orion1]

Merhaba.
Sayın LeventM ve Cost Control teşekkür ederim.
Sayın LeventM Frame büyüyünce İçindeki nesnelerin karakterleride büyüyor.
Saygılar.

 

[Levent Menteşoğlu]

.....Frame büyüyünce İçindeki nesnelerin karakterleride büyüyor.......

Bu gayet normal çünkü yapılan zoom işlemidir.

 

[Levent Menteşoğlu]

Eğer isterseniz aşağıdaki kodu userform_resize prosedürünün en altına ilave edin, böylece font büyüklükleri aynı kalır.

For a = 0 To Controls.Count - 1
Controls(a).Font.Size = 8 / form_oran
Next