Jul 212011
 

Este es un ejemplo de como crear una venta similar a las que aparece en Windows  Seven sobre los iconos del SysTray, en el ejemplo van a encontrar dos clases, una ClsPopUpTray.cls es la encargada de crear este tipo de ventanas, la otra ClsSysTray.cls es una clase para agregar iconos al SysTray (esta ultima esta basada en la clase de Cobein, con algunas modificaciones), También encontraran dos User Controls, uno de ellos es ucCommandLink.ctl (creado por Raul338), el cual crea un botón de tipo link (solo en Vista y Seven), y el segundo ucLabelItem.ctl es uno para crear un Label con algunas opciones que acompañan la guid del ejemplo.
Quiero aclarar que este ejemplo se lucirá bien si se ejecuta en Windows Seven con el Aero activado, de lo contrario puede que no se vea correctamente algunos controles.

SysTray PopUp
SysTray PopUp

  2 Responses to “PopUpTray”

  1. Hi Leandro.
    I want to change the transparency of the PopUpTray window using the SetLayeredWindowAttributes API. But with this, the program crashes and closes.
    I use the following code:


    Dim lngHandle as Long
    lngHandle = Me.hWnd 'PopUpTray Handle
    SetWindowLong lngHandle, -20, GetWindowLong(lngHandle, -20) Or &H80000
    SetLayeredWindowAttributes lngHandle, 0&, 180, &H2

    Please help me. Thank You.

    • Hello I have put these lines inside ClsPopUpTray and everything worked fine

      SetWindowLongA hwnd, GWL_STYLE, WS_THICKFRAME Or WS_BORDER
      SetWindowLongA hwnd, GWL_EXSTYLE, WS_EX_WINDOWEDGE Or WS_EX_LAYERED
      SetLayeredWindowAttributes hwnd, 0&, 125, LWA_ALPHA
      SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_FRAMECHANGED Or SWP_NOACTIVATE

      I also put their lines in the form and everything worked fine, maybe the error is another

 Leave a Reply

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

(required)

(required)