06-10-12, 02:19 AM
(آخر تعديل لهذه المشاركة : 06-10-12, 02:29 AM {2} بواسطة فتح الرحمن.)
اقدم لكم مشروع Notepad
من تصميمى
-1
2-
مميزات البرنامج
1- حفظ الالوان بعد اغلاق البرنامج
2- حفظ نوع الخط بعد اغلاق البرنامج
3- مزود بخاصية FIND
4-يمكن اضافة صورة الى مربع النص
5-عند فتح ملف نصى ياخذ اسم الملف ويكتب بجوارة notepad
ثانيا الأكود المستخدمة
كود تحميل الفورم
PHP كود :
fonttextbox.Text = My.Settings.textfont.ToString
RichTextBox1.Font = My.Settings.textfont
COLORTEXT.Text = My.Settings.color.ToString
RichTextBox1.ForeColor = My.Settings.color
Try
Dim DllFileName As String = Me.OpenFileDialog1.FileName.Substring(Me.OpenFileDialog1.FileName.LastIndexOf("\")).Replace("\", "")
Me.Text = (DllFileName & " -NotePad")
Catch exception1 As Exception
Dim ex As Exception = exception1
Me.Text = " -NotePad"
End Try
PHP كود :
Private Sub HowLine_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowLine.Tick
Me.Line.Text = ("Lins " & RichTextBox1.Text.Length & ", letters " & Me.RichTextBox1.Lines.Length)
End Sub
PHP كود :
Private Sub ToolStripMenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem12.Click
RichTextBox1.Undo()
End Sub
Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click
RichTextBox1.Redo()
End Sub
Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
RichTextBox1.Cut()
End Sub
Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
RichTextBox1.Copy()
End Sub
Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
RichTextBox1.Paste()
End Sub
Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
RichTextBox1.Clear()
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
Find.Show()
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
End Sub
Private Sub ToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem13.Click
RichTextBox1.SelectAll()
End Sub
تغير الخط
PHP كود :
If FontDialog1.ShowDialog = DialogResult.OK Then
My.Settings.textfont = Me.FontDialog1.Font
My.Settings.Save()
My.Settings.Reload()
Me.fonttextbox.Text = My.Settings.textfont.ToString
Me.RichTextBox1.Font = My.Settings.textfont
End If
كود وضع الصورة
PHP كود :
Dim myImg As Image
Dim mydir As New OpenFileDialog
mydir.ShowDialog()
myImg = Image.FromFile(mydir.FileName)
Clipboard.SetImage(myImg)
RichTextBox1.Paste()
كودالحفظ
PHP كود :
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
SaveFileDialog1.Filter = "Text Files |*.txt"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = vbNullString Then Exit Sub
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
كود الفتح
PHP كود :
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
OpenFileDialog1.Filter = "Text Files (*.Txt)|*.txt"
If OpenFileDialog1.FileName = vbNullString Then Exit Sub
OpenFileDialog1.ShowDialog()
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
PHP كود :
If ColorDialog1.ShowDialog = DialogResult.OK Then
My.Settings.color = ColorDialog1.Color
My.Settings.Save()
My.Settings.Reload()
COLORTEXT.Text = My.Settings.color.ToString
RichTextBox1.ForeColor = My.Settings.color
End If
وأخير جاء وقت التحميل
تجدونة هنا انشاء الله
___________________
مع خالص تحياتى
والسلام عليكم ورحمة الله وبركاتة