Memanfaatkan Mouse Event untuk Menggambar pada Form

Memanfaatkan Mouse Event untuk Menggambar pada Form

Memanfaatkan Mouse Event untuk Menggambar pada Form

Mouse Event dalam visual basic bisa kita manfaatkan untuk menggambar pada form dengan menggerakkan mouse. Kali kita akan mengkombinasikan event mousedown dan mousemove.

Buatlah sebuah project standard.exe kemudian tambahkan sebuah CommandButton dan dua buah Option pada form. Design form seperti di bawah!

Isikan kode di bawah

Private Sub Command1_Click()
Me.Cls
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If Option1.Value = True Then
Line (CurrentX, CurrentY)-(X, Y)
ElseIf Option2.Value = True Then
Circle (X, Y), 100
End If
End If
End Sub

Download Source Code

Sedikit penjelasan:

Button = 1 artinya gambar akan dicatak ketika sudah klik satu kali. Jika tidak diisi atau 0, maka ketika anda anda menggerakkan mouse pada form akan tercetak gambar secara langsung sebelum anda mengklik pada form.

Sumber : https://downloadapk.co.id/