Caption Bar Color

[Creative2]

Hi guys,

Is there anyway to change the caption bar color?

Thank you guys for all your help, you guys ROCK!!

 

[Divil]

No. The closest youll come is drawing it entirely by yourself.

 

[UCM]

What you could do...

Divils right, you cant change the colors or font of the caption bar directly, however, what you could do is bypass it altogeather and build your own...

1st: create a label ( or other control ) and design it as you wish as well as place it whereever you wish ( doesnt have to be accross the top of the form )

2nd: rename it to:     YourTitleBar

3rd: set both the form text to null and the captionbox to false in the forms properties... Additionally, set the forms FormBorderStyle to (None)---NOTE: this will Only work if the control (with the mouse e. event code in it) is on the form itself and NOT on a panel or tabcontrol, ect...

4th: put the following code in your form:

Dim Mouse_Offset As Point


  Private Sub YourTitleBar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles YourTitleBar.MouseDown
    Mouse_Offset = New Point(-e.X - YourTitleBar.Left, -e.Y - YourTitleBar.Top)
  End Sub

  Private Sub YourTitleBar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles YourTitleBar.MouseMove
    If e.Button = MouseButtons.Left Then
      Dim mousePos As Point = Control.MousePosition
      mousePos.Offset(Mouse_Offset.X, Mouse_Offset.Y)
      Location = mousePos
    End If
  End Sub

NOTE: you can create your own buttons, labels, or anything else to maximize, minimize, and normalize the form as well as end the program by putting in the buttons ( or whatever control you assign for this purpose ) _Click( blah blah ) event like:

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.WindowState = FormWindowState.Minimized
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.WindowState = FormWindowState.Normal
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Me.WindowState = FormWindowState.Maximized
  End Sub

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    End
  End Sub

 

[Volte]

Just dont use End! Me.Close() will do just fine.