چند سوال در مورد richtextbox

[Mr.pRoGraMmer]

سلام
ببخشید یه سوال داشتم
من تو richtexbox از شکلکهای gif استفاده کردم تونستم اینکار را کنم شکل را نشون بده اما وقتی enter میزنم میرم خط بعدی شکلک قبلی پاک میشه ولی باز میشه شکلک را در خط جدید وجود بیاری اما باز میری خط بعدی شکلک خط قبلی پاک میشه باید چه کار کنم؟؟
بعد میشه شکلکهای gif را دز richtextbox کاری کنی که حرکت کنن یعنی اینکه ثابت نباشن؟

[Mr.pRoGraMmer]

کسی اینجا نمیخواد راهنمایی کنه؟

[CRazYFULL]

سورس قسمتی که که عکس اضافه ميکنی رو بزار...
فکر نميکنم با richtextbox بشه تصاوير متحرک رو نمايش داد ولی با webbrowser ميشه که بايد html بلد باشی

[Mr.pRoGraMmer]

سلام اینم سورس کدی که میخواستی

کد php:

Public Function CONVERT_INTO_SMILEYS(STARTFROM As Long)
Dim x_length As Long
Dim x_foundat As Long
Dim x_locset As Long
Dim x_EMOT As String
Dim x_i As Integer
Dim x_j As Integer

x_length = Len(Text1.Text)

For x_i = STARTFROM To x_length
    x_foundat = Text1.Find(":", x_i, x_length)
    x_locset = x_foundat
    
    If x_foundat = -1 Then
        x_i = x_length
        Timer4.Enabled = False
        Exit Function
    ElseIf x_foundat > -1 And IsNumeric(Mid(Text1.Text, x_foundat + 2, 1)) = True Then
        x_foundat = x_foundat + 2
        'loop for calculating x_EMOT number
        For x_j = 1 To 4
            If IsNumeric(Mid(Text1.Text, x_foundat, 1)) = True Then
                x_EMOT = x_EMOT & Mid(Text1.Text, x_foundat, 1)
                x_foundat = x_foundat + 1
            Else
                Exit For
            End If
        Next
        'convert number into smiley
        If x_EMOT <> "" Then
            SET_PICTURE Text1, x_locset, CInt(x_EMOT), Len(x_EMOT) + 1
            x_i = x_foundat - Len(x_EMOT) - 2
        Else
            x_i = x_foundat - 1
        End If
        
        x_EMOT = ""
    End If
    Text1.Locked = True
    G_startfrom = x_length
    Text1.SelStart = x_length
    Timer4.Enabled = False
Next
End Function
Public Function SET_PICTURE(rt_box As RichTextBox, pos As Long, EMOTICON As Integer, Length As Integer)
Text1.Locked = False
    On Error Resume Next
    Clipboard.Clear
    Clipboard.SetData LoadPicture(App.Path & "\Persian Chat Messenger Smileys\" & EMOTICON & ".gif"), vbCFBitmap
    rt_box.SelStart = pos
    rt_box.SelLength = Length
    rt_box.SelText = ""
    SendMessage rt_box.hwnd, WM_PASTE, 0, 0
    
End Function 


در رویداد change هم این کد را مینیویسم

کد php:

Private Sub Text1_Change()
Timer4.Enabled = True
If Text1.SelLength = 0 Then Text1.SelStart = Len(Text1.Text)
End Sub 


بعد یه تایمر هم به intervel 100 میدم و این کد را مینیوسم

کد php:

Private Sub Timer4_Timer()
CONVERT_INTO_SMILEYS G_startfrom
End Sub 


[/code]

---

با این دستور هم اطلاعت تایپ شده را میفرستم

کد php:

Winsock1.SendData ("Say  " & LogonName & ": " & Text2.Text) 


[CRazYFULL]

کدت چقدر درب و داغونه فکر نميکنم نياز به تايمر داشته باشی و.. بخوام يه مثال بسازم به سرفه تر از اينه که وقت بزارم تابع های اينو در بيارم
يه مثال با webbrowse ميزارم

[Mr.pRoGraMmer]

سلام کریزی با همبن کد هر شکلکی که بخوای با هر سایزی تو richtextbox به نمایش در میاد بعد برنامم تحت richtextbox هست نه چیز دیگه اگر راهی دیگه هست شکلک را به نمایش در بیاری ممنون میشم راهنمایی کنی

[Payman62]

سلام.
اگه فقط هدفت نمایش گیف هست راه های بهتری وجود داره. کامپوننت برای این کار موجوده. richtextbox برای این کار مناسب نیست.

[Mr.pRoGraMmer]

سلام
هدفم فقط نمایش گیف نیست اگر بود که راه زیاد داشت فقط تو richtextbox اخه واسه چت روم هست مشکل من اینه که میرم خط بعدی شکلک خط قبلی پاک میشه نمیشه کاری کرد که پاک نشه؟

[Payman62]

سلام.
سورس رو به صورت پروژه بذار. نه کد.

[Mr.pRoGraMmer]

سلام
باشه باید سورس کد چت رومم را بزارم وقتی جداش کردم سورس را بصورت کاملا جدا میدم

[Mr.pRoGraMmer]

سلام
اقا پیمان سورس دقیقا جوری نوشتم تنظیم کردم که بیشتر کدهای چت روم معلومه یعنی باید کل چت روم را سورسش را بیبینی تا بفهمی راه دیگه سراغ ندارید؟