MANTER FORM ATIVO

 Tópico anterior Próximo tópico Novo tópico

MANTER FORM ATIVO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#384632 - 19/09/2011 12:47:04

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Boa tarde pessoal, duvidas de principiante!
Pessoal, tou fazendo um projeto e gostaria de manter o form aberto ativo, mesmo que clique em outro form ou outro programa. como fazer isso?

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#384633 - 19/09/2011 12:57:11

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


Boa tarde, o que voce quer um Formulario MDI segue links

http://www.macoratti.net/vb_forms.htm
http://www.macoratti.net/dica61.htm
http://msdn.microsoft.com/pt-br/library/zkysca23(v=vs.90).aspx
http://www.mxmasters.com.br/video-aulas/visual-basic/visual-basic-aula-4-usando-mdi-form-e-criando-menus/

Abraos

Estou voltando... Ol a todos... J posso dizer, ([]Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA[])
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em cdigos binrios.



#384634 - 19/09/2011 13:01:31

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


nao form MDI, este eu trabalho tranquilo, o que eu queria j achei aqui mesmo, em dicas, mas obrigado.

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
Private Const SWP_FLAGS = 3
Private Const SWP_HWND_TOPMOST = -1
Private Const SWP_HWND_NOTOPMOST = -2

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)
   Dim lFlag As Long
   If SetOnTop Then
      lFlag = SWP_HWND_TOPMOST
   Else
      lFlag = SWP_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_FLAGS
End Sub


so colocar no Form load
   AlwaysOnTop, me, true

e no form Unload
    AlwaysOnTop, me, false




O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#384635 - 19/09/2011 13:08:44

MITSUEDA
SAO JOSE DOS CAMPOS
Cadast. em:Agosto/2010


Sempre ativo eu desconheo, mas voc pode deixar sempre visivel

Const hWnd_TOPMOST = -1
Const hWnd_NOTOPMOST = -2
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Private Sub Form_Load( )
          Dim lngSuCCeSS   As Long
          lngSuCCeSS = SetWindowPos(Me.hWnd, hWnd_TOPMOST, 0, 0, 0, 0, FLAGS)
End sub

Abrao

Mitsueda Fbio


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por DAMASCENO.CESAR em 19/09/2011 13:02:03