Red, green and blue lights showing secondary c...

Red, green and blue lights showing secondary colours. (Photo credit: Wikipedia)

Garis adalah fungsi untuk membuat garis atau kotak. Untuk membuat sebuah garis di VB kita bisa menggunakan perintah

Line(x1,y1)-(x2,y2), Warna, Mode

Mode dapat dipilih antara B dan BF. Jika ingin membuat sebuah kotak, maka sebaiknya menggunakan B, yaitu sebuah kotak tanpa warna isian. Sedangkan BF adalah digunakan untuk membuat sebuah kotak dengan isian warna.

Contoh 1:

Private Sub Form_Paint()
Line (500, 500)-(500, 2000), vbRed
End Sub

line1

perintah di atas digunakan untuk membuat sebuah garis vertikal berwarna merah.

 

contoh 2:

Private Sub Form_Paint()
Line (500, 500)-(500, 2000), vbBlue
End Sub

line2

perintah di atas digunakan untuk membuat sebuah garis horizontalberwarna biru.

 

contoh 3:

Private Sub Form_Paint()
‘garis horizontal
Line (500, 500)-(2500, 500), vbBlue
Line (500, 2500)-(2500, 2500), vbBlue

‘garis vertikal
Line (500, 500)-(500, 2500), vbBlue
Line (2500, 500)-(2500, 2500), vbBlue

End Sub

kotak1

perintah di atas membuat sebuah kotak tanpa warna isian dengan warna biru.

 

contoh 4:

Private Sub Form_Paint()
Line (450, 450)-Step(2000, 1000), vbBlue, BF

End Sub

kotak2

perintah di atas digunakan untuk membuat sebuah kotak dengan warna isian biru.

 

contoh 5:

Private Sub Form_Paint()
Line (500, 500)-Step(2000, 1000), RGB(64, 64, 64), BF
Line (450, 450)-Step(2000, 1000), vbYellow, BF
Line (450, 450)-Step(2000, 1000), vbBlue, BF

End Sub

kotak3

perintah di atas digunakan untuk membuat kotak dengan sebuah bayangan.

 

Demikian, semoga bermanfaat.

— Rohmadi —