Tips, Trick dan Cara Menjadikan Form Berada Paling Depan With Visual Basic 6.0
Bahan Yang Diperlukan :
Visual Basic 6.0 [ Download VB 6 Disini ]
Fungsi VB6 di bawah ini merupakana cara menampilkan form agar berada paling depan (Form On Top/Top Most). Adapun kode VB6 untuk melakukan hal tersebut adalah sebagai berikut:
Option Explicit
Public Declare Function SetWindowPos Lib "user32"(ByVal hWnd As Long, ByVal hWndInsertAfter AsLong, ByVal X As Long, ByVal y As Long, ByVal cxAs Long, ByVal cy As Long, ByVal wFlags As Long)As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const FLAGS = SWP_NOMOVE OrSWP_NOSIZE
Public Function TopMost(frm As Form, bTopMostAs Boolean)
If bTopMost Then
Call SetWindowPos(frm.hWnd,HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
Call SetWindowPos(frm.hWnd,HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End If
End Function
Contoh penggunaan menjadikan form berada paling depan menggunakan VB6:
Private Sub Form_Load()
TopMost Me, True
End Sub
Sekian dari Saya,
Thanks Udah Mampir..
Semoga Bermanfaat Sobat Master SEO ^_^
Jangan Lupa Tinggalkan Komentar..
Dan Bagikan Artikel ini di Facebook, Twitter, Google+ Anda ya agar terus update.. Terima Kasih..
