|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Form Na Frente de qualquer programa em execução.
|
 |
|
|
|
Postada em 16/1/2008 por KoRn
No Form Load do formulario se poe isso
'''''''''''''''deixa form sempre na frente de
'**************todos os outros programas
Dim Q As String
Q = "When the box is checked, this form will stay in front "
Q = Q & "of other windows." & vbCrLf & vbCrLf
Q = Q & "Unchecking the box restores it back to normal."
Lock_On_Top FrmLogin
'******************************************
e Num modulo isso
Option Explicit
Public 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
Public Sub Lock_On_Top(FrmLogin)
SetWindowPos FrmLogin.hwnd, -1, 0, 0, 0, 0, 3
End Sub
Public Sub UNLOCK_ON_TOP(Form_Name)
SetWindowPos Form_Name.hwnd, -2, 0, 0, 0, 0, 3
End Sub
|
|
|
|
|
