Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 643
  • Last Modified:

Blocking Rich Text Format?

is there a way to block RTF? like these {\rtf1\ansi\ansicpg1252\deffo\deflang\1033\deflangfe1033{\fonttbl{\fo\fswiss\fprq2\fcharseto Verdana;}}{\colortbl;\red255\greeno\blueo;}\viewkind4\uc1\pard\nowidctlpar\cf1\fo\fs44 BLAH\par}, . because it messed up my colors, and since My RTB is to get text from a chatroom, people are spamming this like its a exploit.
0
andyakira
Asked:
andyakira
1 Solution
 
GrahamSkanRetiredCommented:
Is it the size that bothers you? You could monitor it and reset it to your usual size.

RichTextBox1.TextRTF = "{\rtf1\ansi\ansicpg1252\deffo\deflang\1033\deflangfe1033{\fonttbl{\fo\fswiss\fprq2\fcharseto Verdana;}}{\colortbl;\red255\greeno\blueo;}\viewkind4\uc1\pard\nowidctlpar\cf1\fo\fs44 BLAH\par}"


RichTextBox1.SelStart = 1
RichTextBox1.SelLength = Len(RichTextBox1.Text)
If IsNull(RichTextBox1.SelFontSize) Then
    RichTextBox1.SelFontSize = 8.5
End If
0
 
andyakiraAuthor Commented:
that works very well but im haing a hard time to get it to work with my RTB can u assist me futher.


    For I = LBound(saElements) To UBound(saElements) Step 2
        With Form1.RTB
        .SelStart = 99999999
        .SelLength = 0
        .SelColor = saElements(I)
        .SelText = saElements(I + 1) & Left$(vbCrLf, -2 * CLng((I + 1) = UBound(saElements)))
        .SelStart = 99999999
        End With
    Next I
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now