[RESOLVED] "Conditional" formatting

[MacShand]

Hi again

In excel, Im aware of conditional formatting..

just wondering if i can code my rich text box to accept the following

If there is text between this character "[" and this character "]" color it red and make it font size 9. all other text should remain black and font size 10.

((**EXAMPLE TEXT

[Notes: Proof read this before printing]

**))

the above should then appear in the textbox as red, and size 9

thanks for your help

M

[dbasnett]

Select the text and then set the color. Richtextbox has methods for both.

[MacShand]

Hi! Thanks for your reply.

I'm wondering if it's possible to assign code to a button which will automatically select the text I want based on conditions that i set, eg that it starts with a "[" bracket and finishes with a "]" bracket. I'm looking to assign that code to a button.

that way, it reduces the amount of formatting the user has to do when the application is running.

Thanks for your help, I appreciate it.

[dbasnett]

Hi! Thanks for your reply.

I'm wondering if it's possible to assign code to a button which will automatically select the text I want based on conditions that i set, eg that it starts with a "[" bracket and finishes with a "]" bracket. I'm looking to assign that code to a button.

that way, it reduces the amount of formatting the user has to do when the application is running.

Thanks for your help, I appreciate it.

Sure, why not.

RichTextBox

[MacShand]

Great! Can you advise on how to code it?

Sorry to hassle :S...really new to programming and struggling with piecing everything together to make it work.

Cheers

[dbasnett]

Great! Can you advise on how to code it?

Sorry to hassle :S...really new to programming and struggling with piecing everything together to make it work.

Cheers

This should get you started:

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        RichTextBox1.Text = "123[ABC]67890" 'test data

        Dim openPos As Integer = RichTextBox1.Text.IndexOf("[")
        Dim closePos As Integer = RichTextBox1.Text.IndexOf("]")

        RichTextBox1.Select() 'set focus
        RichTextBox1.Select(openPos + 1, closePos - openPos - 1) 'select the text
        RichTextBox1.SelectionColor = Color.Red 'set color
    End Sub

Using the link I posted earlier you should be able to figure out what each line does.

[MacShand]

Awesome! Thank you so much for your help! That works perfectly!

Great!

[MacShand]

Hi again...is it possible to modify the code so that if there is more than one occurrence of the "[" bracket, then the formatting will apply to all occurrences in the textbox?

Thanks

[dbasnett]

Hi again...is it possible to modify the code so that if there is more than one occurrence of the "[" bracket, then the formatting will apply to all occurrences in the textbox?

Thanks

I'll bet that IndexOf has another parameter that is a starting location.

[MacShand]

Hi...looking up the "indexof" on microsoft, this definition:

"Reports the index of the first occurrence of the specified Unicode character in this string."


So, I need to modify it so it searches for all occurrence of the character...can you advise on how to do this?

Many thanks,

Calum

[dbasnett]

Hi...looking up the "indexof" on microsoft, this definition:

"Reports the index of the first occurrence of the specified Unicode character in this string."


So, I need to modify it so it searches for all occurrence of the character...can you advise on how to do this?

Many thanks,

Calum

Hmmm. Did you read this page

http://msdn.microsoft.com/en-us/libr...g.indexof.aspx ?

One of the overloads (6th one) has your answer.

[MacShand]

I can only apologise for my absolute ignorance...but I cannot string everything together without errors appearing everywhere :S Would you be able to advise even more? :S

sorry again...your help is greatly appreciated...

[dbasnett]

I can only apologise for my absolute ignorance...but I cannot string everything together without errors appearing everywhere :S Would you be able to advise even more? :S

sorry again...your help is greatly appreciated...

Using code tags post what you have so far.

[MacShand]

Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Public Class Dialog1

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click  

   
            Form1.tbUpperBody.Text = Form1.tbUpperBody.Text & "[Notes" & vbNewLine & _
      & Me.tbNotes.Text & "]"

Public Function IndexOf (“[“] _
	value As Char, _
	startIndex As Integer, (0) _
	count As Integer (100) _
) As Integer

Dim openPos As Integer = Form1.tbUpperBody.Text.IndexOf("[")
            Dim closePos As Integer = Form1.tbUpperBody.Text.IndexOf("]")

            Form1.tbUpperBody.Select() 'set focus
            Form1.tbUpperBody.Select(openPos + 1, closePos – openPos - 1) 'select the text
            Form1.tbUpperBody.SelectionColor = Color.Red 'set color
            Form1.tbUpperBody.SelectionFont = New Font("Arial", 9)

End Sub

I'm clearly missing something quite substantial :S just not sure how to write everything out...

Thanks for your patience

[dbasnett]

Something like this should get you started.

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        RichTextBox1.Text = "123[ABC]6789[0]123[ABC]67890[" 'test data
        highlightRTB(RichTextBox1)
    End Sub

    Private Sub highlightRTB(rtb As RichTextBox)

        rtb.Select() 'set focus
        Dim openPos As Integer = rtb.Text.IndexOf("[")
        Dim closePos As Integer = rtb.Text.IndexOf("]")

        Do While openPos >= 0 AndAlso closePos >= 0 AndAlso openPos < closePos
            rtb.Select(openPos + 1, closePos - openPos - 1) 'select the text
            rtb.SelectionColor = Color.Red 'set color
            openPos = rtb.Text.IndexOf("[", closePos + 1)
            closePos = rtb.Text.IndexOf("]", closePos + 1)
        Loop
    End Sub

This wasn't tested much, so the cases of ] before [ may not work, as well as others.