Membuat Garis dengan DrawLine

Menggambar garis di Visual Basic Visual Studio menggunakan method DrawLine dengan sintak:
DrawLine(pena, x1,y1, x2, y2)

dengan x1, y1 adalah titik awal dan x2, y2 titik akhir garis.

pena adalah variabel instandari Class Pen, yang definisikan dengan
Dim pena As Pen
pena = New Pen(Color.Red, 5)

Angka 5 disini adalah ketebalan garis. Anda bisa juga menggantinya di tengah-tengah jalan dengan perintah semacam ini:
pena.Width = 2

Gambar garis sendiri harus digambar di media Graphics yang didefinisikan dengan:
Dim gambar As Graphics = Me.CreateGraphics

kemudian barulah "Canvas gambar" ini bisa dipakai seperti ini:
gambar.DrawLine(pena, 10,10,200,20)

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 Me.ClientSize = New System.Drawing.Size(250, 75) pena = New Pen(Color.Red, 5) pena.Width = 8 gambar.DrawLine(pena, 10, 10, 200, 10) pena.Color = Color.Blue pena.Width = 7 gambar.DrawLine(pena, 10, 20, 200, 20) pena.Color = Color.Black pena.Width = 6 gambar.DrawLine(pena, 10, 30, 200, 30) pena.Color = Color.Green pena.Width = 5 gambar.DrawLine(pena, 10, 40, 200, 40) pena.Color = Color.Yellow pena.Width = 4 gambar.DrawLine(pena, 10, 50, 200, 50) End Sub End Class

Membuat Garis dengan DrawLine 2019-05-30T08:02:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer