Initialize

[xtanerx]

Fromun Initialize olayı ne demek arkadaşlar?
Ve Keydown,keypress,keyup gibi diğer olayları hakkında bilgi verebilirseniz çok sevinirim.

Teşekkürler...

 

[isakarakus]

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

 

[zafer]

Merhaba

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

Fonksiyon Tuşlarına Görev Atamak
(General)(Declaration)
Option Explicit
Const KEY_F1 = &H70
Const KEY_F2 = &H71
Const KEY_ESCAPE = &H1B

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



Kaynak:kentmerkezi.com