rabenhod55
یک شنبه 14 شهریور 1389, 17:48 عصر
سلام از این کد واسه نمایش شکلک در ریچ تکست باکس استفاده کردم در ویندوز 7 اما متاسفانه جواب نمیده
اگر میشه راهنمایی کنید ممنون میشم
For x = 0 To imgSmiley.UBound
If rtbMain.Find(imgSmiley(x).Tag, tLoc) <> -1 Then
rtbMain.SelStart = rtbMain.Find(imgSmiley(x).Tag, tLoc)
rtbMain.SelLength = Len(imgSmiley(x).Tag)
Clipboard.Clear
Clipboard.SetData imgSmiley(x).Picture
SendMessage rtbMain.hwnd, WM_PASTE, 0, 0
اگر میشه راهنمایی کنید ممنون میشم
For x = 0 To imgSmiley.UBound
If rtbMain.Find(imgSmiley(x).Tag, tLoc) <> -1 Then
rtbMain.SelStart = rtbMain.Find(imgSmiley(x).Tag, tLoc)
rtbMain.SelLength = Len(imgSmiley(x).Tag)
Clipboard.Clear
Clipboard.SetData imgSmiley(x).Picture
SendMessage rtbMain.hwnd, WM_PASTE, 0, 0