Emotions in RTB? (1 Viewer)

[Kn1ght_M4r3]

Hey guys i was just wondering if any of you guys know how msn and that do the Emotions in the rich text box??

Anyone know how they do it?

 

[sunny]

The chances are they are not using a RTB, or even coded MSN with VB in the first place.

The closest I know of with the RTB is to insert a picture into the RTB as an OLE object.

Something like:

RTB.OLEObjects.Add , "this is a pic", "C:\test.bmp"

will insert the bitmap into the RTB.

 

[Kn1ght_M4r3]

Oh alrite. Okay thanx alot sunny, btw why is the "this is a pic" needed?

 

[Kn1ght_M4r3]

Oh and is there anyway to get rid of the menus that pops up when the image goes in? i seen some code at
http://elitevb.com/content/01,0057,01/03.aspx
But damn like thats some nasty code lol

 

[sunny]

That sure is some impressive code there! Its a great idea to work backwards and get the rtf code needed for an image instead of putting the image directly in.

The "this is a pic" isn't really needed. Its an optional argument to the Add method, it just lets you refer back to the OLEObject using this name. Like the article said using OLE objects is a pretty mediocre way of doing it - and its referring to how you can edit the thing if you clicked on it

You might want to try this and see if it works well enough for you. The idea is to lock the form before it gets updated so that the while the menu is being drawn on, the form doesn't get updated and you move the cursor away from the OLE object then unlock the form again - presto! Then it should look like that nothing has happened, though it might be abit slow.

Option Explicit

' this is the API declaration to lock the form
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Sub Command1_Click()

    ' lock this form
    LockWindowUpdate Me.hWnd
    ' add the picture
    rtb.OLEObjects.Add , , "c:\test.bmp"
    ' unselect the picture by moving the cursor to the end
    rtb.SelStart = Len(rtb.Text)
    ' unlock the window
    LockWindowUpdate False
    
End Sub

 

[Kn1ght_M4r3]

OKay thanx alot sunny. ill be sure to test it out as soon as i get a break from my trialz heheeheh
i'll tell yah how it goes.