Breadcrumbs

[Dummy1912]

Hello Guys,

Well this will be the first time i gonna do this
maybe in the future i do more

this code i have work with a friend of my.
he always wanted to replace his text smiley's into a real one.well ...
today it finally did:

Code: Select all

'What do we need?:
'Richtextbox


Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
'When you add :p this text it will change directly into a smiley
'Just add more smileys and always create a new Sub PasteSmiley

        Dim matches = Regex.Matches(Me.RichTextBox1.Text, ":\)")
        Dim matches2 = Regex.Matches(Me.RichTextBox1.Text, ":p")

        For Each m As Match In matches

            If m.Success Then

                Me.RichTextBox1.SelectionStart = m.Index
                Me.RichTextBox1.SelectionLength = m.Length

                Me.PasteSmiley()

            End If

        Next

        For Each m As Match In matches2

            If m.Success Then

                Me.RichTextBox1.SelectionStart = m.Index
                Me.RichTextBox1.SelectionLength = m.Length

                Me.PasteSmiley2()

            End If

        Next

        matches = Nothing
        matches2 = Nothing
    End Sub

    Public Sub PasteSmiley()

        Using i = Image.FromFile("C:\temp\smile.gif")

            Clipboard.SetImage(i)

            Me.RichTextBox1.Paste()

        End Using

    End Sub

    Public Sub PasteSmiley2()

        Using i = Image.FromFile("C:\temp\smile2.gif")

            Clipboard.SetImage(i)

            Me.RichTextBox1.Paste()

        End Using

    End Sub

Well hope you like this guys
and BE CAREFUL be nice to me...

Dummy1912

[Agust1337]

Hey Tim,
Nice, I've never seen this here.
Thanks for sharing this with us, and I have been searching for something for months lol.
Keep it up cooll;

[Dummy1912]

Hey Buddy,

I'm happy to hear that
well maybe next time if you search for something ask me maybe i can help you out blusho;
Tim

[Skillful]

Cool tutorial Tim!! Useful for a chat app!!

[Napster1488]

Cool

[Dummy1912]

blusho; thanks guys
hope i can add more soon

Dummy1912

[Codex]

Very nice, thank you alot, like agust, i have been searching for this for months.

[MrAksel]

Such things is hard to find, thanks for posting Tim!

[Dummy1912]

thanks buddy

[zachman61]

Awesome Job!!
Going to use this in a chat, thank you!