Penggunaan Graphics di VB.NET

 Dalam pembuatan graphics, template yang akan kita gunakan adalah Windows Forms Application. Yang pertama dibuat adalah kita membuat tombol (Button1) untuk menampilkan graphics yang kita buat. Untuk perintah - perintah yang digunakan bisa dilihat di bawah :


Imports System.Drawing.Graphics
Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Deklarasi graphic
        Dim g As Graphics

        'Inisialisasi pembuatan graphic di me (From ini)
        g = Me.CreateGraphics

        'Membersihkan graphic yang telah ada sebelumnya dengan warna Background Form
        g.Clear(Me.BackColor)

        'Cara deklarasi pen : Dim nama_pen as Pen = New Pen(Warna, Ukuran)
        Dim p1 As Pen = New Pen(Brushes.Blue, 2)
        Dim p2 As Pen = New Pen(Brushes.Crimson, 3)

        'Cara deklarasi brush : Dim nama_brush as Brush = Warna
        Dim b1 As Brush = Brushes.Goldenrod

        'Menggambar menggunakan graphics yang telah dideklarasi sebelumnya

        'graphics.DrawLine(pen, x1, y1, x2, y2) akan menggambar garis menggunakan pen yang telah
        'dideklarasikan sebelumnya dari titik (x1, y1) ke titik (x2, y2)
        g.DrawLine(p1, 20, 60, 300, 60)

        'graphics.DrawRectangle(pen, rectangle) akan menggambar sebuah persegi panjang (hanya dengan outline tanpa fill)
        'yang telah dideklarasikan sebelumnya menggunakan pen yang telah dideklarasikan sebelumnya
        'Cara deklarasi rectangle : Dim nama_rectangle As Rectangle = New Rectangle (x1, y1, l, p) dengan posisi titik
        'kiri atas di titik (x1, y1) dan lebar l, panjang p
        Dim rect1 As Rectangle = New Rectangle(20, 80, 150, 50)
        g.DrawRectangle(p2, rect1)

        'graphics.FillRectangle(brush, rectangle) akan menggambar sebuah persegi panjang (dengan fill / warna)
        'yang telah dideklarasikan sebelumnya menggunakan pen yang telah dideklarasikan sebelumnya
        Dim rect2 As Rectangle = New Rectangle(20, 140, 150, 50)
        g.FillRectangle(b1, rect2)

        'Selain cara penggunaan brush, pen serta rectangle yang telah dideklarasikan sebelumnya
        'kita juga bisa menggunakan brush dan pen dideklarasikan secara langsung
        'dicontohkan seperti berikut

        'graphics.DrawEllipse(pen, rectangle) akan menggambar ellipse (hanya dengan outline tanpa fill)
        'di dalam rectangle yang telah ditentukan
        g.DrawEllipse(New Pen(Brushes.YellowGreen, 4), New Rectangle(20, 200, 150, 50))

        'graphics.DrawEllipse(pen, rectangle) akan menggambar ellipse (dengan fill / warna) di dalam rectangle yang telah ditentukan
        g.FillEllipse(Brushes.Black, New Rectangle(20, 260, 150, 50))

    End Sub

End Class


Tampilan program :
(Sebelum Button1 diclick)

 

(Setelah Button1 diclick)