Mouse Olayları

Mouse Down
Form yada kontrol üzerinde farenin herhangi bir tuşuna basılması olayı.


 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Form üzerinde farenin bir tuşuna basılması ile yapılacak işlemler
End Sub
 
Sabit    Değer    İşlem
VbShiftMask    1    SHIFT tuşu basılı
VbCtrlMask    2    CTRL tuşu basılı
VbAltMask    3    ALT tuşu basılı
     4    SHIFT+CTRL tuşları basılı
     5    SHIFT+ALT tuşları basılı
     6    CTRL+ ALT tuşları basılı
     7    SHIFT+CTRL+ ALT tuşları basılı

---

Mouse Move
Fare işareçisinin form yada kontrol üzerinde yer değiştirmesi olayı.


 
               Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)   
                ' Fare işaretçisinin formun üzerinde hareket etmesi ile yapılacak işlemler
               End Sub
Buton    Değer    Sabit
Sol buton    1    VbLeftButton
Sağ buton    2    VbRightButton
Orta buton    3    VbMiddleButton
Sol ve Sağ birlikte    4    vbLeftButton+ vbRightButton
Sol ve Orta birlikte    5    vbLeftButton+ vbMiddleButton
Sağ ve Orta birlikte    6    vbRightButton+ vbMiddleButton
Üçü birlikte    7    vbRightButton+ vbMiddleButton+ vbLeftButton

---

Mouse Up
Form yada kontrol üzerinde farenin basılı olan tuşunun bırakılması olayı.


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Form üzerinde farenin basılı tuşunun basılması ile yapılacak işlemler
End Sub

---

Click
Form yada kontrol üzerinde fare ile tek tıklama olayı.


Private Sub Form_Click()
' Formun fare ile tek tıklanması sonucu yapılacak olan işlemler
End Sub

---

Dbl Click
Form üzerinde fare ile çift tıklama olayı.


Private Sub Form_DblClick()
' Formun fare ile çift tıklanması sonucu yapılacak olan işlemler
End Sub

---

Drag Drop
Bir nesnenin fare ile hareket ettirilip bırakılması.


Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
' Nesnenin fare ile form üzerinde sürüklenip bırakılması sonucu yapılacak işlemler
End Sub

---

Drag Over
 Bir nesnenin fare ile sürüklenirken bir başkasının üzerinden geçirilmesi.


Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
' Nesnenin fare ile form üzerinde sürüklenip bırakılması sonucu yapılacak işlemler
End Sub
State (Durum) Değeri    Anlamı
0    Source, nesnenin içinde
1    Source, nesneyi terk etti
2    Source, nesnenin içinde hareket ediyor

---

Fare Butonları
Değer    Buton


VbLeftButton    1    Sol
VbRightButton    2    Sağ
VbMiddleButton    4    Orta

---

Fare İşaretçileri

     Değer    Tanım
CcDefault    0    Varsayılan imleç
CcArrow    1    Ok imleci
CcCross    2    Haç imleci
Cclbeam    3    I imleci
CcIcon    4    İkon imleci (iki iç içe kare)
CcSize    5    Dört yönlü ok imleci
CcSizeNESW    6    Kuzeydoğu - Güneybatı çift yönlü ölçü imleci
CcSizeNS    7    Kuzey - Güney çift yönlü ölçü işareti
CcSizeNWSE    8    Kuzeybatı - Güneydoğu çift yönlü ölçü imleci
CcSizeEW    9    Doğu - Batı çift yönü ölçü işareti
CcUpArrow    10    Yukarı ok işareti
CcHourglass    11    Kum saati işareti
CcNoDrop    12    Bırakmak için uygun yer değil işareti
CcArrowHourglass    13    Ok ve kum saati işareti
CcArrowQuestion    14    Ok ve soru işareti
CcSizeAll    15    Her yöne ölçü işareti
CcCustom    99    MouseIcon ile belirlenen özel işaret