CurcunaForum.Org - Fare (mouse) ile program etkileşimi, fare ile neler yapabiliriz?

***MouseDown***

*** Form yada kontrol üzerinde farenin herhangi bir tuşuna basılması olayı.
Kullanımı:
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ı

Örnek:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenMsgBox ("Mouse'un yeri :" & Str(X) & "," & Str(Y))End IfEnd Sub
***MouseMove***

*** Fare işareçisinin form yada kontrol üzerinde yer değiştirmesi olayı.
Kullanımı:

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

-1-
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

***MouseUp***

*** Form yada kontrol üzerinde farenin basılı olan tuşunun bırakılması olayı.
Kullanımı: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ı.

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

***DblClick***

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

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

Örnek:

Private Sub Form_DblClick()
MsgBox "Mouse ile Çift Tıklama Yaptiniz.", , "Çift Tiklama"
End Sub

-2-
Visual Basic Fare Kursörleri
VB Sabitleri
Değer
Tanımlama
Kullanımı
vbDefault
0
İmleci yerine getirme
Yerine getirmek için kullanılır
vbArrow
1
Ok
Ok, metin üzerinde sürüklenerek madde seçimleri yapılabilir
vbCrosshair
2
Hassas çaprazlama
Dikkatlice yerleştirilir
vbIbeam
3
"I"-direk
Metine giriş yapıldığında “I” şeklini alır
vbSizePointer
4
Çapraz şekildeki çift ok başlarıdır
Fare işaretçisine izin verilen herhangi bir yönde program yeniden şekillendirilir
vbSizeNESW
5
Aşağı-sol ve yukarı-sağ ok başı
İzin verilen kuzeydoğu,güney batı yönünde yeniden şekillendirilir.
vbSizeNS
6
Dikey biçimde çift ok başı
Dikey biçimde yeniden şekillendirilir
vbSizeNWSE
7
Yukarı-sol ve aşağı-sağ ok başı
Fare ile ok başlarına tıklanarak değer arttırılıp azaltılabilir veya metin kuzeybatı,güneydoğu yönünde hareket ettirilebilir.
vbSizeWE
8
Yatay düzlemdeki çift ok başları
Fare işaretçisine izin verildiği taktirde yatay düzlemdeki sağ ve sola bakan ok başlarıyla metin hareket ettirilerek şekillendirme yapılabilir
vbUpArrow
9
Yukarıyı işaret eden ok
Fare yukarıya doğru kaydırılarak veya scroll yukarı kaydırılarak fare işaretçisi hareket ettirilir
vbHourglass
10
Kum saati
Program meşkul biçimde bekler
vbNoDrop
11
Daire içindeki yatay çizgi şekli
Ok ,metin üzerine geldiğinde bu şekli alarak, kullanılmaz anlamını verir
vbArrowHourglass
12
Kum saati artı ok şeklindedir
Program meşkuldür, fakat seçimler fare ile yapılmış olabilir
vbArrowQuestion
13
Fare işareti soru işareti şeklini alır
Yardım seçeneklerinden biri seçilir
vbSizeAll
14
"vbSizePointer" ile aynı özelliktir
"vbSizePointer" ile kulanımı aynı