Textboxlar arası sağ sol tuşları

[odin]

merhaba arkadaşlar ekteki örnekte textboxlar arasında sağ,sola,aşşağı,yukarı
tuşlarını kullanmak için class modüle nasıl bir cod yazmak lazım normal olarak
çok kod yazmak gerekeçek.

saygılar.

 

[Levent Menteşoğlu]

Class module sayfasına aşağıdaki kodları kopyalayın.

Public WithEvents txt As MSForms.TextBox
Private Sub txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
deg = Array(12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1)
ad = Replace(txt.Name, "TextBox", "")
If KeyCode = 39 Then UserForm1.Controls("TextBox" & deg(ad + 1)).SetFocus
If KeyCode = 37 Then UserForm1.Controls("TextBox" & deg(ad - 1)).SetFocus
End Sub

Userformun modül sayfasınada aşağıdaki kodları kopyalayın.

Dim txt() As New Class1
Private Sub UserForm_Initialize()
ReDim Preserve txt(12)
For a = 1 To 12
Set txt(a).txt = Controls("textbox" & a)
Next
End Sub

 

[odin]

usta çok teşekkürler
sizden o kadar çok şey öğreniyoruz ki

saygılar.