تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعلم كيف تصنع برنامج Notepad او مايسمى بالمفكرة
#1






اقدم لكم مشروع 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 
timer عد الحروف والاسطر
PHP كود :
Private Sub HowLine_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem12.Click
        RichTextBox1
.Undo()
    
End Sub

    
Private Sub ToolStripMenuItem11_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem11.Click
        RichTextBox1
.Redo()
    
End Sub

    
Private Sub ToolStripMenuItem9_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem9.Click
        RichTextBox1
.Cut()
    
End Sub

    
Private Sub ToolStripMenuItem8_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem8.Click
        RichTextBox1
.Copy()
    
End Sub

    
Private Sub ToolStripMenuItem7_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem7.Click
        RichTextBox1
.Paste()
    
End Sub

    
Private Sub ToolStripMenuItem6_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem6.Click
        RichTextBox1
.Clear()

    
End Sub

    
Private Sub ToolStripMenuItem4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem4.Click
        Find
.Show()
    
End Sub

    
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripMenuItem3.Click

    End Sub

    
Private Sub ToolStripMenuItem13_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.FileNameRichTextBoxStreamType.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.FileNameRichTextBoxStreamType.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 
وهناك اكود اخرى

وأخير جاء وقت التحميل




تجدونة هنا انشاء الله

___________________


مع خالص تحياتى

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










الرد }}}
تم الشكر بواسطة:
#2
برنامج رائع اخى

ننتظر منك الأفضل
الرد }}}
تم الشكر بواسطة:
#3
اعدك ان اقدم ما بوسعى من مواضيع رائعة WinkWinkWink
الرد }}}
تم الشكر بواسطة:
#4
مشكوووور جداً .. شيء جميل والله يعطيك العافية
ينقل الى قسم المقالات
Everyone is a genius. It's just that some people are too stupidto realize it
الرد }}}
تم الشكر بواسطة:
#5
بارك الله فيك اخوي ...من الصور يبدو المثال قوي ورائع.
الرد }}}
تم الشكر بواسطة:
#6
شكراً جزيلاً لك و جزاك الله خيراً
الرد }}}
تم الشكر بواسطة:
#7
مفكرة جميلة

بارك الله فيك
متغيب قليلاً للدراسة Smile
الرد }}}
تم الشكر بواسطة:
#8
الرد }}}
تم الشكر بواسطة:
#9
برنامج رائع

بارك الله فيك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تتعامل مع برنامج الإكسيل من برنامجك rinawi 7 6,628 12-11-22, 12:11 AM
آخر رد: خالد العصاوي
  نظرة على DropBox SDK و التعامل معها +برنامج رفع و تحميل ملفات ابو ليلى 4 4,872 08-09-22, 11:54 AM
آخر رد: saif2023
  برنامج مبيعات ومشتريات وإدارة أعمال ( الفاتورة الإلكترونية ) yassoo1985 2 2,246 04-06-22, 01:14 PM
آخر رد: yassoo1985
Heart طلب برنامج Advanced Installer أبو خالد الشكري 0 1,418 16-05-22, 09:12 PM
آخر رد: أبو خالد الشكري
  أهم طرق إدارة المخازن وتطبيقها على برنامج مخازن وارد ومنصرف Menna ahmeed 0 1,967 27-04-22, 12:52 PM
آخر رد: Menna ahmeed
  طريقة إنشاء برنامج طباعة ملصقات الباركود ملهمـ 1 4,398 22-12-21, 05:09 PM
آخر رد: alessam4pro
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 4 6,097 18-07-21, 02:53 AM
آخر رد: kebboud
Heart [VB.NET] برنامج ادارة المطاعم و الكافيهات mgr21002100 6 6,653 14-01-21, 07:59 PM
آخر رد: abarrak
  تفعيل برنامج Visual Studio 2019 Adilo idabdellah 4 11,516 20-05-20, 11:48 AM
آخر رد: الفاضي
  برنامج المبيعات والمشتريات والمخازن و المطاعم mgr21002100 2 3,589 07-04-20, 04:29 AM
آخر رد: mgr21002100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم