ลดลงแผงสี - (ไล่)

เวลานี้ผมต้องการที่จะแสดงวิธีที่ง่ายที่จะมีแผงน่าสนใจมากกับการไล่ระดับสีสองสีใน Visual Basic. .

ตัวอย่างเช่นเราต้องการรูปแบบและแผงดังแสดงในรูปต่อไปนี้:

จากนั้นเราดับเบิลคลิกแผงและไปที่วาดเหตุการณ์แผงในมุมมองโค้ดและเหตุการณ์นี้ใส่รหัสต่อไปนี้:

 มซำ Y As Integer = 0
 x มซำเป็น Integer = 0
 ความกว้าง Dim As Integer = Me.Width
 มซำสูง As Integer = Me.Height
 color1 มซำเป็นสี
 color2 มซำเป็นสี

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 สีมซำเป็นนิว _
 LinearGradientBrush (_
 จุดใหม่ (x, y), จุดใหม่ (x กว้าง +, y) _
 color1, color2)
 e.Graphics.FillRectangle (สี _
 x, y, width, height)
 y + height = + 10

สำหรับงานนี้เราเพิ่มการอ้างอิงรหัส Drawing2D ที่แสดงด้านล่าง:

 นำเข้า System.Drawing.Drawing2D

รันโปรแกรมจะเห็นแบบฟอร์มที่มีลักษณะคล้ายกับรูปต่อไปนี้:

การเปลี่ยนค่าของตัวแปรและ color1 color2 สามารถเปลี่ยนผลการให้ความชื่นชอบของคุณ

นอกจากนี้ผมต้องการที่จะออกแล้วคู่ของตัวแปรสำหรับเหตุการณ์รหัส reemplaar สีแผงและได้รับผลลัพธ์ที่แตกต่างกัน ... ฉันหวังว่าคุณพยายามที่พวกเขาและพวกเขาต้องการ ...

ตัวเลือกที่ 1

 มซำ Y As Integer = 0
 x มซำเป็น Integer = 0
 ความกว้าง Dim As Integer = Me.Width
 มซำสูง As Integer = Me.Height
 color1 มซำเป็นสี
 color2 มซำเป็นสี

 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, width, height)

ตัวเลือกที่ 2

 มซำ Y As Integer = 0
 x มซำเป็น Integer = 0
 ความกว้าง Dim As Integer = Me.Width
 มซำสูง As Integer = Me.Height
 color1 มซำเป็นสี
 color2 มซำเป็นสี

 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, width, height)

หากคุณได้รับโปรดแสดงความคิดเห็น ขอแสดงความนับถือ