RICHTEXTBOX
Technics_addict
-
20 juin 2001 à 13:11
sandrine_wahiba Messages postés 2 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 10 mars 2010 - 10 mars 2010 à 11:46
sandrine_wahiba Messages postés 2 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 10 mars 2010 - 10 mars 2010 à 11:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1341-richtextbox
https://codes-sources.commentcamarche.net/source/1341-richtextbox
10 mars 2010 à 11:46
il est trés trés util pour moi
bonne chance
27 août 2007 à 19:37
5 août 2006 à 21:54
19 mai 2005 à 11:16
ici exemple pour faire apparaitre en couleur et gras une question et sa réponse existant dans une meme 'string'
Private Sub Scindetxt(txt As String)
Dim Question As String, answer As String, pos As Long
'recherche l'existence d'un "?" dans la chaîne
pos = InStr(txt, "?")
If pos > 0 Then 'si "?" trouvé
Question = Mid(txt, 1, pos) 'récupere du début de texte
'jusqu'au "?"
answer = Mid(txt, pos + 1) '..du "?" jusqu'a la fin
'passe a la fonction de Sultar la question a afficher en
' bleu et gras
AddText RTF, Question, True, , , 10, vbBlue
'passe la réponse en noir s'affichant en dessous de la
'question
AddText RTF, answer, False, , , 10, vbBlack
Else
AddText RTF, txt, False, , , 12, vbBlack
End If
End Sub
Vous pouvez par exemple l'utiliser dans un feuille astuce du jour généré par "ajout feuille :astuce..." dans VB et remplacer le contrôle libellé par un RTB et appeler la fonction dans la méthode 'DisplayCurrentTip' généré par VB..c'est plus sympa :)
2 juil. 2003 à 08:45
Et pour selectionner du texte? (equivalent à Box.Select(0, 1) en .NET) c'est comment ?
Merci
|emap|
22 janv. 2003 à 21:55
3 nov. 2002 à 11:59
Mais comment tu fais pour savoir si la fin "totale" d'un tich textboxt est ariivé ?
21 juin 2001 à 12:24
Private Function AddText(RTF As RichTextBox, TxT As String, Optional Gras As Boolean False, Optional Italic As Boolean False, Optional Under As Boolean = False, Optional Size As Integer = 10, Optional Color = vbBlack)
RTF.SelStart = Len(RTF)
RTF.SelLength = 0
RTF.SelBold = Gras
RTF.SelItalic = Italic
RTF.SelColor = Color
RTF.SelUnderline = Under
RTF.SelFontSize = Size
RTF.SelText = TxT & vbCrLf
End Function
Elle permet d'ajouter ligne par ligne du text ds un RichTextBox..
ca s'utilise comme ca:
AddText RTF, "Bonjour!", true, , , 14, vbblue
20 juin 2001 à 13:40
20 juin 2001 à 13:11