منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف نضيف صورة الى اداة richtextbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف نضيف صورة الى اداة richtextbox (/showthread.php?tid=8140)

الصفحات: 1 2 3 4 5 6 7


كيف نضيف صورة الى اداة richtextbox - Easy4ever - 25-03-13

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

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

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

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


كيف نضيف صورة الى اداة richtextbox - Abu Ehab - 25-03-13

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


كيف نضيف صورة الى اداة richtextbox - سعود - 25-03-13

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

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

يعني من كودي السابق أقتبس فقط كود الإضافة Wink
انشهد انك صادق بس عاد من العجلة مافيه مخSmile


كيف نضيف صورة الى اداة richtextbox - سعود - 25-03-13

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


كيف نضيف صورة الى اداة richtextbox - سعود - 25-03-13

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


كيف نضيف صورة الى اداة richtextbox - just.coder - 25-03-13

جربت دا ولا لا

كود :
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



كيف نضيف صورة الى اداة richtextbox - Abu Ehab - 25-03-13

أخى سعود :
المثال في المرفقات ..
لكن عايز أقول شغلة مهمه :
يمكن يكون الكود صعب عليك وما تفهم تفاصيله ,, لكن المهم أنحلت المشكلة ..

شغلة تانية : أذا أنحلت المشكلة ,,, أمانه تدعيلى بالشفاء ..



كيف نضيف صورة الى اداة richtextbox - Abu Ehab - 25-03-13

طيب ... دقيقتين أنا راح أسهل الأمور اكثر بكثير علشان خاطرك وخاطر الشباب حبايبي ... أنتظروا


كيف نضيف صورة الى اداة richtextbox - سعود - 25-03-13

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


كيف نضيف صورة الى اداة richtextbox - سعود - 25-03-13

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
والله اظن بصراحة ان هذا اللي يناسب فكرتي ولا ادري لكن سارى ان شاء الله