|
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
|
' ubaci smajli, a obrise taj znak '
