Πρώτα Βήματα - Γλώσσες προγραμματισμού

Απ: Title Bar

SotirisPap — Fri, 25 Jan 2008 13:41:57 GMT

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

    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

Απ: Title Bar

Νατάσα Μανουσοπούλου — Thu, 24 Jan 2008 17:20:12 GMT

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

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

Title Bar

SotirisPap — Wed, 23 Jan 2008 10:47:45 GMT

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