• Home
 · 
• Windows System Services
 · 
• Simple VB Program for beginners. Draws cirlce on form on mousemove event.

Simple VB Program for beginners. Draws cirlce on form on mousemove event.

Simple VB Program for beginners. Draws cirlce on form on mousemove event.

API Declarations


'Simple Mouse Event Program--------For beginners
'Take a new form,2 command buttons and write the following code





Rate Simple VB Program for beginners. Draws cirlce on form on mousemove event.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' On mousemove over commandbutton form gets cleared 


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Form1.Cls
End Sub

'******************************************************************************
' On mousemove over commandbutton 2 form gets exit

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  End
End Sub

' On mousemove over form circle is drawn.  Left click draws bigger cirlce whereas rightclick draws smaller


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
  Randomize
  i = Int(15 * Rnd)
  FillStyle = 0
  FillColor = QBColor(i)
  Circle (X, Y), 200
End Sub