[Resolvido]Formulário sempre visível ao abrir qualquer programa

Olá, amigos

Preciso que ao abrir um formulário ele fique sempre visível (sobreposto), embora outro programa seja aberto.



Desde já agradeço toda ajuda.

Coloque no evento Ao carregar, selecione construtor de código e cole isto "DoCmd.Maximize"
Após, em propriedade de formulário vá em Pop-up e selecione sim.

Caso queira desabilitar os botões min e máx e botão fechar, em propriedade do formulário voce tambem acha

Obrigado, mas não é isso.

Não é pra abrir maximizado e sim numa janela de tamanho determinado. Além disso, e principal, preciso que fique sobre outros programas, mesmo quando estes forem abertos.

Alguma ideia, pessoal?

Pesquisei bastante a respeito do assunto pq ate iria servir um pouco pra mim mesmo, mas notei que no access essa ferramenta so interfere dentro do proprio aplicativo.

Vi que para o BD sempre ficar sobre os demais programas, seria necessário uma alteração direta do programa no sistema operacional, no entanto como o BD depende do access, nao encontrei nada que pudesse resolver isso.

Consegui o que precisava:

Código:

'---------------------------------------------------------------------------------------
' Projeto : Formulário sempre no topo
' Modulo  : basTopo
' Data    : 10/3/10
' Função  : Colocar o formulário sobre as outras janelas abertas
' Referência : Microsoft
'               http://support.microsoft.com/kb/101325

'
'---------------------------------------------------------------------------------------
Option Compare Database

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
                                
Global Const HWND_TOPMOST = -1
Global Const SWP_NOSIZE = &H1
Global Const SWP_NOMOVE = &H2

Function TopMost(F As Form)
  
   Call SetWindowPos(F.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                     SWP_NOMOVE Or SWP_NOSIZE)

End Function

Depois só chamar a função TopMost no evento Ao carregar.


Obrigado pela ajuda.