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