السلام عليكم ورحمة الله وبركاته

اليوم راح اشرح لكم طريقة عمل نوت احتراافي في vb.net



اول شي نضيف

RichTextBox = 1

Button = 8

RadioButton = 3

Timer = 1

نسمي الازرار

نسخ
لصق
قص
تحديد الكل
تحديد
تنظيف
الخط
الون

وتعدل شكل النوت مثل ماتبي

الحين مرحلة الاكواد

زر النسخ

كود:
RichTextBox1.Copy()
زر الصق

كود:
RichTextBox1.Paste()
زر القص

كود:
RichTextBox1.cut()
زر تحديد

كود:
RichTextBox1.Select()
زر تحديد الكل

كود:
RichTextBox1.SelectAll()
زر تنظيف الRichTextBox

كود:
RichTextBox1.Clear()
زر الون

كود:
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try

زر الخط

كود:
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
خلصنا من الازرار

الحين الlable

الlable1 راح يكون عدد الاحرف الي فRichTextBox
الlable2 راح يكون تاريخ اليوم
الlable3 الساعه


هذا الكود نحطه بال"RichTextBox "

كود:
Label1.Text = (Str(Len(RichTextBox1.Text)))
وهذا الكود نحطه بالform

كود:
Timer1.Start()
وهذا الكود نحطه بالTimer
كود:
Label3.Text = TimeOfDay

Label2.Text = DateString
والحين الRadioButton

واحد نسميه محاذاة لليمين واحد محاذاة لليسار وواحد توسيط النص

نحط هذا بالمحاذاة لليسار

كود:
RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
وهذا بالمحاذاة لليمين
كود:
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
وهذا توسيط النص
كود:
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
وبهذا الشكل نكون انهينا البرنامج ومبروك عليكم :Luw16625[1]:
الموضوع الأصلي : <font color="#000000" size="2" face="tahoma">صنع نوت احترافيهه !!<font color="#000000" size="2"> المصدر : مجتمع الفرسان الكاتب : <font color="#000000" size="2" face="tahoma">hc.2