Visual Basic - Necesito hacer visible un programa siempre

Life is soft - evento anual de software empresarial
 
Vista:

Necesito hacer visible un programa siempre

Publicado por Raúl (13 intervenciones) el 13/05/2003 14:24:23
Hola necesito hacer que un programa de Visual sea visible siempre. Es un pequeño cronómetro, que ocupa muy poco en pantalla y que se va a utilizar a la vez que otros programas. Necesito que aunque otro programa esté activo se siga viendo el cronómetro. Muchas gracias por la ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Necesito hacer visible un programa siempre

Publicado por Valter (20 intervenciones) el 13/05/2003 21:12:40
agrega este codigo a un modulo

Option Explicit

Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

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

Sub FormFlotante(hWndflot As Long, Accion As Integer)
'Si Accion es <> 0 entonces el formulario pasa a ser flotante
'si =0 entonces deja de ser flotante
Dim wFlags As Integer
wFlags = SWP_NOSIZE Or SWP_NOMOVE
If Accion <> 0 Then
Call SetWindowPos(hWndflot, HWND_TOPMOST, 0, 0, 0, 0, wFlags)
Else
Call SetWindowPos(hWndflot, HWND_NOTOPMOST, 0, 0, 0, 0, wFlags)
End If
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Necesito hacer visible un programa siempre

Publicado por Valter (20 intervenciones) el 13/05/2003 21:30:35
solo llamas a la funcion y ya

Private Sub Form_Load()
Call FormFlotante(Me.hWnd, 1)
End S
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar