merhaba,
kelime manasını bilmiyorum ama form yüklenirken, gösterilmeden önce gerçekleşen olaydır.
Keydown: tuşa basıldığı anda olur, excel tarfından keycode değeri gönderilir
Keyup: tuşa basıldıktan sonra kaldırılırken olur, excel tarfından keycode değeri gönderilir
keypress: tuşa basılma ve kaldırılma sırasında olur. keyascii değeri gönderirlir,
keyascii değeri özel fonksiyonları tanımaz,
anacak keycode değerleri özel fonksiyonları tanır..
KeyDown
Tuşa basılması olayı. Aktif nesne tarafından algılanır. KeyUp olayından önce oluşur.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
‘ Tuşa basılması ile yapılacak olan işlemler
End Sub
KeyPress
Tuşa basılması ve bırakılması olayı. Aktif nesne tarafından algılanır.
Private Sub Form_KeyPress(KeyAscii As Integer)
‘ Tuşun basılıp bırakılması ile yapılacak olan işlemler
End Sub
KeyUp
Basılı olan tuşun bırakılması olayı. Aktif nesne tarafından algılanır. KeyDown olayından sonra oluşur.
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
‘ Basılı olan tuşun bırakılması ile yapılacak olan işlemler
End Sub
Shift Tuş Kombinasyonu
0 Basılı Tuş Yok (Ctrl,Alt,Shift)
1 Shift
2 Ctrl
3 Shift + Ctrl
4 Alt
5 Shift + Alt
6 Ctrl + Alt
7 Shift + Ctrl + Alt
Basılan Tuşun Kodunu Bulmak
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "Basılan Tuşun Kodu :" & KeyCode
End Sub
Basılan Tuşun Ascii Değerini Bulmak
Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox "Basılan Tuşun Ascii Değeri :" & KeyAscii
End Sub
Sadece Büyük Harf Kullanmak
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
KeyAscii = Asc(UCase(Chr(KeyAscii))) ‘ UCase ile büyük harfe çevriliyor
Print Chr(KeyAscii)
End Sub
Form1.KeyPreview = True ‘ Formun KeyPreview özelliği True
Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case KEY_F1 ‘ F1 - Tarih
Text1.Text = Date$
Case KEY_F2 ‘ F2 - Saat
Text1.Text = Time$
Case KEY_ESCAPE ‘ ESC - Çıkış
Unload Me
End Select
End Sub
SendKeys – Tuş Basımı Göndermek
Tuş Kodu Tuş Kodu
Enter {ENTER} veya ~ Yukarı Ok {UP}
Esc {ESC} Aşağı Ok {DOWN}
Tab {TAB} Sola Ok {LEFT}
Caps Lock {CAPSLOCK} Sağa Ok {RIGHT}
Back Space {BACKSPACE} Help {HELP}
Del - Delete {DELETE} {DEL} Scroll Lock {SCROLLLOCK}
End {END} Print Screen {PRTSC}
Page Down {PGDN} Break {BREAK}
Page Up {PGUP} F1 - F2 {F1} - {F12}
Home {HOME} Shift +
Ins – Insert {INSERT} {INS} Control ^
Num Lock {NUMLOCK} Alt %
Private Sub Command1_Click()
SendKeys "%{F4}", True ‘ Alt + F4 Programı kapar
End Sub
Fare Olayları
MouseDown
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ı
MouseMove
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
MouseUp
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
DblClick
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
DragDrop
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
DragOver
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
Form - Olaylar
Activate : Formun aktif hale gelmesi olayı
GotFocus olayından önce
Deactivate : Başka bir formun yada programın aktif hale gelmesi olayı
LostFocus olayından önce oluşur
GotFocus : Formun aktif hale geçmesi
Form üzerindeki tüm kontrollerin visible özelliği false olmalıdır
Initialize : Form load olayından önce meydana gelir
Load : Form yüklenirken ilk gerçekleşen olay
LostFocus : Başka bir nesnenin aktif hale geçmesi
Queryclose : Form üzerinde bulunan kapatma düğmesine basıldığında
Terminate : Formun bütün elemanlarının bellekten kaldırılması ile meydana gelir
Zoom : Form büyüklüğünün değişimiyle meydana gelir.
Addcontrol : Yeni bir kontrol eklendiğinde meydana gelir
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.