تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف نضيف صورة الى اداة richtextbox
#1
شيء رائع ان يكون برنامج المحادثة فيه هذه الامكانية لكن كيف نضيف امكانية اضافة ابتسامة الى اداة Richtextbox
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#2
اقصد بطريقة الاستبدال مثلا الرمز التالي:
'Sad' يتم استبداله بصورة مخصصة له
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#3
ليه ما تستخدم اداة webbrower بدل هذه الاداة ،، أفضل لاها مستخدمه في اغلب تطبيقات الدردشة
الرد }}}
تم الشكر بواسطة:
#4
ما معقدني غير سي شارب وياليت كل اللي القى مكتوب بشكل صحيح حتى تقدر تحوله باي موقع لكن كلها اخطاء
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#5
السكر المغرور كتب :ليه ما تستخدم اداة webbrower بدل هذه الاداة ،، أفضل لاها مستخدمه في اغلب تطبيقات الدردشة
اهلا وسهلا بك اخوي ..فعلا انا فكرت بيها وهي سهلة جدا والاستبدال فيها يتحتاج اكواد بسيطة لكن ماادري هل استخدامها يكون سريع .
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#6
طيب اخواني لقيت كود
emotions.Add("Smile", SmileyDemo.Properties.Resources.regular_smile)
emotions.Add(":-(", SmileyDemo.Properties.Resources.sad_smile)

كتبت بدل SmileyDemo اسم مشروعي لكن فيه خطا
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم

كانت لي محاولة جيدة في برنامج دردشة على شبكة محلية(مع تواجد shared folder) حيث كنت أدرس والحمد لله لم تكتشفني إدارة ذلك المعهد Smile

كنت أعتمد على ملفات نصية واجهتني مشكلة بسبب الصلاحيات على المجلد المشترك(اشكرهم على تلك الهدية) وكنت راح ازودها أكثر واعمل برامج تحكم هه ولكن انتهى الكورس وانتهت الفكرة(طبقتها في البيت على إخواني)


بخصوص الابتسامات كنت قد طورت ritch text box ليقبل ابتسامات ونجحت ولكني لم أفعله ولم أختبره اختباراً حقيقياً

الفكرة تعتمد على Copy Paste في الحدث المناسب(لا اتذكر إن كانت الأداة تتضمن حدث تغير النص أو لا) اقوم بتحديد كل نص يرمز إلى ابتسامة وأعمل Paste قبل عمل اللصق أقوم بحفظ الموجود في الحافظة في متغير ثم أخزن الصورة في الحافظة وبعد اللصق أعيد ما كان موجودا إلى الحافظة

هذه هي الفكرة


WebBrowser أداة لعرض المحادثة فقط جيدة(لم أجرب) ولكن للكتابة استخدم أداة أخرى اما TextBox أو RicthcTextBox
الرد }}}
تم الشكر بواسطة:
#8
لم أتطرق قط في التعامل مع هذي الأداة ولاكن من خلال بحثي وجت طريقه إضافة صوره داخل الأداة

لا أدري هي ستفيد بالغرض ام لا

هذا الكود


PHP كود :
Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1
.Title "إدراج صورة"
OpenFileDialog1.DefaultExt "rtf"
OpenFileDialog1.Filter "Bitmap Files|*.bmp|JPEG Files|*.jpg|GIF Files|*.gif"
OpenFileDialog1.FilterIndex 1
OpenFileDialog1
.ShowDialog()
If 
OpenFileDialog1.FileName "" Then Exit Sub
Try
Dim strImagePath As String OpenFileDialog1.FileName
Dim img 
As Image
img 
Image.FromFile(strImagePath)
Clipboard.SetDataObject(img)
Dim df As DataFormats.Format
df 
DataFormats.GetFormat(DataFormats.Bitmap)
If 
Me.RichTextBox1.CanPaste(dfThen
Me
.RichTextBox1.Paste(df)
End If
Catch 
ex As Exception
MessageBox
.Show("امتداد الصورة غير معروف""خطأ"MessageBoxButtons.OKMessageBoxIcon.Error)
End Try 
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#9
لا ما يتفع كذاSmile ابغى زي طريقتي هذي كتبت الرمز من غير مربع حوار
على كل حال راح اجرب webbrowser
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#10
تفضل حب لكن الكود فيه مشكلة واحدة اذا كنت انت ناسخ ملف الملف بيطير لو حد بعت رمز الاموشن

كود :
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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة توسيط النص داخل اداة comboBox سمير1404 7 3,858 24-08-25, 01:01 PM
آخر رد: أبو خالد الشكري
  [VB.NET] استفسار بخصوص البحث في RichTextBox SerialPort dubai.eig 2 661 18-06-25, 11:09 AM
آخر رد: dubai.eig
  مشكلة التاريخ اداة DateTimePicker Wolfalwolf20 2 485 06-01-25, 06:14 PM
آخر رد: aljzazy
  إدراج صورة الموظف من خلال رابط في حقل من قاعدة البيانات saud1004 4 532 13-12-24, 04:48 AM
آخر رد: saud1004
  [سؤال] كيف نضيف id جديد بنفس جملة الاضافة justforit 5 501 01-12-24, 04:30 PM
آخر رد: justforit
Exclamation [VB.NET] ممكن عمل كود لحفظ المكتوب داخل اداة TextBox الورد الصناعي 9 797 17-10-24, 11:43 PM
آخر رد: salamandal
Lightbulb [سؤال] تحويل صورة الى ملف Pdf ackore 8 762 27-09-24, 07:51 PM
آخر رد: محمد مسافر
  اضافة صورة مخزنة في قاعدة البيانات sql الى الكريستال ريبورت صالح عبدالله 3 461 24-09-24, 09:52 AM
آخر رد: صالح عبدالله
  [كود] كود عند اختيار صورة في فورم تسمع في فورم اخري Mostafa201255411 0 246 13-09-24, 09:20 PM
آخر رد: Mostafa201255411
  التعامل مع موقع ويب لجلب صورة لالفيجوال بيزك صبري زينوبي 3 443 09-09-24, 11:22 PM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: