ubacivanje smajlija u rtf

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

evo pokusao sam to da napravim ali sam negde pogresio! - mozete li da pronadjete gresku u ovom kodu ili postoji bolji nacin da se ovo uradi?

'ovo u modul Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, LParam As Any) As Long Public Const WM_PASTE = &H302 'a ovo u formu rtf1.SelRTF = m If InStr(m, ":)") <> 0 Then     Dim poz As Integer 'pozicija stringa ako je nadjen     While Len(m) > 1         poz = InStr(m, ":)")         rtf1.SelStart = vIt1 + poz - 1         rtf1.SelLength = 2         pc1.Picture = LoadPicture("C:\1.gif")         Clipboard.Clear         Clipboard.SetData pc1.Picture         SendMessage rtf1.hWnd, WM_PASTE, 0, 0&         vIt1 = vIt1 + poz - 1 + 2     m = Right$(m, Len(m) - poz - 1)     Wend End If

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

gde si nasao taj kod? nisam siguran da je to tako moguce
pogledaj ovo:
planet-source-code.com/vb/scripts/ShowC.....p;lngWId=1

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

deo sam nasao na psc - program se zove elite pad, a drugi deo sam napisao sam

Dopuna: 19 Avg 2005 10:01

ovaj tvoj kod radi na istom principu kao i moj, tako da mi nije mnogo pomogao, ali meni treba da iz stringa koji se ne sastoji samo od smajlija nego npr NEKI TEKST:)jos neki tekst... da na mesto znaka '' ubaci smajli, a obrise taj znak ''
ima li mi pomoci?