Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: cliv en Junio 24, 2010, 07:42:31 am
-
I need to create a control to place on a form that act like a Mac object bar.
I found this:
http://www.xtremevbtalk.com/showthread.php?p=1010694
and this:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=55352&lngWId=1
can someone modified second submision to be place on a form like CrudeMacBar.zip sample in the first link.
Need to show like this:
http://www.stardock.com/products/objectdock/
...but can be place an form.
Here is a .Net version:
http://www.codeproject.com/KB/vb/xDock.aspx
Thank you
-
see this link, is an example something similar, but may improve if it is combined with the logic of CrudeMacBar.zip
http://www.leandroascierto.com.ar/categoria/Controles%20de%20Usuario/articulo/ucImage%20y%20ucImageList.php
Saludos.
-
Yes....very good sample
-
If you want to dock the form (like RocketDock and others) you can use the APIs used here:
http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/b75dd62c-92ba-4551-a7bf-a039a67b156c/
is vb.net but the apis used are this:
SHAppBarMessage Lib "shell32.dll" Alias "SHAppBarMessage" (ByVal dwMessage As Integer, ByRef pData As APPBARDATA)
GetSystemMetrics Lib "User32.dll" Alias "GetSystemMetrics" (ByVal index As Integer) As Integer
MoveWindow Lib "User32.dll" Alias "MoveWindow" (ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal repaint As Boolean) As Boolean
RegisterWindowMessage Lib "User32.dll" (ByVal msg As String) As Integer
You have to expermient :P (sorry for my BAD english 8))