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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Form na frente de todas as janelas
Cavalheiro
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 11/08/2006 10:04 hs            
pessoal preciso deixar um form na frente de todas,  programei um botão pra retrair o form e deixa-lo apenas como uma barra, mas preciso deixar essa barra sempre na frente de todas as janelas pra que ela possa ser acessada sempre...
 
Valeu

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador 
Presidente Prudente-SP
http://vbprudente.blogspot.com

   
Ivã
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 11/08/2006 13:49 hs            
Acho q vc teria que coloca-la em frente ao MDI....coloca ela com show modal 1...
Vc já tentou isso

Ivã Boch

   
Cavalheiro
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 11/08/2006 14:31 hs            
Isso faria com que o form ficasse nas frente dos outros forms, mas somemte do memo projeto....
no meu caso gostaria que ficasse na frente de outros programas....
acho que so consigo isso usando algun utilitario de desktop.....
 
mas se conseguir via codigo melhor ainda...

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador 
Presidente Prudente-SP
http://vbprudente.blogspot.com

   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 11/08/2006 15:44 hs            
   
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 11/08/2006 16:25 hs            
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
 
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 Long
 
Public Sub FormOnTop(myFrm As Form, SetOnTop As Boolean)
    Dim lFlag As Long
    If SetOnTop Then
        lFlag = HWND_TOPMOST
    Else
        lFlag = HWND_NOTOPMOST
    End If
   
    SetWindowPos myFrm.hwnd, lFlag, myFrm.Left / Screen.TwipsPerPixelX, myFrm.Top / Screen.TwipsPerPixelY, myFrm.Width / Screen.TwipsPerPixelX, myFrm.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub
_____________________________________________________________________
 
Bota isso ai em um Module...
Depois, no load do form que vc quer, faz assim:
 
FormOnTop Me, True
 
Pronto... fika acima de todas as janelas até vc chamar
 
FormOnTop Me, False
 
Ai volta ao normal...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Cavalheiro
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 11/08/2006 16:31 hs            
Valeu desse jeito deu certo... muito bom....
 
Valeu galera....
 
to encerrando o topico....

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador 
Presidente Prudente-SP
http://vbprudente.blogspot.com

   
Página(s): 1/1    

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