Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : setfocus [ Divers / Trucs & Astuces ] (dodo1309)

mercredi 3 janvier 2007 à 19:07:42 | setfocus

dodo1309

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


mercredi 3 janvier 2007 à 19:18:38 | Re : setfocus

Charles Racaud

Membre Club
Réponse acceptée !
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


mercredi 3 janvier 2007 à 19:27:20 | Re : setfocus
mercredi 3 janvier 2007 à 19:48:12 | Re : setfocus

dodo1309

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

mercredi 3 janvier 2007 à 19:52:19 | Re : setfocus

jmfmarques

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

mercredi 3 janvier 2007 à 19:54:20 | Re : setfocus

jmfmarques

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

mercredi 3 janvier 2007 à 19:58:41 | Re : setfocus


Cette discussion est classé dans : textbox, end, setfocus, text1, focus


Répondre à ce message

Sujets en rapport avec ce message

Difficultés à donner le focus à une appli,feuille,textbox :o(( [ par olid ] 'JourJe galére depuis 4 jours sur ce pb ; quand on survole le picturebox dune feuille (1), je dois afficher une autre feuille (2) et donner le focus à SetFocus [ par JeffC1977 ] Salut...J'ai un bug dans mon prog...Tout allait bien et là pour une raison que j'ignore ca plante...Lorsque je démare mon prog. je veux avoir mon focu Vérifier Focus [ par neurosupherot ] Bonjour les VB programmeurs! je voudrai savoir comment vérifier que le focus est bien sur ce que'on désire je cherche un truc du genre soit: Privat Setfocus en fin de textbox????? [ par damdam04 ] salut à tous comment je fais pour donner la position du focus dans une textbox. j'arrive pour l'instant à donner le focus sur la textbox met je n'arri SetFocus sur textbox [ par alixdj ] Je n'arrive plus à utiliser leSetFocus. A la compil j'ai "Argument ou appel de procédure incorrect".Pour tester, j'ai créer un nouveau projet avec jus SetFocus sur textbox [ par alixdj ] Je n'arrive plus à utiliser leSetFocus. A la compil j'ai "Argument ou appel de procédure incorrect".Pour tester, j'ai créer un nouveau projet avec jus showmodal & Setfocus dans VBA [ par sanson42 ] J'utilise 3 userforms qui sont tous SHOWMODAL = FALSE, chaque userform contient un textbox, et lorsque un texte est saisie au clavier, je valide ave aide séléctionner dans textbox [ par mustik ] Bonjour à tous,j'ai un problème, j'aimerais pouvoir sélectionner un text dans ma textbox comment je dois faire?? J'ai un bout de code mais qui marche manipulation sur les textBox [ par tonitto85 ] Bonjour tous le mondej'ai un petit problème dans une application et j'espère que je trouve l'aide icije commance par donner ce programme et je vais co valeur d'un textbox [ par petiflamand ] Bonjour , je voudrais savoir comment je doit faire pour mettre la valeur d'un textbox dans une variableen effet je fait Text1 = (ns3(i) * Val(Text6))


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,265 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.