Petite question à propos des RichTextBox.

Version imprimable

Voir 40 message(s) de cette discussion en une page

C'est bien comme idée tout ça.

Pour la deuxième boucle, tu peux directements utiliser le fin de ligne dans la boucle :
Code:

1 2 3 4 5 6 While charindex2 < findeligne AndAlso RichTextBox1.Text(charindex2) <> " " charindex2 += 1 length += 1 End While

12/03/2015, 17h19
Jeano81
ah oui merci :) mais je n'arrives pas à trouver comment faire pour trouver ma fin de ligne :/. avec un
Code:

1 2 3 while richtextbox1.text(findeligne) <> "" findeligne +=1 end while
ça ne fonctionne pas... ce serait trop beau xD

J'avance : j'en suis là a présent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Private Sub RichTextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles RichTextBox1.MouseMove
        curseur_x_y = e.Location
        charindex = RichTextBox1.GetCharIndexFromPosition(curseur_x_y)
        line = RichTextBox1.GetLineFromCharIndex(charindex)
        finligne = RichTextBox1.Lines(line).Length
        debutligne = finligne - finligne
 
        While charindex > debutligne AndAlso RichTextBox1.Text(charindex) <> " "
            charindex -= 1
        End While
 
        If charindex <> debutligne Then
            charindex += 1
        End If
 
        charindex2 = charindex
        Dim length As Integer = 0
        While charindex2 < finligne AndAlso RichTextBox1.Text(charindex2) <> " "
            charindex2 += 1
            length += 1
        End While
 
        RichTextBox1.Select(charindex, length)
 
 
    End Sub

je calcule une façon de calculer l'index de début de chaque lignes !

J'avance petit à petit :
J'en suis à ce code qui fonctionne presque : du moins pour les 2 premières lignes....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub RichTextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles RichTextBox1.MouseMove
        curseur_x_y = e.Location
        charindex = RichTextBox1.GetCharIndexFromPosition(curseur_x_y)
        line = RichTextBox1.GetLineFromCharIndex(charindex)
 
        If line <> 0 Then
            debutligne = RichTextBox1.Lines(line - 1).Length + 1
        Else
            debutligne = 0
        End If
 
        finligne = RichTextBox1.Lines(line).Length + debutligne
 
 
        While charindex > debutligne AndAlso RichTextBox1.Text(charindex) <> " "
            charindex -= 1
        End While
 
        If charindex <> debutligne Then
            charindex += 1
        End If
 
        charindex2 = charindex
        Dim length As Integer = 0
        While charindex2 < finligne AndAlso RichTextBox1.Text(charindex2) <> " "
            charindex2 += 1
            length += 1
        End While
 
        RichTextBox1.Select(charindex, length)
 
 
    End Sub

Je vais dormir et je reprends tout ça demain quand j'aurais le temps :) !

Ce petit exercice m'amusait alors je me suis pris au jeu et voici ce que j'ai produit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
    Private Sub RichTextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles RichTextBox1.MouseMove
        If RichTextBox1.Lines.Count = 0 Then
            Exit Sub
        End If
        Dim charindex, i, start, _end As Integer
        Dim curseur_x_y As Point = e.Location
        charindex = RichTextBox1.GetCharIndexFromPosition(curseur_x_y)
 
        If RichTextBox1.Text(charindex) = " " Then
            Exit Sub
        End If
 
        Dim line As Integer = RichTextBox1.GetLineFromCharIndex(charindex)
 
        i = charindex
        Dim spaceOrCRLFfound As Boolean = False
        While Not spaceOrCRLFfound
            If i = -1 OrElse RichTextBox1.Text.Count = i OrElse RichTextBox1.Text(i) = " " OrElse RichTextBox1.Text(i) = Chr(10) OrElse RichTextBox1.Text(i) = Chr(13) Then
                spaceOrCRLFfound = True
            Else
                i -= 1
            End If
        End While
        start = i
        spaceOrCRLFfound = False
        i = charindex
        While Not spaceOrCRLFfound
            If i = -1 OrElse RichTextBox1.Text.Count = i OrElse RichTextBox1.Text(i) = " " OrElse RichTextBox1.Text(i) = Chr(10) OrElse RichTextBox1.Text(i) = Chr(13) Then
                spaceOrCRLFfound = True
            Else
                i += 1
            End If
        End While
        _end = i
 
        RichTextBox1.Select(start + 1, _end - start - 1)
    End Sub

