How to set the form to Top of all other windows

Home » System & API » How to set the form to Top of all other windows

How to set the form to Top of all other windows

Posted on August 22, 2009

woo themes Premium Wordpress layouts skins

In some instance, you may need to set your form on top of all other windows. To accomplish that, you can use the following sample code:

Instructions:

Create a new Project
Add a new form to it
Add a command button Command1

Now, Goto Form's code window and add the following code:

Option Explicit
 
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
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
 
Sub AlwaysOnTop(formname As Form, SetOnTop As Boolean)
  If SetOnTop Then
    lFlag = HWND_TOPMOST
  Else
    lFlag = HWND_NOTOPMOST
  End If
  SetWindowPos formname.hwnd, lFlag, formname.Left / Screen.TwipsPerPixelX, formname.Top / Screen.TwipsPerPixelY, formname.Width / Screen.TwipsPerPixelX, formname.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
 
Private Sub Form_Load()
  Command1.Caption = "Set Always on Top"
End Sub
 
Private Sub Command1_Click()
  'How to Call this fuction.
  AlwaysOnTop Me, True
End Sub

Enjoy this article?

Consider subscribing to our rss feed!

Filed under: System & API Leave a comment

Comments (2) Trackbacks (0) ( subscribe to comments on this post )

Chris
November 4th, 2009 - 10:19

The following give Compile Error Constants, fixed-length strings, arrays, user-defined types, and Declare statements not allowed as Public members of an object module
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

( REPLY )
abd ghofur
November 9th, 2009 - 05:51

these source codes are very good

( REPLY )