Cara Menempatkan Form di Posisi Kanan Bawah Layar dengan Kode VB6

Pada artikel kali ini admin akan memberikan sebuah kode untuk menempatkan posisi form berada pada kanan bawah layar.

Berikut dibawah ini adalah gambar hasil project yang saya sudah buat :

Pada gambar diatas form yang sudah jadi berada pada posisi kanan bawah yaitu form dengan format jam.

Berikut adalah langkah-langkah cara pembuatannya :

1. Buka Form VB6 Standar EXE

2. Ketikan kode berikut dibawah ini di Form :

Private Sub Form_Load()

Dim R As RECT

Call SystemParametersInfo(SPI_GETWORKAREA, 0, R, 0)

Me.Top = (R.Bottom * Screen.TwipsPerPixelX) - Me.Height

Me.Left = (R.Right * Screen.TwipsPerPixelY) - Me.Width

End Sub

3. Kemudian tambahkan 1 buah Module, pada Module ketik kode dibawah ini :

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Public Declare Function SystemParametersInfo _

Lib "user32" Alias "SystemParametersInfoA" ( _

ByVal uAction As Long, ByVal uParam As Long, _

lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_GETWORKAREA As Long = 48

4. Setelah mengetikan kode diatas, jalankan Project anda, jika tidak ada error maka hasilnya akan tampak pada gambar diatas.

Demikianlah artikel singkat tentang Cara Menempatkan Form di Posisi Kanan Bawah Layar dengan Kode VB6.

Semoga artikel ini bermanfaat buat kita semua, Aimin.

Selamat mencoba semoga berhasil

Related Post: Form