VB6 sidebar app -


all.

i'm attempting develop 'sidebar' application vb6, want behave windows vista's gadget sidebar or google desktop sidebar, in respect other windows not maximize on it. i'm aware chances of happening little, i'm asking in case.

currently, i've got form has multiple controls, , runs function on load makes exact height of screen, minus taskbar, , it's 'left' location set timer 'screen.width - me.width', start @ full height on far right of screen, , cannot moved. code height follows, if necessary.

declare function getusernamea lib "advapi32.dll" (byval lpbuffer string, nsize long) long  public declare function getwindowlong lib "user32" alias "getwindowlonga" ( _             byval hwnd long, _             byval nindex long) long  public declare function setwindowlong lib "user32" alias "setwindowlonga" ( _             byval hwnd long, _             byval nindex long, _             byval dwnewlong long) long  public declare function setlayeredwindowattributes lib "user32" ( _             byval hwnd long, _             byval crkey long, _             byval balpha byte, _             byval dwflags long) long  public const gwl_style = (-16) public const gwl_exstyle = (-20) public const ws_ex_layered = &h80000 public const lwa_colorkey = &h1 public const lwa_alpha = &h2   private const abm_gettaskbarpos = &h5  private type rect left long top long right long bottom long end type  private type appbardata cbsize long hwnd long ucallbackmessage long uedge long rc rect lparam long end type  private declare function shappbarmessage lib "shell32.dll" (byval dwmessage long, pdata appbardata) long  function fixheight() dim abd appbardata  shappbarmessage abm_gettaskbarpos, abd  form1.height = screen.height - ((abd.rc.bottom - abd.rc.top) * 12) if form1.height <= 600 form1.height = screen.height end if end function 

to clear, not want 'always on top' function. have that, , it's driving me insane, form has me closed or minimized in order maximize, minimize of close program (i.e. chrome, word, etc) behind it. form must instead not allow other programs maximize on it, if example, user maximized chrome, chrome maximize minus form1.width. doubt possible because far i'm concerned, mean taking control of chrome, , making it's maximize function me.height = screen.height - ((abd.rc.bottom - abd.rc.top) * 12) me.width = screen.width - form1.width isn't possible.

anyway, out there can help. said, doubt possibility of having work, if so, better.

thanks in advance!

thanks ken white, googled shappbarmessage , found following website, offering downloadable source feature needed. have implement now!!

glad asked! thank you!

edit: found spanish website, while needed google translate, more suited needs. need figure out how make work on right hand side! again!


Comments