Text Editor By Harsh Mathur.
- 1. Text Editor Presented By Harsh Mathur Bachelor of Computer Application Dezyne E’cole College, Ajmer
- 2. Project report on Text Editor Submitted To Dezyne E’cole College Towards The Partial Fulfillment Of Final Year, Bachelor of Computer Application By Harsh Mathur Dezyne E,cole College 106/10, Civil Line, Ajmer www.dezyneecole.com
- 3. Front View:
- 4. Open File:
- 5. Write and Edit Text:
- 6. Save Work:
- 7. CODE Form1 : Begin VB.Form Form1 BackColor = &H00FFFFFF& Caption = "Form1" ClientHeight = 5415 ClientLeft = 120 ClientTop = 450 ClientWidth = 8130 LinkTopic = "Form1" ScaleHeight = 5415 ScaleWidth = 8130 StartUpPosition = 3 'Windows Default Begin VB.ComboBox Combo1 BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 3840 TabIndex = 6 Text = "Combo1" Top = 4920 Width = 2655 End Begin VB.CommandButton Command2 Caption = "Save" BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6480 TabIndex = 5 Top = 4920 Width = 1455 End Begin VB.TextBox Text1 Height = 525 Left = 3840
- 8. TabIndex = 4 Top = 4200 Width = 4095 End Begin VB.CommandButton Command1 Caption = "Open" BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 120 TabIndex = 3 Top = 4800 Width = 3495 End Begin VB.FileListBox File1 BackColor = &H00FFFFFF& Height = 3990 Left = 3840 TabIndex = 2 Top = 120 Width = 4095 End Begin VB.DirListBox Dir1 Height = 4140 Left = 120 TabIndex = 1 Top = 600 Width = 3495 End Begin VB.DriveListBox Drive1 BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 120 TabIndex = 0 Top = 120 Width = 3495 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True
- 9. Attribute VB_Exposed = False Private Sub Command1_Click() Form2.RichTextBox1.LoadFile (Dir1.Path & "" & File1.FileName) Form1.Hide End Sub Private Sub Command2_Click() Form2.RichTextBox1.SaveFile (Dir1.Path & "" & Text1.Text & Combo1.Text) Form1.Hide End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Form_Load() Form1.Combo1.Text = "Save As" Form1.Combo1.AddItem ".txt" Form1.Combo1.AddItem ".doc" End Sub
- 10. Form2: Begin VB.Form Form2 BackColor = &H00808080& BorderStyle = 1 'Fixed Single Caption = "Form2" ClientHeight = 8880 ClientLeft = 45 ClientTop = 375 ClientWidth = 16095 FillColor = &H00FFFFFF& ForeColor = &H00FFFFFF& LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 8880 ScaleWidth = 16095 StartUpPosition = 2 'CenterScreen Begin VB.ComboBox Combo4 BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 13680 TabIndex = 6 Text = "Combo4" Top = 1920 Width = 2175 End Begin VB.ComboBox Combo3 BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 13680 TabIndex = 5
- 11. Text = "Combo1" Top = 1320 Width = 2175 End Begin VB.ComboBox Combo2 BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 13680 TabIndex = 4 Text = "Combo1" Top = 720 Width = 2175 End Begin VB.ComboBox Combo1 BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 405 Left = 13680 TabIndex = 3 Text = "Combo1" Top = 120 Width = 2175 End Begin VB.CommandButton Command2 Caption = "Save" BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 13680 TabIndex = 2 Top = 3480 Width = 2175 End Begin VB.CommandButton Command1 Caption = "Open"
- 12. BeginProperty Font Name = "Calibri" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 13680 TabIndex = 1 Top = 2640 Width = 2175 End Begin RichTextLib.RichTextBox RichTextBox1 Height = 8535 Left = 240 TabIndex = 0 Top = 120 Width = 13335 _ExtentX = 23521 _ExtentY = 15055 _Version = 393217 BackColor = 8421504 ScrollBars = 3 AutoVerbMenu = -1 'True TextRTF = $"Form2.frx":0000 End End Attribute VB_Name = "Form2" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Combo1_Click() RichTextBox1.SelFontName = Combo1.Text End Sub Private Sub Combo2_click() RichTextBox1.SelFontSize = Combo2.Text End Sub Private Sub Combo3_Click() If Combo3.Text = "Red" Then RichTextBox1.SelColor = vbRed ElseIf Combo3.Text = "Green" Then RichTextBox1.SelColor = vbGreen ElseIf Combo3.Text = "Blue" Then RichTextBox1.SelColor = vbBlue End If
- 13. End Sub Private Sub Combo4_Click() If Combo4.Text = "Left" Then RichTextBox1.SelAlignment = 0 ElseIf Combo4.Text = "Right" Then RichTextBox1.SelAlignment = 1 ElseIf Combo4.Text = "Center" Then RichTextBox1.SelAlignment = 2 End If End Sub Private Sub Command1_Click() Form1.Show End Sub Private Sub Command2_Click() Form1.Show End Sub Private Sub Form_Load() Combo1.Text = "Font Name" Combo2.Text = "Font Size" Combo3.Text = "Font Color" Combo4.Text = "Alingement" For i = 1 To 72 Step 4 Combo1.AddItem Screen.Fonts(i) Next For i = 1 To Screen.FontCount Combo2.AddItem (i) Next Combo3.AddItem "Red" Combo3.AddItem "Green" Combo3.AddItem "Blue" Combo4.AddItem "Left" Combo4.AddItem "Right" Combo4.AddItem "Center" End Sub