Séléction de droite a gauche [Résolu]
Polack77
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
A voir également:
- Séléction de droite a gauche
- Formater un paragraphe entre deux marges (droite et gauche). - Codes sources - Visual Basic / VB.NET (Texte)
- Fonction droite et gauche avec ansistring - Codes sources - C / C++ / C++.NET (.Net)
- Icone dans barre de taches avec gestion double clic droit ou gauche - Codes sources - C / C++ / C++.NET (Système)
- Macro de recherche de droite a gauche ✓ - Forum - VB.NET
- Bloquer le bouton droite et gauche de la souris ! ✓ - Forum - Visual Basic 6
20/94 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Ben ...
Plus facile (je m'en veux de ne pas y avoir immédiatement pensé) que prévu, ce petit rajout protectionniste (pas toucher aux prés carrés, hein). ===>>
Voilà donc l'horloge ===>>
J'espère ne rien avoir oublié (quaucun cas particulier ne m'ait échappé).
En sélection , tant au clavier qu'à la souris :
- de gauche à droite : si on arrive au "pré", l'englobe et on peut continuer vers la droite
(si démarrage dans le "pré", englobe celui-ci et on peut continuer vers la droite
- de droite à gauche : si on atteint la fin du pré, l'englobe et on peut continuer vers la gauche
(si démarrage dans le "pré", englobe celui-ci depuis son début et on peut continuer vers la gauche)
en modification : on peut modifier à sa guise tout ce qui se trouve avant ou après le "pré". On ne peut modifier le pré lui-même
A toi.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Plus facile (je m'en veux de ne pas y avoir immédiatement pensé) que prévu, ce petit rajout protectionniste (pas toucher aux prés carrés, hein). ===>>
Voilà donc l'horloge ===>>
Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private mode As Byte
Private chaine As String, ou As Integer
Private ancx As Long, sens As Integer, pa As POINTAPI
Private Sub Form_Load()
chaine = "34567"
RichTextBox1.Text = "aaaaa34567fffccc"
mode = 0
End Sub
Private Sub RichTextBox1_Change()
Static pre As String
If RichTextBox1.Text Like "*" & chaine & "*" Then pre RichTextBox1.Text Else RichTextBox1.Text pre
End Sub
'LA SOURIS
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
ancx = x
End Sub
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button 1 Then ancx x
End Sub
Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
Dim pos As Integer
mode = 1
pos = InStr(RichTextBox1.Text, chaine)
If x < ancx Then sens -1 Else sens 1
If RichTextBox1.SelLength <= 1 And RichTextBox1.SelStart >= pos - 1 And RichTextBox1.SelStart <= pos + Len(chaine) - 1 Then
If sens = 1 Then
RichTextBox1.SelStart = pos - 1
DoEvents
GetCursorPos pa
RichTextBox1.SelLength = Len(chaine)
SetCursorPos calculelongueur(Left(RichTextBox1.Text, pos + Len(chaine) + 1)) + _
ScaleX(RichTextBox1.Left, Me.ScaleMode, vbPixels) + ScaleX(Me.Left, vbTwips, vbPixels), pa.y
Exit Sub
End If
If sens = -1 And RichTextBox1.SelLength < 1 Then
RichTextBox1.SelStart = pos + Len(chaine) - 1
SendKeys "{RIGHT}"
SetCursorPos calculelongueur(Left(RichTextBox1.Text, pos)) + _
ScaleX(RichTextBox1.Left, Me.ScaleMode, vbPixels) + ScaleX(Me.Left, vbTwips, vbPixels), pa.y
Exit Sub
End If
End If
mode = 1
If x < ancx Then sens -1 Else sens 1
avancons RichTextBox1, chaine, 1
End If
End Sub
'LE CLAVIER
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift And Not KeyCode = 16 Then
If KeyCode 37 And RichTextBox1.SelLength 0 Then sens = -1
If KeyCode 39 And RichTextBox1.SelLength 0 Then sens = 1
If RichTextBox1.SelLength 0 And sens -1 Then ou = RichTextBox1.SelStart
End If
End Sub
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift <> 1 Then Exit Sub
If mode = 0 Then
Dim pos As Integer, i As Integer
pos = InStr(RichTextBox1.Text, chaine)
If RichTextBox1.SelStart >= pos - 1 And RichTextBox1.SelStart < pos + Len(chaine) - 2 Then
If sens = 1 And RichTextBox1.SelStart >= pos - 0 Then
RichTextBox1.SelStart = pos - 1
SendKeys "{RIGHT}"
Else
If sens = -1 And RichTextBox1.SelLength < 2 Then
RichTextBox1.SelStart = pos + Len(chaine) - 1
SendKeys "{LEFT}"
Exit Sub
End If
End If
End If
End If
mode = 0
avancons RichTextBox1, chaine, 1
End Sub
Private Sub avancons(RTB As RichTextBox, chaine As String, maj As Integer)
Dim toto As String, fofo As Integer, i As Integer
Static pos As Integer
pos = InStr(RTB.Text, chaine)
Select Case sens
Case 1
If mode = 0 Then
If RTB.SelStart + RTB.SelLength = pos Then simule_cle "RIGHT", Len(chaine) - 1
End If
If mode = 1 Then
If RTB.SelStart + RTB.SelLength = pos Then
GetCursorPos pa
fofo = calculelongueur(Left(RTB.Text, pos + Len(chaine))) + ScaleX(RTB.Left, Me.ScaleMode, vbPixels) + _
ScaleX(Me.Left, vbTwips, vbPixels)
SetCursorPos fofo, pa.y
End If
End If
Case -1
If mode = 0 Then
If RTB.SelStart <> ou Then
If RTB.SelStart = pos + Len(chaine) - 2 Then simule_cle "LEFT", Len(chaine) - 1
Else
If RTB.SelStart - RTB.SelLength = pos + Len(chaine) - 2 Then
mode = 99
simule_cle "LEFT", Len(chaine) - 1
mode = 0
End If
End If
End If
If mode = 1 Then
On Error Resume Next
toto = Mid(RTB.Text, RTB.SelStart - Len(chaine) + 2, Len(chaine))
On Error GoTo 0
If toto = chaine Then
GetCursorPos pa
fofo = calculelongueur(Left(RTB.Text, pos - 1)) + ScaleX(Me.Left, vbTwips, vbPixels) + _
ScaleX(RTB.Left, Me.ScaleMode, vbPixels)
SetCursorPos fofo, pa.y
End If
End If
End Select
End Sub
Private Function calculelongueur(ByVal ch As String) As Long
If ch = "" Then Exit Function
With Me.Font
.Name = RichTextBox1.Font.Name
.Size = RichTextBox1.Font.Size
.Bold = RichTextBox1.Font.Bold
End With
calculelongueur = TextWidth(ch)
calculelongueur = ScaleX(calculelongueur, Me.ScaleMode, vbPixels)
End Function
Private Sub simule_cle(cle As String, combien As Integer)
Dim i As Integer
For i = 1 To combien
SendKeys "{" & cle & "}"
Next
End Sub
J'espère ne rien avoir oublié (quaucun cas particulier ne m'ait échappé).
En sélection , tant au clavier qu'à la souris :
- de gauche à droite : si on arrive au "pré", l'englobe et on peut continuer vers la droite
(si démarrage dans le "pré", englobe celui-ci et on peut continuer vers la droite
- de droite à gauche : si on atteint la fin du pré, l'englobe et on peut continuer vers la gauche
(si démarrage dans le "pré", englobe celui-ci depuis son début et on peut continuer vers la gauche)
en modification : on peut modifier à sa guise tout ce qui se trouve avant ou après le "pré". On ne peut modifier le pré lui-même
A toi.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
tout cela me parait bien embrouillé et me donne le vertige.
Mais si j'ai bien compris : il suffit de relever dans une variable le selstart de départ et y revenir pour étendre la sélection.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
tout cela me parait bien embrouillé et me donne le vertige.
Mais si j'ai bien compris : il suffit de relever dans une variable le selstart de départ et y revenir pour étendre la sélection.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
Arf il me semblais aussi que je n'étais pas très claire :/
Le plus simple est que je "montre" mon problème.
Dans un form mettre un RichTextBox (nommé RichTextBox1)
Ajouter la fonction :
Lancer l’exécution et ajouter dans le RichTextBox le texte :
Voila une phrase qui illustrera ce que je voulais dire avec mon histoire de "34567" vue que c'était TRÈS mal expliqué dans mon message précédant ^^.
Faire joujou avec les sélections.
Quand on fait des sélection de gauche a droite pas de problème
Quand on fait des sélection de droite a gauche ça merde complétement
Ma question est donc : Comment faire pour que ça ne merde pas ^^
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
Le plus simple est que je "montre" mon problème.
Dans un form mettre un RichTextBox (nommé RichTextBox1)
Ajouter la fonction :
Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
Dim PositionDebutSelection As Integer
Dim PositionFinSelection As Integer
'Permet de détécter si le text a changer depuis l'appel précédant (évite le problème d'enchainement d'événement, SelectionChanged appeler av TextChanged)
PositionDebutSelection = RichTextBox1.SelectionStart
PositionFinSelection = RichTextBox1.SelectionStart + RichTextBox1.SelectionLength
If RichTextBox1.Text.Contains("34567") Then
Dim PositionDebut34567 As Integer
Dim PositionFin34567 As Integer
PositionDebut34567 = RichTextBox1.Text.IndexOf("34567")
PositionFin34567 = PositionDebut34567 + "34567".Length
If PositionDebutSelection > PositionDebut34567 And PositionDebutSelection < PositionFin34567 Then
PositionDebutSelection = PositionDebut34567
End If
If PositionFinSelection > PositionDebut34567 And PositionFinSelection < PositionFin34567 Then
PositionFinSelection = PositionFin34567
End If
End If
RichTextBox1.SelectionStart = PositionDebutSelection
RichTextBox1.SelectionLength = PositionFinSelection - PositionDebutSelection
End Sub
Lancer l’exécution et ajouter dans le RichTextBox le texte :
Voila une phrase qui illustrera ce que je voulais dire avec mon histoire de "34567" vue que c'était TRÈS mal expliqué dans mon message précédant ^^.
Faire joujou avec les sélections.
Quand on fait des sélection de gauche a droite pas de problème
Quand on fait des sélection de droite a gauche ça merde complétement
Ma question est donc : Comment faire pour que ça ne merde pas ^^
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
Le problème viens de la position du curseur, qui passe de droite a gauche, ça j'ai bien compris.
Mais je n'est pas trouvé comment placer mon curseur a droite d'une sélection (ni même de tester si c'est le cas, peut être que c'est impossible ça me ferais bien chi__ ça)
En tout cas merci de intéresser à mon problème :)
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
Mais je n'est pas trouvé comment placer mon curseur a droite d'une sélection (ni même de tester si c'est le cas, peut être que c'est impossible ça me ferais bien chi__ ça)
En tout cas merci de intéresser à mon problème :)
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
Heeee oups j'ai oublier de retirer une ligne de commentaire dans me fonction
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
Tu a compris mon problème du coup ?
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Il est pour moi difficile de te suivre rien qu'en analysant ton bout de code (je n'ai pas VB.Net !)
Il me semble toutefois que je travaillerais à ta place très différemment, à commencer par l'utilisation d'une variable générale (appelons-la ou) pour relever le selectionStart. Il peut être relevé dans l'évènement MouseUp de ta RTB
Et je travaillerais également avec le texte sélectionné (je suppose que c'est SelectionText sous VB.Net). Je regarderais ensuite la position de ce texte (indexof, si je comprends bien) dans la RTB et saurait si devant, derrière ou dedans la chaine "341567" ==>> et prendrais mes décisions
Ma démarche, in fine, serait, comme tu le vois, totalement différente de la tienne, mais elle devrait être la bonne
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Il me semble toutefois que je travaillerais à ta place très différemment, à commencer par l'utilisation d'une variable générale (appelons-la ou) pour relever le selectionStart. Il peut être relevé dans l'évènement MouseUp de ta RTB
ou = RichTextBox1.SelectionStart
Et je travaillerais également avec le texte sélectionné (je suppose que c'est SelectionText sous VB.Net). Je regarderais ensuite la position de ce texte (indexof, si je comprends bien) dans la RTB et saurait si devant, derrière ou dedans la chaine "341567" ==>> et prendrais mes décisions
Ma démarche, in fine, serait, comme tu le vois, totalement différente de la tienne, mais elle devrait être la bonne
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
En y re-réfléchissant : ou (la variable dont je t'ai déjà parlé) et selectionLength (je crois que c'est le terme VB.Net) devraient seuls suffire à ta détermination
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Ceci étant dit :
Si je me sens à peu près capable, bien que n'étant pas VB.Netiste, d'analyser et comprendre ce que tu écris en VB.Net ===>> tu devrais être capable, bien que non "VB6iste", d'analyser et comprendre ce code VB6 que je viens d'écrire (et fait ce que tu veux) :
A toi, donc, de faire le même effort que le mien ===>> Transpose donc
Attention a la position des .
deja = true
Elle est TRES importante dans ce code
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Si je me sens à peu près capable, bien que n'étant pas VB.Netiste, d'analyser et comprendre ce que tu écris en VB.Net ===>> tu devrais être capable, bien que non "VB6iste", d'analyser et comprendre ce code VB6 que je viens d'écrire (et fait ce que tu veux) :
Private ou As Integer
Private Sub Form_Load()
RichTextBox1.Text = "aaaaa34567fff"
End Sub
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
RichTextBox1.SelLength = 0
End Sub
Private Sub RichTextBox1_Mouseup(Button As Integer, Shift As Integer, x As Single, y As Single)
ou = RichTextBox1.SelStart
End Sub
Private Sub RichTextBox1_SelChange()
Dim chaine As String, pos As Integer
Static deja As Boolean
If deja Then
deja = False
Exit Sub
End If
chaine = "34567"
pos = InStr(RichTextBox1.Text, chaine)
Select Case ou
Case Is <= pos
deja = True
RichTextBox1.SelLength = Len(Mid(RichTextBox1.Text, ou, pos + Len(chaine) - ou - 1))
Case Else
deja = True
RichTextBox1.SelStart = pos - 1
deja = True
RichTextBox1.SelLength = Abs(RichTextBox1.SelLength - pos)
End Select
End Sub
A toi, donc, de faire le même effort que le mien ===>> Transpose donc
Attention a la position des .
deja = true
Elle est TRES importante dans ce code
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Salut tout le monde,
Alors moi... soit j'ai rien compris, soit je trouve la solution trop facile...
(ça ne m'étonnerais pas que je n'ai rien compris, il est 22h00 chez moi...)
Le fait de réfléchir de droite à gauche n'a aucun rapport, le résultat est le même.
Exemple avec un textebox:
Cordialement
CF2i - Guadeloupe
Ingénierie Informatique
Alors moi... soit j'ai rien compris, soit je trouve la solution trop facile...
(ça ne m'étonnerais pas que je n'ai rien compris, il est 22h00 chez moi...)
Le fait de réfléchir de droite à gauche n'a aucun rapport, le résultat est le même.
Exemple avec un textebox:
TextBox1.Text = "1234567890123"
Dim St As String = "56789"
Dim i As Integer = InStr(TextBox1.Text, St) - 1
TextBox1.Select(i, St.Length)
Cordialement
CF2i - Guadeloupe
Ingénierie Informatique
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour, ShayW
merci d'avoir signalé ce bug si on se plaçait au début
Correction (du selchange, donc) :
Bonjour, acive,
C'est la 1ère hypothèse, mais (à ta décharge) les explications sont un peu "embrouillées"
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
merci d'avoir signalé ce bug si on se plaçait au début
Correction (du selchange, donc) :
Private Sub RichTextBox1_SelChange()
Dim chaine As String, pos As Integer
Static deja As Boolean
If deja Then
deja = False
Exit Sub
End If
chaine = "34567"
pos = InStr(RichTextBox1.Text, chaine)
deja = True
Select Case ou
Case Is = 0
RichTextBox1.SelLength = Len(Mid(RichTextBox1.Text, 1, pos + Len(chaine)))
deja = True
Case Is <= pos
RichTextBox1.SelLength = Len(Mid(RichTextBox1.Text, ou, pos + Len(chaine) - ou - 1))
Case Else
Dim inv As Integer
inv = ou
RichTextBox1.SelStart = pos - 1
deja = True
RichTextBox1.SelLength = Abs(ou - pos) + Len(chaine)
End Select
End Sub
Bonjour, acive,
Alors moi... soit j'ai rien compris, soit je trouve la solution trop facile...
C'est la 1ère hypothèse, mais (à ta décharge) les explications sont un peu "embrouillées"
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
A Polack77 ===>>
1) Les messages intervenus entre temps ne doivent pas te faire oublier :
ni mes commentaires (code à transposer) de mon message d'hier à 20h45, ni les lignes de code qui y figurent et qui précèdent celui de l'évènement sel Change.
2) il se peut que ce code ne réponde pas exactement à ce que tu veux, car tes explications ont une autre interprétation possible. Sache qu'en cas de "l'autre interprétation possible", j'ai déjà également fait ce code-là (-pour cette autre interprétation).
A toi de dire
3) lorsque tout sera OK et parfaitement clair, je me permettrai de te "montrer" comment tu aurais pu et du exposer ta question (la rédaction, en quelques mots très simples) pour qu'elle soit à la fois claire et précise.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
1) Les messages intervenus entre temps ne doivent pas te faire oublier :
ni mes commentaires (code à transposer) de mon message d'hier à 20h45, ni les lignes de code qui y figurent et qui précèdent celui de l'évènement sel Change.
2) il se peut que ce code ne réponde pas exactement à ce que tu veux, car tes explications ont une autre interprétation possible. Sache qu'en cas de "l'autre interprétation possible", j'ai déjà également fait ce code-là (-pour cette autre interprétation).
A toi de dire
3) lorsque tout sera OK et parfaitement clair, je me permettrai de te "montrer" comment tu aurais pu et du exposer ta question (la rédaction, en quelques mots très simples) pour qu'elle soit à la fois claire et précise.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
Bonjour,
Hé bè ma question ameute les foules déjà MERCI BEAUCOUP pour le temps consacrer a mon problème
Une fois ce message poster, vais analyser/transposer/tester ton code ucfoutu
Voir le PS pour comprendre pourquoi je fait cette interface
Voir le PS2 pour une explication différente, sans doute plus claire (enfin j’espère ) de mon problème.
Mon problème est uniquement a l'utilisation de mon interface.
Le code que j'ai poster permet de forcer la sélection de certains "mot", je les nommerais "balise" maintenant (pour être en cohérence avec mon PS) dans un texte
ucfoutu :
En faite, dans mon code "réel" je travail avec une collection d'objet (construite dans l'événement "TextChanged") qui me donne les positions de départ et la longueur de chacune des balises. J'ai modifié mon code (un peut trop rapidement sans doute, grosse fatigue hier) pour qu'il "entre" dans une seul fonction.
Je ne me suis pas intéressé a ces événements car avec les touches "shift" et les flèches on peut aussi sélectionner du texte. Mais ça auras peut être un intérêt de chercher aussi dans ce sens ^^
PS :
Je cherche a développer une interface permettant de personnaliser des messages d'erreurs un journal. Plusieurs balises différentes existe ("chemin du fichier en erreur", "numéro de ligne dans la quelle se trouve l'erreur", ...).
Je ne veux donc pas que l'utilisateur de cette interface puisse modifier le texte de mes balises (si non toute ma gestion ne fonctionneras plus)
L’objectif étant de soit de simplifier la vie des développeurs qui voudrais automatiser la lecture de ces journaux, soit des utilisateurs qui lirons alors des messages plus verbeux (et donc plus agréable).
PS2 :
J'ai déjà tenter d'exprimer mon problème avec des "mots" et on ne peut pas dire que ça soit une réussite
Je vais donc être un peut moins verbeux (aller verbeux sera le mot du jour, pardon je m'égare là ) et un peut plus fonctionnelle.
Mon but est d'expliquer comme se comporte mon code au fur et a mesure que le temps passe.
Je vais reporter les polices pour que comme dans mon interface les balises soit facilement identifiable. Je ne vais utiliser qu'une balise (c'est suffisant pour comprendre mon problème).
Le caractère "|" me servira de curseur.
Le texte souligner et écrit en bleu sera le texte sélectionné (sauf erreur de ma part je ne peut pas surligné ici).
Je ne montre ici que le contenu de mon richtextbox.
L'écran est afficher, un message d'erreur (voir PS) pré-formater est dans mon richtextbox.
Ici pas de problème :
Aucune sélection :
Erreur de lecture du fichier "<Nom fichier/>". Cette erreur...
Mon utilisateur :
- place son curseur :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- appuie sur shift puis flèche de droite :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- Mon code se lance et pouf sélectionne toute la balise :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
Ici problème :
Aucune sélection :
Erreur de lecture du fichier "<Nom fichier/>". Cette erreur...
Mon utilisateur :
- place son curseur :
Erreur de lecture du fichier "<Nom fichier/>|". Cette erreur...
- appuie sur shift puis flèche de gauche :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- Mon code se lance, pouf sélectionne toute la balise, ET DÉPLACE MON CURSEUR LA SALETÉ :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- Donc si mon utilisateur continu d’appuyer sur shift et refait flèche de gauche, ça dé-sélectionne la balise . Quand je "sélectionne" par code du texte (à ma connaissance) je n'est que SelectionStart (qui place le curseur) et SelectionLenth (qui sélectionne un certain nombre de caractère a droite du curseur) à ma disposition.
J’espère avoir été plus claire sur mon problème.
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
Hé bè ma question ameute les foules déjà MERCI BEAUCOUP pour le temps consacrer a mon problème
Une fois ce message poster, vais analyser/transposer/tester ton code ucfoutu
Voir le PS pour comprendre pourquoi je fait cette interface
Voir le PS2 pour une explication différente, sans doute plus claire (enfin j’espère ) de mon problème.
Mon problème est uniquement a l'utilisation de mon interface.
Le code que j'ai poster permet de forcer la sélection de certains "mot", je les nommerais "balise" maintenant (pour être en cohérence avec mon PS) dans un texte
ucfoutu :
à commencer par l'utilisation d'une variable générale
En faite, dans mon code "réel" je travail avec une collection d'objet (construite dans l'événement "TextChanged") qui me donne les positions de départ et la longueur de chacune des balises. J'ai modifié mon code (un peut trop rapidement sans doute, grosse fatigue hier) pour qu'il "entre" dans une seul fonction.
[...]MouseDown[...]
[...]MouseUp[...]
Je ne me suis pas intéressé a ces événements car avec les touches "shift" et les flèches on peut aussi sélectionner du texte. Mais ça auras peut être un intérêt de chercher aussi dans ce sens ^^
PS :
Je cherche a développer une interface permettant de personnaliser des messages d'erreurs un journal. Plusieurs balises différentes existe ("chemin du fichier en erreur", "numéro de ligne dans la quelle se trouve l'erreur", ...).
Je ne veux donc pas que l'utilisateur de cette interface puisse modifier le texte de mes balises (si non toute ma gestion ne fonctionneras plus)
L’objectif étant de soit de simplifier la vie des développeurs qui voudrais automatiser la lecture de ces journaux, soit des utilisateurs qui lirons alors des messages plus verbeux (et donc plus agréable).
PS2 :
J'ai déjà tenter d'exprimer mon problème avec des "mots" et on ne peut pas dire que ça soit une réussite
Je vais donc être un peut moins verbeux (aller verbeux sera le mot du jour, pardon je m'égare là ) et un peut plus fonctionnelle.
Mon but est d'expliquer comme se comporte mon code au fur et a mesure que le temps passe.
Je vais reporter les polices pour que comme dans mon interface les balises soit facilement identifiable. Je ne vais utiliser qu'une balise (c'est suffisant pour comprendre mon problème).
Le caractère "|" me servira de curseur.
Le texte souligner et écrit en bleu sera le texte sélectionné (sauf erreur de ma part je ne peut pas surligné ici).
Je ne montre ici que le contenu de mon richtextbox.
L'écran est afficher, un message d'erreur (voir PS) pré-formater est dans mon richtextbox.
Ici pas de problème :
Aucune sélection :
Erreur de lecture du fichier "<Nom fichier/>". Cette erreur...
Mon utilisateur :
- place son curseur :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- appuie sur shift puis flèche de droite :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- Mon code se lance et pouf sélectionne toute la balise :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
Ici problème :
Aucune sélection :
Erreur de lecture du fichier "<Nom fichier/>". Cette erreur...
Mon utilisateur :
- place son curseur :
Erreur de lecture du fichier "<Nom fichier/>|". Cette erreur...
- appuie sur shift puis flèche de gauche :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- Mon code se lance, pouf sélectionne toute la balise, ET DÉPLACE MON CURSEUR LA SALETÉ :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
- Donc si mon utilisateur continu d’appuyer sur shift et refait flèche de gauche, ça dé-sélectionne la balise . Quand je "sélectionne" par code du texte (à ma connaissance) je n'est que SelectionStart (qui place le curseur) et SelectionLenth (qui sélectionne un certain nombre de caractère a droite du curseur) à ma disposition.
J’espère avoir été plus claire sur mon problème.
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Cela devient de plus en plus embrouillé et difficile à suivre (nous ne sommes pas dans ton cerveau)
Répond pour l'instant par oui ou par non à cette question, que je te pose à force d'essayer de décortiquer ton "flot" :
Ton problème technique (sans s'occuper de sa finalité "profonde") pourrait-il s'exprimer ainsi :
Car si oui (l'interprétation "autre possible") j'ai également un code tout prêt pour toi.
Tout le reste (pourquoi tu le fais, etc...) ne regarde que toi.
J'ajoute que mon code ne traite pour l'instant qu'avec utilisation de la souris.
J'y ajouterai au besoin, après confirmation de ce que cela te va, l'utilisation des touches !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Répond pour l'instant par oui ou par non à cette question, que je te pose à force d'essayer de décortiquer ton "flot" :
Ton problème technique (sans s'occuper de sa finalité "profonde") pourrait-il s'exprimer ainsi :
Dans une richtexbox composée d'une chaine A, d'une chaine X et d'une chaine B (dans cet ordre), je souhaite que toute sélection qui inclurait un ou plusieurs
caractères de la chaîne X soit étendue pour englober la totalité de la chaîne X.
Et je souhaite que ce résultat soit obtenu quel que soit le sens (de gauche à droite ou de droite à gauche) de la sélection faite.
Car si oui (l'interprétation "autre possible") j'ai également un code tout prêt pour toi.
Tout le reste (pourquoi tu le fais, etc...) ne regarde que toi.
J'ajoute que mon code ne traite pour l'instant qu'avec utilisation de la souris.
J'y ajouterai au besoin, après confirmation de ce que cela te va, l'utilisation des touches !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
Dans une richtexbox composée d'une chaine A, d'une chaine X et d'une chaine B (dans cet ordre), je souhaite que toute sélection qui inclurait un ou plusieurs
caractères de la chaîne X soit étendue pour englober la totalité de la chaîne X.
Et je souhaite que ce résultat soit obtenu quel que soit le sens (de gauche à droite ou de droite à gauche) de la sélection faite.
Oui
Le problème est que je pense que pour comprendre mon erreur il faut "voir" l'interface fonctionner...
AAAAAARRRRRRRRFFFFFFFFFF forcément que tu ne comprend pas je me suis loupé dans une ligne .....
Ici problème :
Aucune sélection :
Erreur de lecture du fichier "<Nom fichier/>". Cette erreur...
Mon utilisateur :
- place son curseur :
Erreur de lecture du fichier "<Nom fichier/>|". Cette erreur...
- appuie sur shift puis flèche de gauche :
Erreur de lecture du fichier "<Nom fichier/>|". Cette erreur...
- Mon code se lance, pouf sélectionne toute la balise, ET DÉPLACE MON CURSEUR LA SALETÉ :
Erreur de lecture du fichier "|<Nom fichier/>". Cette erreur...
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
- Messages postés
- 1100
- Date d'inscription
- mercredi 22 mars 2006
- Dernière intervention
- 15 avril 2018
Voila une bonne idée je pense
http://www.youtube.com/watch?v=wrRTJ3y7-nM&feature=youtu.be
Mon problème en image
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
http://www.youtube.com/watch?v=wrRTJ3y7-nM&feature=youtu.be
Mon problème en image
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.