منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تعلم كيف تصنع برنامج Notepad او مايسمى بالمفكرة

اقدم لكم مشروع Notepad
من تصميمى

-1

مميزات البرنامج
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 

timer عد الحروف والاسطر

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 

Tool Strip الادوات مثل CUT \UNDO الخ..

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 