تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شرح كيفية صنع محرر html واستخدامه كـ dll
#1

أحببت في هذه اللحظات ان اسطر كيفية انشاء محرر html بسيط وتحويله الى ملف dll بحيث نستورده لمشاريعنا








انشيئ مشروع جديد بلغة فيجوال بيسك



اضف اداة TabControl
وسم التبويبة الاولى باسم مثلا des يعني تصميم
والاخرى sh يعني عرض
في تبويبة العرض اضف اداة مستعرض الويب webbrowser
وفي الاولى في تبويبة التصميم des اضف الادوات التالية
Panel1
وضمن البانل اضف الازرار التالية
زر الخط العريض
زر اضافة رابط
زر اضافة صورة (رابط صورة)
زر اللون
كومبوبوكس لاحجام او مقاسات مختلفة للخط
اجعل خاصية Dock الى Top
اضف اسفل البانل مربع نص واجعل خاصية Dock الى Fill


------------------------------------
الان جاء دور كتابة الاكواد
@@@@@@@@@@@@@@@@@@@@@@@@


في حدث النقر لزر الخط العريض اكتب
كود :
Dim txt As String = TextBox1.SelectedText
كود :
Dim all As String = TextBox1.Text
        If txt.ToString.Trim = "" Then Exit Sub
        TextBox1.Text = all.Replace(txt, "<b>" & txt & "</b>")

وفي زر اضافة رابط اكتب
كود :
Dim txt As String = TextBox1.SelectedText
كود :
Dim all As String = TextBox1.Text
        If txt.ToString.Trim = "" Then Exit Sub
        TextBox1.Text = all.Replace(txt, "<a target=_blank href=" & InputBox("ادخل رابط") & ">" & txt & "</a>")

وفي زر اضافة صورة
كود :
Dim txt As String = TextBox1.SelectedText
كود :
Dim all As String = TextBox1.Text
        TextBox1.AppendText(" " & "<img src=" & InputBox("اكتب رابط الصورة ") & "  />")




[align=center]
[/align]

وفي زر اضافة لون اكتب
كود :
Dim fc As New ColorDialog
كود :
If fc.ShowDialog = DialogResult.OK Then
            Dim txt As String = TextBox1.SelectedText
            Dim all As String = TextBox1.Text
            If txt.ToString.Trim = "" Then Exit Sub
            TextBox1.Text = all.Replace(txt, "<font color=" + fc.Color.ToString + ">" & txt & "</font>")




        End If



في حدث TextChanged التابع لمربع النص اكتب
كود :
WebBrowser1.DocumentText = TextBox1.Text.Replace(vbNewLine, "<br />")
ملاحظة! قد تحتاج المزيد من الاكواد للاستبدال


----------------------
في الكومبوبكس احتجنا حدثين وهما
MouseClick
والاخر
SelectedIndexChanged


الاول كتبنا فيه


كود :
sel = TextBox1.SelectedText.ToString


والاخر
كود :
Dim txt As String = ComboBox1.Text
كود :
Dim all As String = TextBox1.Text
        If txt.ToString.Trim = "" Then Exit Sub
        TextBox1.Text = all.Replace(sel, "<font size=" & txt & ">" & sel & "</font>")



كلمة sel متغير في منطقة التصريحات العامة اعلى الفورم او باي مكان ليس ضمن روتين sub
الان لنقوم بتعميم الـ text الخاص بمربع النص
كود :
Public Property content As TextBox
كود :
Get
            Return TextBox1
        End Get
        Set(ByVal value As TextBox)
            TextBox1 = TextBox1
        End Set
[align=center]    End Property[/align]

قم باعادة بناء مشروعك
جرب المثال فان اعجبك انسخ ملف dll المتولد في مجلد Debug انسخه الى مشروعك واضفه كـ item الى مربع الادوات


وفي زر الامر في الفورم العادي اكتب
كود :
MsgBox(UserControl11.content.Text)


المثال باذن الله جل في علاه في القسم المناسب له
ارجو ان اكون قدمت شيئا مفيدا هذا اليوم

ملاحظة المحرر الخاص بالمنتدى عذبنيSad
شوف مقسم الاكواد على كيفه
الرد }}}
تم الشكر بواسطة:
#2
المثال
[h=1]make html editor for desktop[/h]
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

بارك الله فيك أخي
ونفع بك وزادك علما وقدرا
الرد }}}
تم الشكر بواسطة:
#4
مشكووور اخي

اتمنى لو ان هناك محرر مماثل لل BBcode
الرد }}}
تم الشكر بواسطة:
#5
اللي اتمناه بالذات اني اقدر اشغل تطبيقات سطح المكتب على موقع ويب
الرد }}}
تم الشكر بواسطة:
#6
سعود كتب :اللي اتمناه بالذات اني اقدر اشغل تطبيقات سطح المكتب على موقع ويب

هههه مستحيل

الويب مايعطيك الصلاحيات للتحكم في النظام
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم

جزاك الله خيرا اخي العزيز

يعطيك العافية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده) سعود 5 8,085 04-09-19, 04:32 AM
آخر رد: سعود
  كيفية عمل صورة - مدورة - Rouded PictureBox ! RaggiTech 0 2,889 17-10-12, 09:55 PM
آخر رد: RaggiTech
  كيفية عمل String عشوائي ! RaggiTech 0 2,684 17-10-12, 09:54 PM
آخر رد: RaggiTech
  فائدة - كيفية عمل Ping RaggiTech 0 3,548 17-10-12, 09:00 PM
آخر رد: RaggiTech
  كيفية تحويل DataTable إلى Object List RaggiTech 0 2,505 17-10-12, 07:27 PM
آخر رد: RaggiTech
  كيفية ادارة صورة 360 درجة RaggiTech 0 2,199 17-10-12, 07:24 PM
آخر رد: RaggiTech
  للمبتدئين كيفية صنع فورم على شكل قلب او دائرة او متقاطعات او ما شابه مثال مع شرح مبسط RaggiTech 0 2,530 17-10-12, 07:15 PM
آخر رد: RaggiTech
  للمبتدئين فقط..كيفية عمل برنامج صغير (عداد لحساب الذاكرة المستخدمة بالجهاز) RaggiTech 0 2,352 17-10-12, 07:13 PM
آخر رد: RaggiTech
  كيفية نقل بيانات من قاعدة بيانات اكسس الى ملف اكس ام ال RaggiTech 0 3,161 17-10-12, 07:12 PM
آخر رد: RaggiTech
  كيفية رسم صورة متحركة على الفورم بدون تايمر RaggiTech 0 2,488 17-10-12, 07:11 PM
آخر رد: RaggiTech

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم