Pada artikel kali ini Admin akan berbagi sebuah kode vb6 yang berfungsi untuk membuat efek mouse seolah-olah mouse mempunyai daya tarik magnet.
Pada contoh program ini saya akan membuat sebuah garis (line) yang panjang pendeknya mengikuti gerakan mouse seolah-olah datarik.
Untuk membuatnya perhatikan langkah-langkah dibawah ini :
1. Sipakan Form vb6 dan tambahkan Control PictureBox
2. Ketik kode dibawah ini untuk membuat efek magnetik yang akan menggerakan garis di didalam PictureBox :
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim centerX As Single
Dim centerY As Single
Dim distance As Single
Dim color As Long
' Koordinat pusat
centerX = Picture1.ScaleWidth / 2
centerY = Picture1.ScaleHeight / 2
' Hapus gambar sebelumnya
Picture1.Cls
' Hitung jarak antara pusat dan kursor
distance = Sqr((X - centerX) ^ 2 + (Y - centerY) ^ 2)
' Tentukan warna berdasarkan jarak
If distance < 100 Then
color = vbRed
ElseIf distance < 200 Then
color = vbGreen
Else
color = vbBlue
End If
' Gambar garis
Picture1.Line (centerX, centerY)-(X, Y), color
End Sub
Hasil
- Saat Anda menjalankan program:
- Garis akan selalu menghubungkan pusat
PictureBox
dengan posisi kursor. - Garis diperbarui secara dinamis mengikuti pergerakan kursor.
- Garis akan selalu menghubungkan pusat
- Jika menggunakan warna dinamis, garis akan berubah warna berdasarkan jarak kursor dari pusat:
- Merah untuk jarak dekat.
- Hijau untuk jarak menengah.
- Biru untuk jarak jauh.
Demukialah artikel kali ini saya buat semoga bermanfaat.
No comments:
Post a Comment