Formu Ortalama

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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.