Graphics pada VB2010

Membuat graphics sangat mudah pada VB2010 karena sudah disediakan drawing tools di dalamnya. Sebagai contoh, pada VB2010 sudah terdapat drawing tools pada toolbox dimana kita tinggal meng-drag ke dalam form untuk membuat rectangle, square, ellipse, circle dan lainnya. Sejak VB berkembang menjadi bahasa pemrograman dengan konsep OOP, shape controls object tidak lagi tersedia. Programmer harus menulis code untuk membuat variasi shape dan gambar.

1. Membuat Garis (Line)
Pada bagian ini kita akan menampilkan sebuah garis (line) ke dalam form. Inputkan 1 button ke dalam form dan ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'untuk mendefinisikan objek gambar yang akan dibuat
        Dim myGraphics As Graphics = Me.CreateGraphics
        Dim myPen As Pen

        'untuk mendefinisikan variabel gambar
        myPen = New Pen(Brushes.Crimson, 10)
        myGraphics.DrawLine(myPen, 10, 10, 100, 10)
    End Sub
End Class

2. Membuat Rectangle
Pada bagian ini kita akan menampilkan sebuah rectangle (garis yang membentuk sebuah kotak)  ke dalam form. Inputkan 1 button ke dalam form dan ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myRect As New Rectangle
        myRect.X = 10
        myRect.Y = 10
        myRect.Width = 100
        myRect.Height = 50
        Dim myPen As Pen
        myPen = New Pen(Drawing.Color.BlueViolet, 5)
        Dim myGraphics As Graphics = Me.CreateGraphics
        myGraphics.DrawRectangle(myPen, myRect)
    End Sub
End Class

3. Membuat Rectangle dengan Garis Putus-putus
Pada bagian ini kita akan menampilkan sebuah rectangle (garis yang membentuk sebuah kotak) dengan garis putus-putus ke dalam form. Inputkan 1 button ke dalam form dan ketik code berikut:

 Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim myPen As Pen
        myPen = New Pen(Drawing.Color.RoyalBlue, 5)
        Dim myGraphics As Graphics = Me.CreateGraphics
        myPen.DashStyle = Drawing.Drawing2D.DashStyle.Dot
        myGraphics.DrawRectangle(myPen, 10, 10, 100, 50)
    End Sub
End Class

4. Membuat Ellipse
Pada bagian ini kita akan menampilkan sebuah ellipse ke dalam form. Inputkan 1 button ke dalam form dan ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPen As Pen
        myPen = New Pen(Drawing.Color.BurlyWood, 5)
        Dim myGraphics As Graphics = Me.CreateGraphics
        Dim myRectangle As New Rectangle
        myRectangle.X = 10
        myRectangle.Y = 10
        myRectangle.Width = 200
        myRectangle.Height = 100
        myGraphics.DrawEllipse(myPen, myRectangle)
    End Sub
End Class

Atau dapat juga menggunakan code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPen As Pen
        myPen = New Pen(Drawing.Color.Blue, 5)
        Dim myGraphics As Graphics = Me.CreateGraphics
        myGraphics.DrawEllipse(myPen, 10, 10, 200, 100)
    End Sub
End Class

5. Membuat Circle (Lingkaran)
Pada bagian ini kita akan menampilkan sebuah circle (lingkaran) ke dalam form. Inputkan 1 button ke dalam form dan ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPen As Pen
        myPen = New Pen(Drawing.Color.CornflowerBlue, 5)
        Dim myGraphics As Graphics = Me.CreateGraphics
        Dim myRectangle As New Rectangle
        myRectangle.X = 10
        myRectangle.Y = 10
        myRectangle.Width = 100
        myRectangle.Height = 100
        myGraphics.DrawEllipse(myPen, myRectangle)
    End Sub
End Class

Atau dapat juga menggunakan code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim myPen As Pen
        myPen = New Pen(Drawing.Color.Blue, 5)
        Dim myGraphics As Graphics = Me.CreateGraphics
        myGraphics.DrawEllipse(myPen, 10, 10, 100, 100)
    End Sub
End Class

6. Membuat Text
Pada bagian ini kita akan menampilkan sebuah text ke dalam form. Inputkan 1 button ke dalam form.
Contoh1:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myGraphics As Graphics = Me.CreateGraphics
        Dim myFont As Font
        Dim myBrush As Brush
        myBrush = New Drawing.SolidBrush(Color.DarkOrchid)
        myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Underline)
        myGraphics.DrawString("Visual Basic 2010", myFont, myBrush, 10, 10)
    End Sub
End Class

Contoh2:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myGraphics As Graphics = Me.CreateGraphics
        Dim myFont As Font
        Dim myBrush As Brush
        Dim userMsg As String
        userMsg = InputBox("What is your message?", "Message Entry Form", "Enter your message here", 100, 200)
        myBrush = New Drawing.SolidBrush(Color.DarkOrchid)
        myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Underline)
        myGraphics.DrawString(userMsg, myFont, myBrush, 10, 10)
    End Sub
End Class

7. Membuat Segitiga
Pada bagian ini kita akan menampilkan sebuah segitiga ke dalam form. Inputkan 1 button ke dalam form dan ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPen As Pen
        Dim A As New Point(10, 10)
        Dim B As New Point(100, 50)
        Dim C As New Point(60, 150)
        Dim myPoints As Point() = {A, B, C}
        myPen = New Pen(Drawing.Color.Gold, 5)
        Dim myGraphics As Graphics = Me.CreateGraphics
        myGraphics.DrawPolygon(myPen, myPoints)
    End Sub
End Class

8. Membuat Gambar dengan Border
Pada bagian ini kita akan menampilkan sebuah gambar dengan border ke dalam form. Inputkan 1 button ke dalam form dan ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPen As Pen
        Dim myBrush As Brush
        Dim myGraphics As Graphics = Me.CreateGraphics
        myPen = New Pen(Drawing.Color.CadetBlue, 5)
        myBrush = New SolidBrush(Color.Beige)
        myGraphics.DrawRectangle(myPen, 0, 0, 150, 150)
        myGraphics.FillRectangle(myBrush, 0, 0, 150, 150)
    End Sub
End Class

 untuk mendapatkan file pdf nya, klik download