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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 2 437 27-10-16, 04:03 PM
آخر رد: rafaag777
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 278 11-09-16, 07:20 AM
آخر رد: أبووسم
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 0 261 09-07-16, 08:30 PM
آخر رد: mohamed atef2018
  العلاقات بين الجداول-الاضافة و الحذف و التعديل-برنامج لحفظ مصادر الموقع ابو ليلى 10 886 23-06-16, 01:13 PM
آخر رد: yasser_72
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 321 02-06-16, 11:13 AM
آخر رد: CLARO
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 1 392 01-06-16, 10:20 PM
آخر رد: CLARO
  شرح انشاء برنامج دردشة بسيط CLARO 0 251 28-05-16, 02:24 PM
آخر رد: CLARO
  كيف تصنع نسخة إحتياطية لملفات الداتا بيز silverlight 0 375 31-01-16, 12:37 AM
آخر رد: silverlight
Wink عمل برنامج فك الضغط alking-0999 0 300 20-12-15, 06:32 PM
آخر رد: alking-0999
  هل تعلم؟ Aly El-Haddad 7 1,267 17-08-15, 01:59 AM
آخر رد: عبد الله

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


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