|
Imports System.Drawing.Drawing2D
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
g = Me.CreateGraphics
Dim rect As Rectangle = _
New Rectangle(0, 0, Me.Width, Me.Height)
Dim ryBrush As LinearGradientBrush = _
New LinearGradientBrush(rect, Color.Red, _
Color.Yellow, LinearGradientMode.Vertical)
g.FillRectangle(ryBrush, rect)
Dim rect1 As Rectangle = New Rectangle(10, 10, 300, 60)
Dim Brush1 As LinearGradientBrush = _
New LinearGradientBrush(rect1, Color.Yellow, _
Color.Coral, LinearGradientMode.Vertical)
g.DrawString("12345", New Font("Arial", 48), Brush1, 2, 2)
g = Button1.CreateGraphics
Dim rect2 As Rectangle = _
New Rectangle(0, 0, Button1.Width, Button1.Height)
Dim Brush2 As LinearGradientBrush = _
New LinearGradientBrush(rect2, Color.Yellow, _
Color.Red, LinearGradientMode.Vertical)
g.FillRectangle(Brush2, rect2)
Dim yBrush As New SolidBrush(Color.Yellow)
g.DrawString("Button1", New Font("Arial", 12), yBrush, 10, 2)
End Sub
End Class
|
|