Wortel Angels Posted August 12, 2012 Author Share Posted August 12, 2012 Got Fullscreen ? Or an big picScreen ?Want to get the frmEditor_Map always on top ?Use this:Open frmEditor_MapAdd to the top```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 LongPrivate Const HWND_TOPMOST = -1Private Const HWND_NOTOPMOST = -2Private Const SWP_NOMOVE = &H2Private Const SWP_NOSIZE = &H1Public Property Let AlwaysOnTop(ByRef Form As Form, ByVal New_Value As Boolean) Dim lngInsertAfter As Long If (New_Value) Then lngInsertAfter = HWND_TOPMOST Else lngInsertAfter = HWND_NOTOPMOST End If SetWindowPos Form.hWnd, lngInsertAfter, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZEEnd Property```Search```Private Sub Form_Load()```And add there``` AlwaysOnTop(Me) = True```Hope this helps ;-) Link to comment Share on other sites More sharing options...
quintensky Posted September 12, 2012 Share Posted September 12, 2012 i just drag the windows… Link to comment Share on other sites More sharing options...
Vus Posted September 12, 2012 Share Posted September 12, 2012 > i just drag the windows…+1 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now