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

Salut,

me.message.setfocus : (si l'événement KeyDown se déclanche, c'est que la zone de texte a déjà le focus et à moins que tu es du texte dans l'événement GotFocus, cette ligne ne sert à rien.
placecurseur=len(me.message.text) = 6 te donne une valeur de type Boolean (est ce vraiment ce que tu cherche à 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éponse Acceptée

Salut,
Trop compliqué ce que tu fais.
Remplaces plutôt ton code par ceci pour insérer des tabulations (qui sont en fait des sé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

P'tite note :
Mon code fonctionne, que tu places la tabulation au début, au milieu ou à la fin de ton texte.


Manu

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éponse Acceptée

Ouep, si tu veux insé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é mon truc ...

Manu

ok merci mais au final, tout le texte est selectionné, ca viens de quoi?

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

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



Manu

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