Kali ini Admin akan berbagi sebuah kode vb6 yang berfungsi untuk membuat garis atau lines dengan proses klik, garis ini akan muncul apabila kita telah mengklik satu titik ketitik lainnya. Proses ini mirip dengan magnetik tools pada photoshop.
 |
| Output |
Untuk membuat sangat mudah cukup membuka Form vb6 dan menambahkan 1 Commanbutton dan menambhkan kode dibawah ini :
Private Type Point
X As Single
Y As Single
End Type
Dim points() As Point ' Array dinamis untuk menyimpan titik-titik
Dim pointCount As Integer ' Counter untuk jumlah titik
Private Sub Command1_Click()
Cls ' Hapus semua gambar di form
pointCount = 0
ReDim points(0) ' Kosongkan array
End Sub
Private Sub Form_Load()
' Inisialisasi variabel
pointCount = 0
Me.AutoRedraw = True ' Supaya gambar tetap terlihat setelah refresh
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim newPoint As Point
' Tambahkan titik baru ke array
newPoint.X = X
newPoint.Y = Y
pointCount = pointCount + 1
ReDim Preserve points(1 To pointCount)
points(pointCount) = newPoint
' Gambar titik
Me.Circle (X, Y), 2, vbGreen ' Titik sebagai lingkaran kecil
' Hubungkan garis ke titik sebelumnya jika ada lebih dari satu titik
If pointCount > 1 Then
Me.Line (points(pointCount - 1).X, points(pointCount - 1).Y)-(X, Y), vbBlue
End If
End Sub
Hasil
Saat Anda menjalankan program:
- Klik di beberapa lokasi pada form.
- Garis akan otomatis tergambar dari titik sebelumnya ke titik baru.
- Titik klik akan ditandai dengan lingkaran kecil berwarna merah.
Fitur tambahan:
- Pola garis terus terhubung sesuai urutan klik.
- Anda dapat mengubah warna atau ukuran garis/titik sesuai kebutuhan.
No comments:
Post a Comment