منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود كتب :لا ما يتفع كذا ابغى زي طريقتي هذي كتبت الرمز من غير مربع حوار
على كل حال راح اجرب webbrowser

أخوي انا عطيتك مثال الإضافه ولاكن انت تستطيع التحايل عليه
بدل من وضع مربع الحوار يذهب للـ Icon تلقائي عند إدخال رمز معين

يكون في شرط في حدث التغيير على Richtextbox
بحيث إذا واجهك رمز مثلا : ) قم باستبداله بإيقونة وهكذا ..

يعني من كودي السابق أقتبس فقط كود الإضافة

Easy 4ever كتب :أخوي انا عطيتك مثال الإضافه ولاكن انت تستطيع التحايل عليه
بدل من وضع مربع الحوار يذهب للـ Icon تلقائي عند إدخال رمز معين

يكون في شرط في حدث التغيير على Richtextbox
بحيث إذا واجهك رمز مثلا : ) قم باستبداله بإيقونة وهكذا ..

يعني من كودي السابق أقتبس فقط كود الإضافة

انشهد انك صادق بس عاد من العجلة مافيه مخ

Abu Ehab كتب :تقلقش ... دقيقتين راح احل المشكلة أن شاء الله .

بارك الله فيك عز الله انك ماتقصر

حاولت اخلي المحاذاة rtl على الطريقة المعتادة لكن مانفعت بالاداة:o

جربت دا ولا لا

ساحاول باذن الله تحويل طريقة المشروع الى طريقة الاستبدال

just.coder كتب :جربت دا ولا لا

كود :

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        On Error Resume Next
        If RichTextBox1.Find(":)") > -1 Then
            Dim t() As String
            t = RichTextBox1.Text.Split(":)")
            Dim i As Integer
            For i = 1 To t.Length - 1
                Dim ffo As String = ":)"
                If RichTextBox1.Find(":)") > -1 Then
                    Dim ClipboardContents As String = Clipboard.GetText
                    RichTextBox1.SelectionStart = ":)"
                    RichTextBox1.SelectedText = ""
                    Clipboard.SetImage(ImageList1.Images.Item(21))
                    RichTextBox1.Paste()
                    Clipboard.SetText(ClipboardContents)
                End If
            Next
        End If
    End Sub

والله اظن بصراحة ان هذا اللي يناسب فكرتي ولا ادري لكن سارى ان شاء الله