Πως μπορούμε να αλάξουμε  το  χρώμα  του Title Bar μιάς Form με Vb και να βάλουμε και άλλα Buttons εκτός από τα Default ;

Η σύντομη απάντηση είναι να πιάσεις το μήνυμα WM_NCPAINT για να ζωγραφίσεις την title bar μόνος σου όπως σου αρέσει. Θα σε βοηθήσει σε αυτή την κατεύθυνση η DrawCaption.

Όμως σκέψου πολύ καλά πριν κάνεις κάτι τέτοιο, γιατί ο χρήστης έχει διαλέξει τα χρώματα του περιβάλλοντος εργασίας του κατά τα γούστα του και δεν πρέπει να του τα παραβιάζεις.

---

Νατάσα Μανουσοπούλου

Σας Ευχαριστώ .Δούλεψε . Για την ιστορία παραθέτω πώς :

    Const DFC_BUTTON As Int32 = 4
    Const DFCS_BUTTON3STATE As Int32 = 16
    Private Declare Function ΔιάστασηTitleBar Lib "user32" Alias "SetRect" (ByRef lpRect As RECT, ByVal X1 As Int32, ByVal Y1 As Int32, ByVal X2 As     Int32, ByVal Y2 As Int32) As Int32
    Private Declare Function DrawFrameControl Lib "user32" Alias "DrawFrameControl" (ByVal hDC As Int32, ByRef lpRect As RECT, ByVal un1 As Int32, ByVal un2 As Int32) As Int32
  
 Private Sub KατάργησηTitleBar()
        Dim R As New RECT
        ΔιάστασηTitleBar(R, 0, 0, Me.Width, 30)
        DrawFrameControl(apiGetWindowDC(Me.Handle.ToInt32), R, DFC_BUTTON, DFCS_BUTTON3STATE) 'Draw a frame control on our window
 End Sub