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 :-[
podrias usar esto,q lo q aria seria minimizar todas las ventanas q tengas abiertas,y cargar tu form maximizado:
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 ;) ;)
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
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
VentanaSiempreFregando Me.hWnd
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 ;) ;)