On pourrait encore l'enrichir pour ne pas qu'il sélectionne les signes de ponctuation à la fin d'un mot (ça permettrait de gérer le cas où, dans le texte, on aurait deux mots séparés par une ponctuation et sans espace avant ou après la ponctuation).

L'algo peut également surement être amélioré. J'ai fait ça en 5 minutes en partant du code fourni donc c'est pas forcément super propre non plus. C'était juste pour voir si j'y arrivais. Après si ça peut t'aider et que tu décides de l'utiliser, c'est que du bonus ^^.

16/03/2015, 10h36
Jeano81

C'est nickel merci :D

Je publie le code avec le filtrage des caractères et (je ne suis pas sur qu'il le soit mais j'ose quand même le dire...) plus "propre" ^^

Merci beaucoup je suis pas sur d'avoir été capable de le trouver :/.
Je le marque comme résolu !

Et voici le code :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Public Class Form1
    Dim Curseur_x_y As New Point
    Dim Charindex As Integer = 0
    Dim i As Integer = 0
    Dim Ligne As Integer = 0
    Dim Fin_Mot As Integer = 0
    Dim Début_Mot As Integer = 0
    Dim spaceOrCRLFfound As Boolean = False
    Dim Clic As Boolean = False
 
    Private Sub RichTextBox1_Click(sender As Object, e As EventArgs) Handles RichTextBox1.Click
        Clic = True
    End Sub
 
    Private Sub RichTextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles RichTextBox1.MouseMove
 
        If RichTextBox1.Lines.Count = 0 Then 'Si aucune ligne n'est présente dans la richtextbox, alors :'
            Exit Sub 'Sort de la fonctions.'
        End If 'Fin de la condition.'
 
        Curseur_x_y = e.Location 'Curseur_x_y = position actuelle du curseur de la souris.'
 
        Charindex = RichTextBox1.GetCharIndexFromPosition(Curseur_x_y) 'Charindex = position du caractère présent dans la richtextbox, le plus proche du curseur de la souris.'
 
        'Si le curseur de la souris (Charindex), se situe sur un espace, ou si il ce situe sur un retour à la ligne, ou si il ce situe sur un point, ou si il ce situe sur une virgule,'
        If RichTextBox1.Text(Charindex) = " " _
            OrElse RichTextBox1.Text(Charindex) = Chr(10) _
            OrElse RichTextBox1.Text(Charindex) = Chr(46) _
            OrElse RichTextBox1.Text(Charindex) = Chr(44) Then
            Exit Sub 'Sort de la fonctions.'
        End If 'Fin de la condition.'
 
        Ligne = RichTextBox1.GetLineFromCharIndex(Charindex) 'Ligne = numéro de ligne où le curseur de la souris ce situe.'
 
        i = Charindex 'La valeur Charindex (position du caractère présent dans la richtextbox, le plus proche du curseur de la souris) est stockée dans i.'
 
        spaceOrCRLFfound = False
 
        While Not spaceOrCRLFfound
 
            If i = -1 OrElse RichTextBox1.Text.Count = i _
                OrElse RichTextBox1.Text(i) = " " _
                OrElse RichTextBox1.Text(i) = Chr(10) _
                OrElse RichTextBox1.Text(i) = Chr(13) _
                OrElse RichTextBox1.Text(i) = Chr(46) _
                OrElse RichTextBox1.Text(i) = Chr(44) Then
                spaceOrCRLFfound = True
            Else
                i -= 1
            End If
 
        End While
 
        Début_Mot = i
 
        spaceOrCRLFfound = False
 
        i = Charindex
 
        While Not spaceOrCRLFfound
 
            If i = -1 OrElse RichTextBox1.Text.Count = i _
                OrElse RichTextBox1.Text(i) = " " _
                OrElse RichTextBox1.Text(i) = Chr(10) _
                OrElse RichTextBox1.Text(i) = Chr(13) _
                OrElse RichTextBox1.Text(i) = Chr(46) _
                OrElse RichTextBox1.Text(i) = Chr(44) Then
                spaceOrCRLFfound = True
            Else
                i += 1
            End If
 
        End While
 
        Fin_Mot = i
 
        RichTextBox1.Select(Début_Mot + 1, Fin_Mot - Début_Mot - 1)
 
        If Clic Then
            Label1.Text = "Ligne : " & Ligne & ". Mot : " & RichTextBox1.SelectedText
            Clic = False
        End If
 
    End Sub
 
End Class

Voir 40 message(s) de cette discussion en une page