Bonjour,
Comme le dit le titre de mon post,
Comment selectionner automatiquement, à un seul click, une ligne de texte d'un textbox ?
Ceci parmis plusieurs ligne de texte dans une textbox, un peu comme l'image ci-dessous :
Merci bien !
Bonjour,
Comme le dit le titre de mon post,
Comment selectionner automatiquement, à un seul click, une ligne de texte d'un textbox ?
Ceci parmis plusieurs ligne de texte dans une textbox, un peu comme l'image ci-dessous :
Merci bien !
Les méthodes à employer pour sélectionner une portion de ligne dans un textbox sont SelStart et SelLength.
Vois l'aide en ligne pour la syntaxe
En général, on ne demande de conseils que pour ne pas les suivre ou, si on les a suivis, reprocher à quelqu'un de les avoir donnés
(ALEXANDRE DUMAS)
N'hésitez pas à visiter ma page de contributions
Salut
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.SetFocus Text1.SelStart = 0 'début de la selection Text1.SelLength = Len(Text1.Text) End Sub
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → Ma page perso sur DVP ← ← 👈
Je ne sais pas s'il y a un moyen pour que Visual Basic reconnaisse le premier et le dernier caracatère de la ligne que je clique ?
Pas facile tout ça !!!
Salut
Moi personnellement je préfère sur un double clic
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Option Explicit Private Sub Form_Load() 'Text1.MultiLine = True <--------- à faire en design Text1.Move 60, 60, 1830, 705 Text1.Text = "essais avec une ligne" & vbCrLf & "deux lignes" & vbCrLf & "trois lignes" End Sub Private Sub Text1_DblClick() Dim T As Integer, Deb As Integer, Fin As Integer T = Text1.SelStart 'trouver la position du curseur 'retrouver la fin de ligne Fin = InStr(T, Text1.Text, vbCrLf, vbTextCompare) 'si le contenu du textbox ne se fini pas par un saut de ligne If Fin = 0 Then Fin = Len(Text1.Text) 'retrouver le premier retour de ligne avant la position du curseur Deb = InStrRev(Text1.Text, vbCrLf, T, vbTextCompare) Text1.SelStart = Deb 'placement du curseur en debut de ligne 'selectionne la ligne Text1.SelLength = Fin - Deb End Sub
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → Ma page perso sur DVP ← ← 👈
Je ne suis pas certain qu'il veuille sélectionner sur un CrLf mais sur le simple passage à la ligne suivante, et là bon courage avec un contrôle Text si c'est vraiment ça.
En plus, vu l'icone de la feuille de démo, j'ai vaguement l'impression qu'il n'est pas vraiment question de VB6 mais plutôt de VB.Net.
Pour VB6 : N'oubliez pas d'aller voir la FAQ et les Tutoriels
Vous trouvez une reponse particulierement utile ? Votez pour !
J'ai pris une image qui se rapprochait plus de ce que je cherchais sur le web, mais je travail bien en VB6.
Super c'est exactement ce que je voulais.
Merci ProgElecT !!!
J'ai donc modifié le titre de ton sujet initial car il s'agit là de sélectionner un paragraphe et non pas une ligne au sens exact du terme.
Pour VB6 : N'oubliez pas d'aller voir la FAQ et les Tutoriels
Vous trouvez une reponse particulierement utile ? Votez pour !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager