Logika dari function ini adalah mengambil lebar layar dikurangi dengan lebar form nya lalu di bagi 2. Tentu hal akan membuat sudut kiri form akan di letakan dimana ‘sisa’ space kosong sebelah kiri dan kanan form akan memiliki lebar yang sama. Untuk tinggi form juga akan di gerakan dengan perhitungan yang sama.
Nah, berikut adalah function bentuk jadinya.
Sub TengahkanPersis(f As Form) ' Tengahkan form yang anda maksud f.Move (Screen.Width - f.Width) \ 2, ((Screen.Height - (f.Height)) \ 2) End Sub
Form_Load
. Jadi begitu form terbuka, function TengahkanPersis
akan di panggil dan akan meletakan form anda di tengah-tengah layar. Berikut contoh pemanggilan function ini.Private Sub Form_Load() '/tengahkan form TengahkanPersis Me '/baris berikut isi dengan function yang lain. End Sub
Tidak ada komentar:
Posting Komentar