Posisi Form Selalu Diatas

Facebook Tags: Source Code VB

Nah kali ini berhubungan dengan fitur2 apa ajah yang bisa dilakukan oleh Visual Basic…
Salah satunya itu membuat form selalu terlihat (On Top). Mungkin kalian pernah mengalami dalam membuat aplikasi itu yang dimana terdapat form Menu Utama,dan saat kita membuka form lain,posisinya bisa tertimpa oleh form menu,saat fokus nya kita pindahkan ke form menu utama.
Sebenernya ada 2 cara mengatasi hal tersebut.
1. Menambahkan VbModal atau angka “1” (tanpa kutip)setelah listing pemanggilan form

Contoh :
Sub cmd1_click()
Form1.show VbModal
End Sub

Listing diatas berfungsi untuk memposisikan form1 terfokus terlepas dari form lainnya.
Listing diataspun masih terkadang mengalami beberapa kesulitan,karna kita hanya bisa berkerja di satu form saja….Jadi gimana biar kita bisa bekerja dengan beberapa form tanpa harus formnya tertimpa oleh menu utama????
Tenang ajah,ikuti langkah berikut ini :
Ketikan Listing berikut pada Modul :

Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private 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
Private Declare Function GetActiveWindow Lib "user32" () As Long
Public Sub TopTerusEuy(hwnd As Long)
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub
Public Sub GaJadiTop(hwnd As Long)
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End Sub

Nah sekarang tinggal panggilnya gimana????
Ketikan listing ini di event Form Load

Private Sub Form1_Load()
TopTerusEuy Me.Hwnd
End Sub

Jika ingin membuatnya kembali normal :

Private Sub Form1_Load()
GaJadiTop Me.Hwnd
End Sub

Bedanya ketahuan kan….Jadi jika kita ingin menggunakan VbModal,listingnya simpel namun banyak kekurangan,dan pengetikan listing di tulis pada pemanggilan form.
Kalau untuk yang menggunakan Modul,listingnya agak panjang,namun lebih flexible dalam menggunakannya…Dan pengetikan Listingnya di tulis pada listing form yang mau kita tampilkan.
Selesai deh kalo ada eror tinggal sesaikan lagi ajah,atau kalian bisa bertanya di kotak komentar.
Sample Source cade bisa kalian Download setelah Koment Box Terisi 5 Komentar