تقييم الموضوع :
  • 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
برنامج رائع

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حمل برنامج رائع بخصوص تصميم أي تخطيط إنسيابي للمشاريع Flowchart عبدالله خضر 0 172 14-03-17, 08:57 PM
آخر رد: عبدالله خضر
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 7 452 11-03-17, 03:54 PM
آخر رد: Riad dz
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 4 849 01-01-17, 05:20 PM
آخر رد: Basil Abdallah
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 2 613 31-12-16, 11:46 PM
آخر رد: Basil Abdallah
  عمل برنامج FTP Upload Basil Abdallah 3 222 31-12-16, 11:46 PM
آخر رد: Basil Abdallah
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 1 774 31-12-16, 11:44 PM
آخر رد: Basil Abdallah
Question [مقال] كيف تعرف عدد مستخدمين برنامج Basil Abdallah 6 312 31-12-16, 10:32 PM
آخر رد: Basil Abdallah
  [نقاش] هل تعلم هذا عن Select Case ali.alfoly 3 316 30-12-16, 07:00 PM
آخر رد: Basil Abdallah
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 564 11-09-16, 07:20 AM
آخر رد: أبووسم
  العلاقات بين الجداول-الاضافة و الحذف و التعديل-برنامج لحفظ مصادر الموقع ابو ليلى 10 1,658 23-06-16, 01:13 PM
آخر رد: yasser_72

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


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