Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: r_arcexxi en 25 Mayo 2007, 21:53 pm


Título: maximizar un formulario
Publicado por: r_arcexxi en 25 Mayo 2007, 21:53 pm
Mi pregunta es la siguiente, hice una especie de aplicación que consiste en un recordatorio de eventos, le programo la hora y la fecha en la que quiero que se active la alarma y sale un formulario con los detalles del evento programado. Lo que pasa es que si yo minimizo el programa y le puse la opción frm_alerta.windowstate = 2, me lo maximiza. Hasta ahi esta bien, pero si yo por ejemplo estoy en word o excel haciendo algun trabajo, el formulario emerge, pero queda detrás de estos programas y por ende no me doy cuenta de la alerta. Como puedo hacer para que ste formulario salga por encima de cualquier programa en el que este trabajando, muchas gracias  :-[

Título: Re: maximizar un formulario
Publicado por: Xerok1! en 26 Mayo 2007, 00:24 am
podrias usar esto,q lo q aria seria minimizar todas las ventanas q tengas abiertas,y cargar tu form maximizado:

Código:
Option Explicit
Const KEYEVENTF_KEYUP = &H2
Const VK_lWIN = &H5B

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub form_load()
Call keybd_event(VK_lWIN, 0, 0, 0)

Call keybd_event(77, 0, 0, 0)

Call keybd_event(VK_lWIN, 0, KEYEVENTF_KEYUP, 0)
Me.WindowState = 2 'con esto q mencionas tu lo colocas maximizado
Me.SetFocus
MsgBox "Advertisment!!", vbExclamation, "!!!!!!"'salta un mensaje
End Sub

acabo de comprobar q funciona con un documento de word y de excel..creo q funciona para todo..espero q te sirva de ayuda


un saludo ;) ;)

Título: Re: maximizar un formulario
Publicado por: vivachapas en 26 Mayo 2007, 03:42 am
habia respondido a esta pregunta...

pero se ve q no se publico bien o no se cargo XD

lo vuelvo a postear:

arriba de todo
Código:
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndREPLACEAfter 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_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

cuando lo quieras poner visible

Código:
VentanaSiempreFregando Me.hWnd

Título: Re: maximizar un formulario
Publicado por: Xerok1! en 27 Mayo 2007, 21:05 pm
jajajaja buen code XD el mio me lo ize de forma xapucera y en 2 minutos jajajaja pero esq no se me ocurria otra cosa XD...me servira de ayuda!!

un saludo ;) ;)


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines