' VB.NET DrawPie Source Code
Option Explicit On
Option Strict On
Public Class Form1
Dim cCyan As New Pen(Color.Cyan, 10)
Dim rRect As New Rectangle(0, 0, 400, 200)
Const sAngle As Single = 0.0
Const sWAngle As Single = 75.0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Text = " Draw Pie In VB.NET "
Me.BackColor = Color.RosyBrown
Me.Width = 500
Me.Height = 300
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawPie(cCyan, rRect, sAngle, sWAngle)
End Sub
End Class
' Design VB.NET Source Code Games By Fernando Firaht
ไม่มีความคิดเห็น:
แสดงความคิดเห็น