USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página