Formu Ortalama

[ßyMesMes]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Formu Ekrar Ortalama Yine Modüle Yasıp Bütün Formları Ortalayabilirsiniz.

Public Sub FormuEkrandaOrtala(frm As Form ) 
    Dim widthana, heightana, heightform, widthform As Integer 
    widthana = Screen.Width 
    heightana = Screen.Height - 1400 
    widthform = frm.Width 
    heightform = frm.Height 
    frm.Left = (widthana - widthform ) / 2 Center form horizontally. 
    frm.Top = (heightana - heightform ) / 2 Center form vertically. 
End Sub

Form Kullanımı

private sub form_load( ) 
     call FormuEkrandaOrtala(me ) 
end sub

 

[darki2696]

Tşkler...

 

[cskn192]

Teşekkürler.

 

[hacker_furkan]

Teşekkürler

 

[ßyMesMes]

Sağolun.