Re: [Programmer-VB] Always On top

[Rizky Prihanto]

bikin module, trus co-pas code berikut :

'-----------------------------------------------------------------------------------------------------------------------------------

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 Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Public Sub Form_BikinOnTop(NamaFormnya As Form)
  SetWindowPos NamaFormnya.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub

Public Sub Form_BatalinOnTop(NamaFormnya As Form)
  SetWindowPos NamaFormnya.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub

'-----------------------------------------------------------------------------------------------------------------------------------

trus panggil dari form load ato tombol ato event2 terserah u :

Form_BikinOnTop Form1

<img src="
http://www.msnhiddenemoticons.com/Library/extra_large/school/default/test.gif";
title="Generate by Smileykiti" />

--
wassalam,

Rizky Prihanto
http://www.software-arsitek.web.id

2008/6/30 <[EMAIL PROTECTED]>:
>
> Dear All,
>
> Bagaimana ya coding nya agar aplikasi yang kita buat selalu berada di atas
aplikasi yang lain (always on top) seperti kamus punya mas Ebta setiawan?
> tapi saya menggunakan microsoft Access.
>
> sebelumnya saya ucapkan terima kasih.
>
> Thanks & Regards
>
> Narupi
>
> Infineon Batam
> Incoming Material
>
>