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

 
Kod Alanı:

 
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ı

 

Kod Alanı:

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


 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol