Membuat Kotak di Visual Studio

Membuat kotak di VB Visual Studio agak lebih sulit dibandingkan dengan versi Basic yang sebelumnya. Di Visual Studio semuanya sudah serba obyek.

Langkah awal adalah membuat instan obyek Pen terlebih dahulu dengan:
Dim Pena as Pen

Fungsi dari Pen adalah sebagai "Pensil" atau "Kuas" untuk menggambar. Darinya kita dapat menentukan warna garis dengan ketebalan garis tertentu:
pena = New Pen(Drawing.Color.Red, 10)

ataupun Anda dapat mengganti warna dan tebal garis pena dengan:
pena.Color  = Color.Red
pena.Width = 5

Setelah menentukan pena, kita baru menggambarnya dengan DrawRectangle
gambar.DrawRectangle(pena, i, i, Me.ClientSize.Width - i * 2, (Me.Height - i * 2) - 40)

Karena saya menginginkan lebar dan tinggi relatif terhadap ukuran form. Maka ukuran form saya definisikan terlebih dahulu.
Me.ClientSize = New System.Drawing.Size(400, 300)

Contoh program dibawah ini, saya menggambar 10 buah persegi panjang di event Paint milik Form. Persegi panjang yang berikutnya akan digambar di dalam persegi panjang yang terdahulu.

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 x, i, BorderWidth, TitleBarHeight As Integer Me.ClientSize = New System.Drawing.Size(400, 300) pena = New Pen(Drawing.Color.Blue, 10) pena.Color = Color.Red pena.Width = 5 For x = 1 To 10 i = x * 10 gambar.DrawRectangle(pena, i, i, Me.ClientSize.Width - i * 2, (Me.ClientSize.Height - i * 2)) Next End Sub End Class

Membuat Kotak di Visual Studio 2019-05-29T01:21:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer