setfocusRésolu

Question

bonsoir 

voila j'ai 5 textbox( --> groupe de controle )  et je voudrai que quand j'ai supprimer tout le contenu ( a l'aide du backspace (caract ascii 8) )d'une que le focus aille se mettre dans a la fin de la textbox précédente .

J'ai déja essayer ceci mais le focus fait n'inporte quoi 

 Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)


Select Case KeyAscii
   
   Case 8
  
For i = 1 To Text1.Count - 1
   
   If Len(Text1(i).Text) = 0 Then
    
       Text1(Index - 1).SetFocus
   
   End If
Next
 
 End Select
   
  
End Sub

  Merci d'avance dodo1309

Utilisateur anonyme · Accepted Answer

Salut,

Pourquoi faire un boucle vu que tu as l'index de la textbox



Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
    Case 8
      If Text1(Index).Text = vbNullString Then
        If Index > Text1.LBound Then Text1(Index - 1).SetFocus
      End If
  End Select
End Sub,

----

(Coloration syntaxique automatique par Kenji)





__________
Kenji

dodo1309 · Answer

merci

dodo1309 · Answer

oops je me suis mal exprimer 

c pas une setfocus mais que le curseur se mette a la fin de la textbox précedents 

dsl

merci d'avance dodo1309

jmfmarques · Answer

Ben, dodo....
utilise donc selstart et place-le à la fin ( len(text(n).text) ) de la textbox "focusée" ; pardi !

jmfmarques · Answer

Ceci étant dit : gaffe, gaffe !.... yadékaoufofèregaf.... mais on en reparlera un jour ensemble...

dodo1309 · Answer

ok

Setfocus

6 réponses

Votre réponse

Discussions similaires