Cara Membuat Form Selalu Tampil di Atas dengan Visual Basic 6.0

Cara Membuat Form Selalu Tampil di Atas dengan Visual Basic 6.0 - Bagi Anda yang sering memainkan musik melalui winAmp, pasti sudah mengetahui bahwa tampilan WinAmp selalu tampil diatas (Always on Top) meskipun dalam keadaa tidak aktif. Salah satu contoh lagi ketika kita membuka program kalkulator kemudian kita buka lagi program lain tentu program kalkulator kita akan berada dibalik program yang barusan kita buka (tertutup) karena tidak di set Always on top sebaliknya bila program yang dibuat untuk diset Always on top maka program akan selalu tampil diatas.  Anda membuka banyak program hingga puluhan Aplikasi, maka program tersebut selalu tampil diatas (tidak akan tertindih) kalau diset Always on Top. Mungkin Anda bertanya-tanya bagaimana cara membuat tampilan program selalu tampil diatas? jawabannya dapat Anda temukan dengan mempelajari tip berikut ini :

Visual Basic sudah membekali suatu fungsi untuk keperluan tersebut, fungsi tersebut dinamakan Function SetWindowPos.

Parameters-parameters dalam fungsi tersebut adalah :

• HWnd, handle dari window yang ingin di program Always on Top.
• HwndInsertAfter, identifikasi dari posisi window. Gunakan HWND_TOPMOST jika form ingin tampil selalu diatas.

• x, y,  posisi window dari kiri dan atas layar (satuan Pixel)
• cx,cy lebar dan tinggi window (dalam Pixel)
• wFlags, flag untuk menetukan ukuran dan posisi window, diantaranya:

         -SWP_NOMOVE yang akan mengabaikan nilai dari x dan y.

         -SWP_NOSIZE yang akan mengabaikan nilai dari cx dan cy

Untuk labih memperjelas pemahaman Anda, ikuti langkah-langkah pembuatan programnya berikut dibawah ini:

Cara Membuat Form Tampil di Atas (Alway on Top) :

1. Masuk ke linkungan visual basic,tambahkan Form baru yang akan di set menjadi "always on top".

2. Tambahkan sebuah Module dengan mengklik menu Project kemudian pilih Add Module, maka akan terbuka jendela module, pada bagian Object pilih General dan pada bagian Procedure akan tampil declaration.

3. Kemudian ketikan kode berikut  di Module:

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2

4. Kembali ke jendela Form, lalu buka jendela kode dengan menekan  F7 atau klik ganda form yang kosong, kemudian pilih General Declaration lalu ketikan kode berikut :

Private Sub Form_Load()
SetWindowPos Form2.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub

5. Simpan hasil pekerjaan Anda dan jalankan program.

Catatan:

Harus Anda pastikan bahwa form harus disesuaikan dengan nama form Anda. Disini saya menggunakan Form2.

Demikian tip cara Cara Membuat Form Selalu Tampil di Atas dengan Visual Basic 6.0, Semoga bermanfaat.Selamat mencoba semoga berhasil.

Related Post: Form