Salve salve galera!!!!
tava a fim de carregar um form, e deixá-lo, SEMPRE, com o foco. Sabe, por exemplo: C vc ta com o word aberto e vc carrega esse form, ele fica sempre por cima do word. Tem como?
Valews e t+
Form Com O Foco. Sempre!
Started By Dcampos, 17/09/2003, 18:13
2 replies to this topic
#1
Posted 17/09/2003, 18:13
"Antes a derrota de não ter conseguido, do que a derrota de não ter tentado!!!!!!!!!!!"
http://dcampos.deviantart.com/
http://dcampos.deviantart.com/
#2
Posted 21/09/2003, 13:10
nao entendi o q vc kis dizer
"Os fracos se vingam os fortes tem o dom de perdoar"
#3
Posted 27/09/2003, 00:45
Ola Dcampos,
É claro que tem como deixar uma aplicação sempre com o foco ou no jargão técnico "sempre visivel, no topo".
Coloque o seguinte dentro de um modulo.bas
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_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Public Sub SempreNoTopo(ativoOrdesativo, FormID As Object)
If ativoOrdesativo = "ativo" Then SetWindowPos FormID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
If ativoOrdesativo = "desativo" Then SetWindowPos FormID.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
agora basta chamar a rotina SempreNoTopo
para ativar:
SempreNoTopo "ativo", Me
para desativar
SempreNoTopo "desativo", Me
Espero ter ajudado
Rodrigo
É claro que tem como deixar uma aplicação sempre com o foco ou no jargão técnico "sempre visivel, no topo".
Coloque o seguinte dentro de um modulo.bas
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_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Public Sub SempreNoTopo(ativoOrdesativo, FormID As Object)
If ativoOrdesativo = "ativo" Then SetWindowPos FormID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
If ativoOrdesativo = "desativo" Then SetWindowPos FormID.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
agora basta chamar a rotina SempreNoTopo
para ativar:
SempreNoTopo "ativo", Me
para desativar
SempreNoTopo "desativo", Me
Espero ter ajudado
Rodrigo
Legião Urbana Omnia Vincit
"Só existe uma maneira de deter um hacker, é pensando como ele"
Rodrigo Bytes® - Segurança da informação
"Só existe uma maneira de deter um hacker, é pensando como ele"
Rodrigo Bytes® - Segurança da informação
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)