put emoticons into richtextbox

[lyealain]

hi.. how do i click on emoticon and bring that into richtextbox? any sample on that?

thanks

 

[tylerp9p]

I know a bit of code that can be used to put an image into a rich text box.

Dim result As DialogResult = dlgMainImageOpen.ShowDialog()
        If result = Forms.DialogResult.OK Or Forms.DialogResult.Yes Then
            Dim image As Image = image.FromFile(dlgMainImageOpen.FileName)
            My.Computer.Clipboard.SetImage(image)
            richtextbox.AllowDrop = True
            richtextbox.Paste()
        End If

Now that does it from a file. You could easily get that from, let's say, an ImageIndex in an ImageList? (assuming you have something like a list box or combo box that your emoticons are in.