Skin a window??!?!!

[meteor]

Hi!!

I'm trying to skin my app!

Is there any way to set an bmp immage to the titlebar and menu and the close button (X) and
minimize button (_) of an form...

using StretchBlt or BitBlt ?!?!?!?!

Or how should it be done?

/meteor

[amitabh]

Look at http://forums.vb-world.net/showthrea...&threadid=1886

[KrishnaSantosh]

I dont know how to use bitmaps for these But you can create you form in various shapes apart from the standard rectangular shape. In fact a form can be shaped any way you want using WinAPI . For Details EMail Me.

[Bios]

First off, there is a topic about odd shaped forms on VB-World so just search for it. Also, to customize your title bar you need to make a form with no title bar, and draw it on. Then make it all work through code.

[KrishnaSantosh]

This Piece Of Code Creates A Circular Code. (Call Function MakeRound(Formname)).

|||ly You Can Create Forms With Any Shapes.

Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal _
Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd _
As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long


Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TRANSPARENT = &H20
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Private Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE

Private Const HWND_NOTOPMOST = -2

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter _
As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long


Public Sub MakeRound(frm As Form)
Dim lngNewWind As Long
Dim lngNewRegn As Long
Dim lngWidth As Long
Dim lngHeight As Long
' Calculate the current width
lngWidth = frm.Width / Screen.TwipsPerPixelX
' Calculate the current height
lngHeight = frm.Height / Screen.TwipsPerPixelY
' Create the new region
lngNewWnd = CreateEllipticRgn(0, 0, lngWidth, lngHeight)
' Apply the new region
lngNewRgn = SetWindowRgn(frm.hwnd, lngNewWnd, True)
End Sub

[meteor]

ok!

Thankz!

But all I want to do is to change the color of the title bar and the maximize, minimize and quit buttons and also change the color of the menu in the form...

[KrishnaSantosh]

You Can Use your Own Custom TitleBar. And Also Your Own (Any Number Of ) Caption Buttons. For Details EMail Me.

[Arcom]

Try this.

[Ph34R]

This is very basic, but it works. (The Restore button dosent work cuz i simply dont know what to do with it lol)

The close and minimize buttons work, and you can drag it around the screen. Also, each thing is very skinnable :P