tabulation zone de texteRésolu

Question

bonjour, une nouvelle question pour la zone de texte:  comment simuler une tabulation:

private sub message_keydown(keycode as integer,shift as integer)
dim placecurseur , i as long
      if keycode = 9 then
            me.message.setfocus
            placecurseur=len(me.message.text) = 6
                  for i =0 to 5
                        sendkeys (chr(32))
                        doevents
                  next
                  me.message.selstart = placecurseur
                  exit sub
      end if
      

le probleme est que le curseur se retrouve au debut (selstart = 0)

merci de votre aide

jrivet · Accepted Answer

Re,

Si tu veux faire une "Vraie Simulation" remets le KeyCode &#224; 0 a la fin de la proc&#233;dure comme ca tu ne passeras pas au controle suivant meme si ils ont la propri&#233;t&#233; TabStop = True.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Salut,

me.message.setfocus : (si l'&#233;v&#233;nement KeyDown se d&#233;clanche, c'est que la zone de texte a d&#233;j&#224; le focus et &#224; moins que tu es du texte dans l'&#233;v&#233;nement GotFocus, cette ligne ne sert &#224; rien.
placecurseur=len(me.message.text) = 6 te donne une valeur de type Boolean (est ce vraiment ce que tu cherche &#224; faire?)

Si tu veux que le curseur se retrouve a la fin pourquoi ne pas faire simplement 
Me.Message.SelStart = Len(Me.Message.Text)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

econs · Answer

Salut,

Trop compliqu&#233; ce que tu fais.

Remplaces plut&#244;t ton code par ceci pour ins&#233;rer des tabulations (qui sont en fait des s&#233;ries de 6 espaces pour toi) :



Dim placecurseur As Long, i As Long

indice = Me.message.SelStart

If KeyCode = 9 Then

     Me.message.Text = Left$(Me.message.Text, indice) & Space$(6) & Mid$(Me.message.Text, indice)

     Me.message.SelStart = indice + 6

End If


Manu

econs · Answer

P'tite note :

Mon code fonctionne, que tu places la tabulation au d&#233;but, au milieu ou &#224; la fin de ton texte.

Manu

jrivet · Answer

Salut,

A ok c est ca qu il voulait faire.

J ajouterai alors Me.Message.Text Left$(Me.Message.Text, Indice) & Space$(6) & Mid$(Me.Message.Text, Indice  + 1 ) 'Car si indice  0 ca pete
Me.Message.SelStart = Indice + 6

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

econs · Answer

Ouep, si tu veux ins&#233;rer des
tabulations dans une textbox, ben ... en appuyant sur tab, tu perds le
focus. Du coup, faut bidouiller un peu.



OK pour le "indice+1", mais uniquement si indice=0, dans les autres cas, pas de +1
J'avais pas test&#233; mon truc ... 


Manu

sebtralalaetph · Answer

ok merci mais au final, tout le texte est selectionn&#233;, ca viens de quoi?

sebtralalaetph · Answer

je crois que l'erreur viens du fait que la foncion space$(6) ne me cree pas les 6 espaces

econs · Answer

Ce n'est pas mon code qui s&#233;lectionne la totalit&#233; du texte en tous cas ...

Dans quoi l'as-tu inclus ?


Manu

sebtralalaetph · Answer

j'ai mis le code dansla propriete keyup.
par contre j'ai definit la zone de texte en tant que multiligne.

sebtralalaetph · Answer

exuse moi, le code est dans le keydown

econs · Answer

Il n'y a aucune raison qu'il s&#233;lectionne tout le texte puisque je n'ai pas d&#233;fini de SelLength.


Manu

sebtralalaetph · Answer

je sais pas ce qui se passe mais j'ai efface et recommence ma procedure et a present, le fait d'appuyer sur tab fait bien executer la tabulation mais ensuite, le controle suivant est selectionne et je n'arrive pas a mettre le focus sur me.message.
il n'y a pas un moyen de bloquer l'action premiere de la touche tab une fois qu'elle est lanc&#233;e?

sebtralalaetph · Answer

j'ai identifie un probleme, si ca peux vous aider, quand j'interdis l'arret tabulation sur les autres controles, le code selectionne tout le texte de me.message.
si je n'interdit pas l'arret tabulation, le fait d'appuyer sur tab selectionne le controle suivant apres avoir cree les espaces

sebtralalaetph · Answer

ok c'est parfait ca marche, merci infiniement... je vais pouvoir avancer. bonne journ&#233;e et merci encore.

Tabulation zone de texte

15 réponses

Discussions similaires