Membuat Ellipse di Visual Studio

Visual Basic berbasis dot net sangat berbeda dengan visual basic 6. Akan tampak sekali dari program contoh di bawah ini bahwa semuanya "serba obyek". Kita tidak dapat hanya menulis secara singkat. Dalam menulis kode program pembuatan elips, kita harus membuat bidang gambar dahulu (di Delphi semacam canvas)

Dim gambar As Graphics = Me.CreateGraphics

dari obyek Graphics ini, kita mendapatkan fungsi untuk membuat Ellipse:
DrawEllipse(obyekPena, x1, y1, x2, y2)

obyekPena sendiri adalah variabel instan dari Obyek Pen, yang didefinisikan sebagai:
Dim pena As Pen

dari obyek Pen, kita dapat menentukan warna garis dan ketebalannya:
 pena = New Pen(Color.Red, 5)

namun kita tidak harus membuat obyek Pen lagi jika ingin mengganti ketebalan garis dan warna. Definisikan warna dan ketebalan garis seperti:
pena.Color = Color.Blue
pena.Width = 1

Program Selengkapnya:
Public Class Form1 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim pena As Pen Dim gambar As Graphics = Me.CreateGraphics Dim brush As SolidBrush Me.ClientSize = New System.Drawing.Size(250, 300) pena = New Pen(Color.Red, 5) brush = New SolidBrush(Color.Black) gambar.FillEllipse(brush, 50, 100, 50, 50) gambar.FillEllipse(brush, 150, 100, 50, 50) pena.Color = Color.Blue gambar.DrawEllipse(pena, 25, 25, 200, 200) End Sub End Class

Membuat Ellipse di Visual Studio 2019-05-30T07:30:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer