Membuat Form Selalu Di Depan (Always On Top) Di VB 6

Membuat Form Selalu Di Depan (Always On Top) Di VB 6

Membuat form selalu tampil didepan mungkin menjadi salah satu fitur / keperluan yang dibutuhkan dalam sebuah software. Pembuatannya pun tidak sulit, bahkan sangat mudah.

Untuk memulai praktek, component yang dibutuhkan adalah :

  • 1 CheckBox

Kemudian susun form sampai kira-kira hasilnya seperti ini :

Kemudian hapus semua code di code area, & CoPas code di bawah ini  :

Private Sub Check1_Click()
If Check1.Value = vbChecked Then
MakeTopMost hwnd
Else
MakeNormal hwnd
End If
End Sub

Kemudian buat sebuah module, hapus semua code di module, dan CoPas code di bawah ini :

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, 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_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public Sub MakeNormal(lngHwnd As Long)
SetWindowPos lngHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub
Public Sub MakeTopMost(lngHwnd As Long)
SetWindowPos lngHwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub

Selesai…
Untuk mulai ngetes, coba klik checbox nya maka form akan selalu tampil di depan (always on top). Ketika checklist dihilangkan, maka form akan normal seperti semula.

Advertisement

No comments.

Leave a Reply