1. Reklam


    1. kyra
      viki
      Tenda
      lastworld
      silkroadcilar
      3

Mouse Move


  1. Black Rain

    Black Rain rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.380
    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