permet de selectionner un paragraphe ds un RTF
Source / Exemple :
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
Conclusion :
Zip avec un exemple ci-joint
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.