Bonjour,

je suis en train de faire un peit éditeur (disons de requête SQL ...). pour cela j'ai un textbox et des boutons. quand je clique sur un bouton, cela rajoute du texte dans le textbox.

ensuite quand je donne le focus au textbox, le curseur est à la fin du texte ...

maintenant imaginons un bouton qui marque 2 guillemets et qui met le curseur entre les 2 pour que je rentre le texte au bon endroit ... c'est à dire entre les 2 guillemets

bah moi je l'imagine bien mais j'y arrive pas ...
alors si qq'un sait comment déplacer (par du code VB) le curseur d'écriture dans un TextBox ou un richtextbox ...

merci d'avance !

Guiguimac

Bonsoir

Text1.Text = Chr(34) & Chr(34)
Text1.SelStart = 1



-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
>
> je suis en train de faire un peit éditeur (disons de requête SQL ...). pour cela j'ai un textbox et des boutons. quand je clique sur un bouton, cela rajoute du texte dans le textbox.
>
> ensuite quand je donne le focus au textbox, le curseur est à la fin du texte ...
>
> maintenant imaginons un bouton qui marque 2 guillemets et qui met le curseur entre les 2 pour que je rentre le texte au bon endroit ... c'est à dire entre les 2 guillemets
>
> bah moi je l'imagine bien mais j'y arrive pas ...
> alors si qq'un sait comment déplacer (par du code VB) le curseur d'écriture dans un TextBox ou un richtextbox ...
>
> merci d'avance !
>
> Guiguimac

Un autre exemple :

Option Explicit

Dim Position As Integer
Dim EntreGuillemets As Boolean

Private Sub Command1_Click()
Position = Len(Me.Text1.Text & " " & Chr(34))
Me.Text1.Text = Me.Text1.Text & " " & Chr(34) & Chr(34)
EntreGuillemets = True
End Sub

Private Sub Text1_GotFocus()
If EntreGuillemets Then
EntreGuillemets = False
Me.Text1.SelStart = Position
End If
End Sub


Programmix


-------------------------------
Réponse au message :
-------------------------------

> Bonsoir
>
> Text1.Text = Chr(34) & Chr(34)
> Text1.SelStart = 1
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> >
> > je suis en train de faire un peit éditeur (disons de requête SQL ...). pour cela j'ai un textbox et des boutons. quand je clique sur un bouton, cela rajoute du texte dans le textbox.
> >
> > ensuite quand je donne le focus au textbox, le curseur est à la fin du texte ...
> >
> > maintenant imaginons un bouton qui marque 2 guillemets et qui met le curseur entre les 2 pour que je rentre le texte au bon endroit ... c'est à dire entre les 2 guillemets
> >
> > bah moi je l'imagine bien mais j'y arrive pas ...
> > alors si qq'un sait comment déplacer (par du code VB) le curseur d'écriture dans un TextBox ou un richtextbox ...
> >
> > merci d'avance !
> >
> > Guiguimac
>