17-08-13, 04:19 PM
أحببت في هذه اللحظات ان اسطر كيفية انشاء محرر 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)
المثال باذن الله جل في علاه في القسم المناسب له
ارجو ان اكون قدمت شيئا مفيدا هذا اليوم
ملاحظة المحرر الخاص بالمنتدى عذبني
شوف مقسم الاكواد على كيفه