Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : Posisi Form Selalu Diatas ...



Facebook Tags:
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????Surprised smile
Tenang ajah,ikuti langkah berikut ini :Winking smile
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.Thumbs up
Sample Source cade bisa kalian Download setelah Koment Box Terisi 5 Komentar Smile with tongue out

2 Reply :

  1. izin download mas deny!!!

    salam kenal mas deny
    boleh ga saya minta contoh form menu yang bisa menyesuaikan resolusi monitor (form dan komponen2nya ikut menyesuaikan) edday.2007@gmail.com

    BalasHapus
    Balasan
    1. insaallh saya kirim mas, salam kenal juga :)

      Hapus

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.