tabindexler arası döngü

[hassan26]

Selam arkadaşlar
Userform üzerinde textboxlar commandbuttonlar labeller var diyelim tabindex sıralamasını yapıyoruz, tabın gitmeyeceği nesnelerin tabstop'larını false yapıyoruz. Buraya kadar tamam. Yapmaya çalıştığım bu tabindexleri döngü haline nasıl getirebiliriz. Diyelimki Tab tuşuna bastıkça index sırasıyla 1,2,3,4,5,6'ya gitti bundan sonrakiler false olduğu için durdu işte tam burada tab tuşuna basınca tekrar 1'e dönmesini sağlayabiliyormuyuz. Sonuncu tabindex6 buda commandbutonda sona eriyor bunu properties penceresindenmi ayarlamalıyım yoksa kodmu bu döngüyü sağlar çözemedim. Bu arada MultiPage üzerinde çalışıyorum tab captionda duruyor geriye shift+tab tuşuyla dönüyorum şimdilik.
Saygılar.

 

[Zeki Gürsoy]

Indexi 0 ya da 1 olan nesneye "SetFocus" yapabilirsiniz.

 

[hassan26]

Selam Zeki bey nesne kod sayfasında 7 karakterden az olmasın diye yazılmış setfocus var birşeyler yazmayı denedim beceremedim tab için gerekli olanı nasıl yazabilirim.
If Len(TextBox9) < 7 Then
MsgBox "Numaras&#305; Eksik ! L&#252;tfen kontrol ediniz.", vbExclamation, "Dikkat !"
TextBox9.SetFocus
Exit Sub
devam&#305;nda ba&#351;ka kodlar vs.

 

[Necdet]

Ben SetFocus'u bilmiyorum

 

[hassan26]

Say&#305;n Necdet ye&#351;ertener. Te&#351;ekk&#252;rler

 

[Ayhan Ercan]

Multipage nin "keydown" olay&#305;na kodu yaz&#305;n.. a&#351;a&#287;&#305;daki &#246;rne&#287;i kendinize uyarlay&#305;n...

Private Sub MultiPage1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1.SetFocus  '  Textbox1'i Tabindexin ilk nesnesi olarak kabul ettik.
End Sub

 

[Orion1]

Ben SetFocus'u bilmiyorum

Aman, hocam.
Estafurullah.
Saygılar.

 

[Necdet]

Sayg&#305; benden Say&#305;n Gizlen

 

[hassan26]

Sayın Ayhan Ercan kod oldu teşekkür ederim.
Sayın Necdet bey ve Evren bey bu dialogdan bir şey anlamasamda sizlerede teşekkür ederim.

Ben SetFocus'u bilmiyorum

Aman, hocam.
Estafurullah.
Saygılar.

Saygı benden Sayın Gizlen

 

[Necdet]

Ben SetFocus'u bilmiyorum

İnanın bilmiyorum ne amaçla kullanılır bu SetFocus?

Öğrenmek için sordum yanıt alamadım

Sözcük anlamı olarak birşeyi odak haline getiriyor da, neden?, ne amaçla? vs vs vs

 

[Zeki Gürsoy]

"SetFocus" ile nesne aktif olur. Bu, bir textbox ise cursorun yan&#305;p s&#246;nd&#252;&#287;&#252;n&#252; g&#246;r&#252;rs&#252;n&#252;z. Veya bir buton ise, butonun aktif oldu&#287;unu g&#246;rebilirsiniz.

Textbox1.SetFocus dedi&#287;imizde textbox1 aktif olur.

 

[hassan26]

Selam
Zeki &#252;stad&#305;m ben multi page ile &#231;al&#305;&#351;t&#305;&#287;&#305;m&#305; unutmu&#351;um kod oldu demi&#351;tim ama proje tek userform &#252;zerine olu&#351;turulmu&#351; 6-7 page b&#246;l&#252;m&#252; olan multipageden olu&#351;uyor haliyle kod sayfas&#305; tek ve her page b&#246;l&#252;m&#252;nde setfocus yap&#305;lmas&#305; gereken yerler farkl&#305; her sayfada tabindex farkl&#305; yerde stop etmeli, yani bu Multipage nin "keydown" olay&#305;na bu kodu yaz&#305;nca hepsi etkileniyor bukod hep textbox1 olan sayfada etkin di&#287;er pagelerde textbox1 olmad&#305;&#287;&#305; i&#231;in runtime hatas&#305; beni kar&#351;&#305;l&#305;yor. Bu kodu genelden &#231;&#305;kar&#305;p multipage nin i&#231;inde bulunan 6 page de farkl&#305;la&#351;t&#305;rmak i&#231;in ne gibi bir de&#287;i&#351;iklik yapmal&#305;y&#305;m.
Sayg&#305;lar

 

[Necdet]

"SetFocus" ile nesne aktif olur. Bu, bir textbox ise cursorun yanıp söndüğünü görürsünüz. Veya bir buton ise, butonun aktif olduğunu görebilirsiniz.

Textbox1.SetFocus dediğimizde textbox1 aktif olur.

Olayı tahmin etmiştim ama emin olmak istemiştim. Yani ben de herşeyi bilmiyorum. Öğrenmek isteyince de lütfen bana yardımcı olun