Connaitre la colonne courante d'un textbox, cad le nombre de caractere entre le bord gauche et le curseur
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 464 fois - Téléchargée 37 fois
Contenu du snippet
Le titre dit tout. Mais si vous ne savez pas de quoi je parle regardez donc la capture. Inspiré du code de OrionLG
Ben voila ce n'est pas grandiose mais ça pourrait vous aider. En fait je me suis inspiré du code de OrionLG qui détectait les lignes. Donc si vous trouvez un truc plus rapide faites-le moi savoir !
Source / Exemple :
'Afficher le numero de colonne où est le curseur dans Text1
Dim NColonne As Integer
Dim i As Integer
NColonne = 1
'Le problème c'est qu'il fait tout le TextBox jusqu'au curseur et que
'dès qu'il 'voit un passage à la ligne il revient à 0. Imaginez qu'il y en ait
'200 et ce code est bon pour la poubelle
For i = 1 To Text1.SelStart 'Il part du début du textbox et va jusqu'au curseur
NColonne = NColonne + 1 'à chaque caractère il fait plus 1 puisque
'1 caractère = 1 colonne
If Mid(Text1.Text, i, 1) = Chr(10) Then NColonne = 1 'Mais si il passe à
'la ligne alors il revient à 0
Next
Conclusion :
Ben voila ce n'est pas grandiose mais ça pourrait vous aider. En fait je me suis inspiré du code de OrionLG qui détectait les lignes. Donc si vous trouvez un truc plus rapide faites-le moi savoir !
A voir également
- Connaitre la colonne courante d'un textbox, cad le nombre de caractere entre le bord gauche et le curseur
- Améliorer les textbox limités en nombre de caractères - Codes sources - Visual Basic / VB.NET (Texte)
- N° de ligne courante dans un textbox - Codes sources - Visual Basic / VB.NET (Formulaire)
- Comment formater le nombre de caractères d'un colonne dans un control gridview - Codes sources - ASP / ASP.NET (Formulaires)
- Limiter nombre de caractéres sur une ligne dans un textbox ✓ - Forum - Visual Basic 6
- Récupérer le nombre de caractères saisis dans un textbox et l'afficher dans un a ✓ - Forum - Visual Basic 6
- Messages postés
-
48
- Date d'inscription
- mardi 3 avril 2007
- Statut
- Membre
- Dernière intervention
- 11 juin 2007
1je n'ai pas besoin spécifiquement de cette fonction, mais elle va me permettre de faire la fonction dont j'ai besoin en me relaiant sur celle ci.
je vais te mettre 9/10 (histoire de pas mettre 10)
Je n'ai pas très bien compris ta fonction, mais essais de lui faire aller jusqu'au premier saut de ligne. Et si tu arrive au début du fichier tu définit la colone comme 1 !
J'espère que ça pourra t'aider !
@+
Dim Colonne As Integer
Colonne = TextEdit.SelStart - (InStrRev(TextEdit.Text, vbCrLf, TextEdit.SelStart, vbTextCompare))
A la 1ère ligne, la 1ère colonne est 0 et aux autres elle est 1. Moi j'aimerais l'avoir tout le temps en 1.
J'espère que vous me comprenez.
JE pense que si tu part de selstart et que tu remonte jusqu'au dernier saut de ligne, c'est beaucoup plus rapide !
@+
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.