DEIXANDO O FORM TOPMOST SOMENTE NO APLICATIVO
Boa noite,
Como deixo um form sempre visivel somente no aplicativo?
OBS: Eu não quero o form Modal!
Como deixo um form sempre visivel somente no aplicativo?
OBS: Eu não quero o form Modal!
é isso,
Form2.Show , Form1
Form2.Show , Form1
Vlw, vou ter q verificar isso amanhã, pois aonde estou, nao tem VB
Nao dá, se eu coloquo esse código:
O form2 passa do 3, e eu queria q o form3 ficasse na frente de todas sem usar esse tipo de codigo, mas vlw ;)
Form3.Show , Form1
Form2.Show , Form1O form2 passa do 3, e eu queria q o form3 ficasse na frente de todas sem usar esse tipo de codigo, mas vlw ;)
Tenta utilizar a propriedade "z_order" do form
Repete o seu código acima, e coloque esse código no activate do formulário 2
Private Sub Form_Activate()
Me.ZOrder (1) ' ou utilize Me.ZOrder (0)
End Sub
Repete o seu código acima, e coloque esse código no activate do formulário 2
Private Sub Form_Activate()
Me.ZOrder (1) ' ou utilize Me.ZOrder (0)
End Sub
Se eu não utilizei correto,
FORM_ACTIVATE: O form somente fica visivel quando ativado
TIMER1_TIMER: O form fica vÃsivel, mas na frente de tudo, até de outro aplicativo
FORM_ACTIVATE: O form somente fica visivel quando ativado
TIMER1_TIMER: O form fica vÃsivel, mas na frente de tudo, até de outro aplicativo
Só para eu entender,
Você quer chamar a Calculadora do windows e está ficar atrás do seu programa, quando movimentada sobre a área que está a sua aplicação.
Eu usei a calculadora, mas poderia ser qualquer aplicação.
Você quer chamar a Calculadora do windows e está ficar atrás do seu programa, quando movimentada sobre a área que está a sua aplicação.
Eu usei a calculadora, mas poderia ser qualquer aplicação.
Coloque isso no módulo global :
Remover o TOP
Citação:
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 Const hWnd_TOP = 0
Public Const hWnd_TOPMOST = -1
Public Const hWnd_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Citação:
oAPI = SetWindowPos(Form1.hwnd, hWnd_TOPMOST, 0, 0, 0, 0, FLAGS)
Remover o TOP
Citação:
oAPI = SetWindowPos(Form1.hwnd, hWnd_NOTOPMOST, 0, 0, 0, 0, FLAGS)
E aà já tentou desse jeito?
Vou ver. Daà falo a resposta
vlw Leopoldo
Tópico encerrado , respostas não são mais permitidas