ClassModule ile keycode uygulaması.

[Orion1]

Merhabalar.
Textbox1'den textbox10'a kadar userformda textbox var.
aşağı ok tuşuna bastığımda bir alttaki textboxa setfocus olacak,Yukarı ok tuşuna bastığımda bir üstteki textbox'a setfocus olacak.
Normalde bunu her textbox!ın keycode olayına girip yapabiliyorum.
Ama ben classmodüle ile yapmak istiyorum.Kodlar dahada kısalıyor.
Nasıl yapabilirim.
Teşekkür ederim.

 

[Levent Menteşoğlu]

Userformun kod sayfasında en üste,

Dim txt(10) As New Class1

Userformun initialize olayına,

Private Sub UserForm_Initialize()
For a = 1 To 10
Set txt(a).txt = Controls("textbox" & a)
Next
End Sub

Classmodül sayfasına (adı class1 olmalıdır),

Public WithEvents txt As MSForms.TextBox

Private Sub txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ad = Replace(txt.Name, "TextBox", "")
If ad < 10 And KeyCode = 40 Then UserForm1.Controls("textbox" & ad + 1).SetFocus
If ad > 1 And KeyCode = 38 Then UserForm1.Controls("textbox" & ad - 1).SetFocus
End Sub

 

[Orion1]

Levent bey teşekür ederim.
İyi geceler.