[center]
[size=16]درسنا لليوم هو[/size][/center]


[center]
[size=16]كيفية عمل برنامج المفكرة بشكل أحترافي في برنامج فجول البيسك 2008[/size][/center]


[center]


[url=http://4.bp.blogspot.com/-ycG7l9k2sZw/UflHIrFPh_I/AAAAAAAAAOU/K0byMWTOIM4/s1600/Notepad.png][img]http://4.bp.blogspot.com/-ycG7l9k2sZw/UflHIrFPh_I/AAAAAAAAAOU/K0byMWTOIM4/s1600/Notepad.png[/img][/url]

[size=16]=========================================[/size][/center]


[center]
[size=16]الشرح[/size][/center]


[center]
[size=16].[/size][/center]


[center]
[size=16].[/size][/center]


[center]
[size=16].[/size][/center]


[center]
[size=16].[/size][/center]


[center]
[size=16]
[/size][/center]


[center]
[/center]


[center]
[size=16]=========================================[/size][/center]




[center]
[size=16]الاكواد المستعملة في الشرح[/size][/center]


[center][size=16]
جديد:[/size][/center]


[center][size=16]
RichTextBox1.Clear()[/size][/center]


[center][size=16]
فتح:[/size][/center]


[center][size=16]
Try[/size][/center]


[center][size=16]
Dim dlg As OpenFileDialog = New OpenFileDialog[/size][/center]


[center][size=16]
dlg.Title = "Open"[/size][/center]


[center][size=16]
dlg.Filter = "Rich Text Files (*.yusif arbile)|*.yusif arbile"[/size][/center]


[center][size=16]
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then[/size][/center]


[center][size=16]
RichTextBox1.LoadFile(dlg.FileName)[/size][/center]


[center][size=16]
End If[/size][/center]


[center][size=16]
Catch ex As Exception : End Try[/size][/center]


[center][size=16]
حفظ:[/size][/center]


[center][size=16]
Try[/size][/center]


[center][size=16]
Dim dlg As SaveFileDialog = New SaveFileDialog[/size][/center]


[center][size=16]
dlg.Title = "Save"[/size][/center]


[center][size=16]
dlg.Filter = "Rich Text Files (*.yusif arbile)|*.yusif arbile"[/size][/center]


[center][size=16]
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then[/size][/center]


[center][size=16]
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)[/size][/center]


[center][size=16]
End If[/size][/center]


[center][size=16]
Catch ex As Exception : End Try[/size][/center]


[center][size=16]
امام:[/size][/center]


[center][size=16]
RichTextBox1.Undo()[/size][/center]


[center][size=16]
تراجع:[/size][/center]


[center][size=16]
RichTextBox1.Redo()[/size][/center]


[center][size=16]
قص:[/size][/center]


[center][size=16]
RichTextBox1.Cut()[/size][/center]


[center][size=16]
نسخ:[/size][/center]


[center][size=16]
RichTextBox1.Copy()[/size][/center]


[center][size=16]
لصق:[/size][/center]


[center][size=16]
RichTextBox1.Paste()[/size][/center]


[center][size=16]
مسح الكل:[/size][/center]


[center][size=16]
RichTextBox1.Clear()[/size][/center]


[center][size=16]
تحديد الكل:[/size][/center]


[center][size=16]
RichTextBox1.SelectAll()[/size][/center]


[center][size=16]
الخط:[/size][/center]


[center][size=16]
Try[/size][/center]


[center][size=16]
Dim dlg As FontDialog = New FontDialog[/size][/center]


[center][size=16]
dlg.Font = RichTextBox1.Font[/size][/center]


[center][size=16]
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then[/size][/center]


[center][size=16]
RichTextBox1.Font = dlg.Font[/size][/center]


[center][size=16]
End If[/size][/center]


[center][size=16]
Catch ex As Exception : End Try[/size][/center]


[center][size=16]
اللون:[/size][/center]


[center][size=16]
Try[/size][/center]


[center][size=16]
Dim dlg As ColorDialog = New ColorDialog[/size][/center]


[center][size=16]
dlg.Color = RichTextBox1.ForeColor[/size][/center]


[center][size=16]
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then[/size][/center]


[center][size=16]
RichTextBox1.ForeColor = dlg.Color[/size][/center]


[center][size=16]
End If[/size][/center]


[center][size=16]
Catch ex As Exception : End Try[/size][/center]