Υποβαθμίσει πάνελ χρώμα - (Κλίση)

Αυτή τη φορά θέλω να δείξω έναν απλό τρόπο για να έχουμε μια πολύ πιο ελκυστική ομάδα με μια κλίση των δύο χρωμάτων σε Visual Basic. καθαρά .

Για παράδειγμα, χρειαζόμαστε μια μορφή και μια επιτροπή, όπως φαίνεται στο παρακάτω σχήμα:

Στη συνέχεια κάντε διπλό κλικ στο πάνελ και να πάει να ζωγραφίσει τον πίνακα εκδήλωση στην προβολή κώδικα, και αυτό το γεγονός θέσει τον παρακάτω κώδικα:

 Dim y As Integer = 0
 Dim x As Integer = 0
 Δημ. πλάτος As Integer = Me.Width
 Δημ. υψηλής As Integer = Me.Height
 Δημ. color1 As Χρώμα
 Δημ. color2 As Χρώμα

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Δημ. χρώμα Όπως Νέα _
 LinearGradientBrush (_
 Νέο σημείο (x, y), νέο σημείο (x πλάτος + y), _
 color1, color2)
 e.Graphics.FillRectangle (χρωματισμός, _
 x, y, πλάτος, ύψος)
 y + = ύψος + 10

Για το έργο αυτό θα προσθέσετε ένα κωδικό αναφοράς Drawing2D όπως φαίνεται παρακάτω:

 Εισαγωγές System.Drawing.Drawing2D

Τρέχοντας το πρόγραμμα θα πρέπει να δείτε μια φόρμα με ένα βλέμμα παρόμοιο με το ακόλουθο σχήμα:

Αλλάζοντας τις τιμές των μεταβλητών και color1 color2 μπορεί να αλλάξει τα αποτελέσματα ανάλογα με τις προτιμήσεις σας.

Επίσης, θέλω να φύγεις από ένα ζευγάρι παραλλαγές για την εκδήλωση κωδικό χρώμα reemplaar πίνακα και να πάρει τα διαφορετικά αποτελέσματα ... Ελπίζω να τα δοκιμάσετε και τους αρέσει ...

Επιλογή 1

 Dim y As Integer = 0
 Dim x As Integer = 0
 Δημ. πλάτος As Integer = Me.Width
 Δημ. υψηλής As Integer = Me.Height
 Δημ. color1 As Χρώμα
 Δημ. color2 As Χρώμα

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Όπως Δημ. Νέα _ black_white_brush
 LinearGradientBrush (_
 Νέο σημείο (x, y), νέο σημείο (x πλάτος + y), _
 color1, color2)

 Όπως Δημ. Νέα ColorBlend color_blend (3)
 color_blend.Colors = Χρώμα Νέα () {color1, color2, color1}
 color_blend.Positions = Μονόκλινο Νέα () {0,0, 0,2, 1,0}
 black_white_brush.InterpolationColors = color_blend
 e.Graphics.FillRectangle (black_white_brush, _
 x, y, πλάτος, ύψος)

Επιλογή 2

 Dim y As Integer = 0
 Dim x As Integer = 0
 Δημ. πλάτος As Integer = Me.Width
 Δημ. υψηλής As Integer = Me.Height
 Δημ. color1 As Χρώμα
 Δημ. color2 As Χρώμα

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Δημ. χρώμα Όπως Νέα _
 LinearGradientBrush (_
 Νέο σημείο (x, y), νέο σημείο (x πλάτος + y), _
 color1, color2)

 Όπως Δημ. Νέα _ diag_brush
 LinearGradientBrush (_
 Νέο σημείο (x, y), νέο σημείο (x + πλάτος, ύψος y +), _
 color1, color2)
 e.Graphics.FillRectangle (diag_brush, _
 x, y, πλάτος, ύψος)

Εάν υπηρετήσει, αφήστε ένα σχόλιο. Χαιρετισμούς