Private Sub frmMain_Paint( _ ByVal sender As Object, _ ByVal e As PaintEventArgs) _ Handles MyBase.PaintDim path As New GraphicsPath()Dim pt As New PointF()Dim rct As Rectangle = Me.ClientRectanglepath.AddRectangle(rct)Dim pgb As New PathGradientBrush(path)pt = New PointF( _ CType(Me.ClientSize.Width / 2, Single), _ CType(Me.ClientSize.Height / 2, Single))pgb.CenterPoint = ptDim Colors() As Color = _ {Color.Red, Color.Orange, Color.Yellow, _ Color.Green, _ Color.Blue, Color.Indigo, Color.Violet}Dim Positions() As Single = _ {0.0, 0.1, 0.2, 0.4, 0.6, 0.8, 1}Dim cb As ColorBlend = New ColorBlend()cb.Colors = Colorscb.Positions = Positionspgb.InterpolationColors = cbe.Graphics.FillRectangle(pgb, rct)Dim f As New StringFormat()f.Alignment = StringAlignment.Centere.Graphics.DrawString( _ Date.Now.ToLongTimeString, _ New Font("Tahoma", 13), Brushes.White, pt, f)End Sub |
……