Soyez le premier à donner votre avis sur cette source.
Vue 4 569 fois - Téléchargée 339 fois
Private Sub Box1_click() Dim passage As Boolean Dim passage2 As Boolean Dim a as Integer If SelectionCheck Then chaine = Box1.Text a = Box1.SelStart For i = 1 To Len(chaine) If Mid(chaine, i, 1) = Chr(10) Then If a > i Then Box1.SelStart = i passage = True Else If Not passage Then Box1.SelStart = 0 passage = True End If passage2 = True Box1.SelLength = i - Box1.SelStart Exit For End If End If Next If Not passage2 Then Box1.SelLength = Len(chaine) - Box1.SelStart end if End Sub
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.