Denetim Araç Kutusu İle sayfaya yerleştirilen Textboxlarda Tab Tuşu?

[udentr2002]

Denetim Araç Kutusu İle sayfaya yerleştirilen Textboxlarda Tab Tuşu?

Merhaba arkadaşlar sorumun başlığı biraz uzun oldu gibi ama
Denetim araç kutusu ile sayfaya textboxlar yerleştirdim yanlız bu textboxlar arasında geçişleri tab tuşu ile yada enter tuşu ile yapabilmemein bir yolu varmı acaba?

 

[udentr2002]

Arkadaşlar denetim araç kutusu yardımı ile sayfa üzerine yerleştirilen textboxlar arasında tab yada enterle geçiş yapma olasılığımız varmı acaba yoksa böyle oluşturduğumuz textboxlarda ancak maus ile tıklayarakmı veri girebiliyoruz yardımcı olursanız çok sevinirim.

 

[hamitcan]

Mevcut özelliklerine baktım ama göremedim. Biraz daha araştırmakta yarar var.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

Sayfa üzerindeki textboxlara class module ile ortak özellik kazandırma

 

[udentr2002]

Hocam benim 14 adet textboxum var kodlarınızı şu şekilde değiştirdim
clas1 modülündeki kodlar

Public WithEvents txt As MSForms.TextBox
Private Sub txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ad = Replace(txt.Name, "TextBox", "") + 1
If ad = 15 Then ad = 1
If KeyCode = 9 Then
ActiveSheet.Shapes(ad).OLEFormat.Object.Activate
ActiveSheet.Shapes(ad).OLEFormat.Object.Object.BackColor = &HC0FFFF
If ad = 1 Then ad = 15
ActiveSheet.Shapes(ad - 1).OLEFormat.Object.Object.BackColor = &H80000005
End If
End Sub
Private Sub txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For a = 1 To 15
ActiveSheet.Shapes(a).OLEFormat.Object.Object.BackColor = &H80000005
Next
txt.BackColor = &HC0FFFF
End Sub

workbook modülündeki kodlra ise

Dim txt() As New Class1
Private Sub Workbook_Open()
ReDim Preserve txt(14)
For a = 1 To 14
Set txt(a).txt = ActiveSheet.Shapes(a).OLEFormat.Object.Object
Next
Sheets("Giris").TextBox1.Activate
End Sub

şeklinde değiştidim
yanlız şu hatayı veriyor

Set txt(a).txt = ActiveSheet.Shapes(a).OLEFormat.Object.Object

kod satırını sarı renkte işarfetliyor neden olabilir hocam

 

[Orion1]

Tetxbox'ların keydown olayına aşağıdaki kodları uyarlayarak yazın.Meselea Ben textbox1 için aşağıdaki kodu yazdım.
Entere basınca bir sontrak itextbox'a geçiyor.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox2.Activate
End Sub

 

[udentr2002]

Sayın Hocam önelikle ilgilendiğiniz için teşekkür ederim. dediğiniz gibi textboxların keydown olayına kodları yazdım yanlız textbox1 deyken enter tuşuna bastığımda textbox2 yi gizliyor bir tuşa bastığımda textbox2 görünür hale geliyor bunun sebebi ne olabilir hocam

 

[Levent Menteşoğlu]

Dosyanızı ekleyin isterseniz.

 

[udentr2002]

Dosyam ektedir Hocam Giris sayfasındaki textboxlar arasında enter yada tab tuşu ile hareket etmek için nasıl kodu düzenleyebiliriz yardımcı olursanız çok sevinirim

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[udentr2002]

Levent Hocam çok teşekkür ederim ellerinize sağlık