Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Ayuda con ventanas en primer plano

Estas en el tema de Ayuda con ventanas en primer plano en el foro de Visual Basic clásico en Foros del Web. estoy haciendo un programa para manejar mi cafe internet casero pero cuando debe aparecer el formulario o el msgbox que le indique a el cliente ...
  #1 (permalink)  
Antiguo 14/01/2008, 20:05
 
Fecha de Ingreso: enero-2008
Ubicación: Arauca
Mensajes: 32
Antigüedad: 16 años, 3 meses
Puntos: 0
Ayuda con ventanas en primer plano

estoy haciendo un programa para manejar mi cafe internet casero pero cuando debe aparecer el formulario o el msgbox que le indique a el cliente que su tiempo esta a punto de terminar y o ha terminado, el mensage queda detras de la ventana que este manejando el usuario en ese momento llamese IE o Office y se va a un segundo plano, necesito la orden para que salga en primer plano y pueda ser leida por el usuario y tambien la orden para bloquear su uso cuando se acabe el tiempo, estoy usando VB6.0, agradezco cualquier indicacion.
  #2 (permalink)  
Antiguo 17/01/2008, 07:31
areslomas
Invitado
 
Mensajes: n/a
Puntos:
Re: Ayuda con ventanas en primer plano

prueba con este codigo:

http://moratiel.com/visualbasic/apariencia/formencimaotros.zip
  #3 (permalink)  
Antiguo 17/01/2008, 17:57
Avatar de seba123neo  
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 17 años, 2 meses
Puntos: 19
Re: Ayuda con ventanas en primer plano

Hola,lo haces asi,para ponerlo "Always on Top":

Código:
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

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 
Const SWP_NOSIZE = &H1 'SWP_NOSIZE y SWP_NOMOVE 
Const SWP_NOMOVE = &H2
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE 

Private Sub Form_Load()
Dim Ret As Long
Ret = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_FLAGS)
End Sub
saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein
  #4 (permalink)  
Antiguo 18/01/2008, 18:26
 
Fecha de Ingreso: enero-2008
Ubicación: Arauca
Mensajes: 32
Antigüedad: 16 años, 3 meses
Puntos: 0
Re: Ayuda con ventanas en primer plano

a areslomas y seba123neo les agradezco la colaboracion, es exactamanete lo que necesitaba, que bueno poder contar co la ayuda desinteresada de personas que se aprestan a brindar sus conocimientos a quienes empezamos a aventurarnos en la programacion. mil gracias

writis
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:13.