Mouse'un form üzerindeki her hareketinde renk değişir ve mouse'un koordinatlarını verir. Bu olayı labela yazdırır.
Forma 2 adet textbox ve 1 adet label eklioruz. Kodları formun mousemove olayına yazıyoruz.
Forma 2 adet textbox ve 1 adet label eklioruz. Kodları formun mousemove olayına yazıyoruz.
Kod:
Private Sub form_mousemove(button As Integer, shift As Integer, y As Single, x As Single)
Form1.BackColor = QBColor(Rnd * 15)
Text1.BackColor = QBColor(Rnd * 15)
Text2.BackColor = QBColor(Rnd * 15)
Text2 = x
Text1 = y
Label1.Caption = "FORM MUSEMOVE OLAYI"
End Sub