CARREGAR O PROGRAMA SEMPRE POR CIMA
Pessoal,
Meu programa funciona minimizado e em certo tempo ele é maximizado. Beleza, mas, como fazer para quando maximizado, ele fique por cima de todos os programas abertos ?
obrigado,
Sds
Meu programa funciona minimizado e em certo tempo ele é maximizado. Beleza, mas, como fazer para quando maximizado, ele fique por cima de todos os programas abertos ?
obrigado,
Sds
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)
'Top most de formulario
Public Sub TopMost(Frm As Form, ByVal Left As Long, ByVal Top As Long)
Frm.Left = Left
Frm.Top = Top
SetWindowPos Frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
basta passar o form e as coordenadas que deseja que ela fique
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)
'Top most de formulario
Public Sub TopMost(Frm As Form, ByVal Left As Long, ByVal Top As Long)
Frm.Left = Left
Frm.Top = Top
SetWindowPos Frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
basta passar o form e as coordenadas que deseja que ela fique
Tópico encerrado , respostas não são mais permitidas