Visual Basic - Ayuda con mis ventanas

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con mis ventanas

Publicado por Juan José (23 intervenciones) el 09/10/2000 00:00:00
Estoy programando en VB6 y necesito que cuando se ejecute mi aplicacion, se minimizen todas las demas ventanas que esten abiertas las instrucciones con lo que realizo la minimizacion de ventanas es:

Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, &H2, 0)

pero resulta que despues pierde el foco mi aplicacion.

Mi pregunta es como puedo obtener el foco para mi aplicacion ya que se pierde.

De antemano gracias
Saludos desde México
Juan José
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

RE:Ayuda con mis ventanas

Publicado por afogutu (408 intervenciones) el 09/10/2000 00:00:00
Mirá, se que en el apartado de las Apis existe la forma de que tu aplicación quede siempre adelante. con lo cual no tendrías necesidad de minimizar todas las demás ventanas.

Fijate si alguien te puede ayudar, si nadie puede avisame y yo te lo busco.

Afogutu
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

Poner siempre encima un form

Publicado por Ginger 8 (17 intervenciones) el 10/10/2000 00:00:00
pega esto en un modulo

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)

Public Sub FormOnTop(Formulario As Form, Top As Boolean)
Dim rtn
OTop = Top
If Top = True Then
rtn = SetWindowPos(Face.hwnd, -1, 0, 0, 0, 0, 3)
Else
rtn = SetWindowPos(Face.hwnd, -2, 0, 0, 0, 0, 3)
End If
End Sub

y para utilizarlo solo tienes que poner en donde sea:

FormOnTop (TuFormulario, True) ´--> siempre encima
FormOnTop (TuFormulario, False) ´--> ya no esta siempre encima

nota: TuFormulario es el formulario que deseas que se mantenga encima de las demas.

espero que esto te sirva contestanto a afogutu.
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

Gracias

Publicado por Juan Jose (23 intervenciones) el 10/10/2000 00:00:00
Gracias por su valiosa ayuda.

Saludos desde México
Juan José
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