1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Mouse Move


  1. Black Rain

    Black Rain Aileden rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.698
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    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.
    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