• Home
 · 
• Custom Controls/Forms/Menus
 · 
• How to make a simple notepad in visual basic

How to make a simple notepad in visual basic

How to make a simple notepad in visual basic

API Declarations


you will need a richtextbox and commondialogbox control
please make sure to name the common dialog box control (cd)
make menus such as new open , save ,saveas lets start...



Rate How to make a simple notepad in visual basic

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub menuopen_Click()
' will call the procedure optionopen here'
On Error Resume Next
Call optionopen
End Sub
optionopen is a procedure to open files
Private Sub optionopen()
Dim whatfile As String
Dim file1 As FileAttribute
Dim ask As String
  If rtbox.Text = "" Then
  cd.CancelError = False
  cd.Filter = " txtfiles (*.txt)|*.txt| All files (*.*)|*.*|"
  cd.Action = 1
  rtbox.FileName = cd.FileName
  frmmain.Caption = cd.FileName & " - " & " NotePad "
  menusave.Enabled = True
  ' here we taken a commondialogcontrol which we have name as cd'
  'the first line says that if the cancel button is pressed nothing will happen'
  'the second line tells is the extension of the file such as *.txt ,*.rtf ect...'
  'the third line tells is the open dialogbox'
  ' the fourth line explains the loadfile method'
  Else
  ' the condition states that if the file is already open and you want to open an another file it prompts a message box'
  ' if the user presses the yes button then it saves the file otherwise if the user presses no then it prompts an open dialogbox to open a file'
  ' we call the open method again'
   ask = MsgBox(" The file in the note has been changed! " & vbCr & " do you want to save changes you made to the file? ", vbYesNo + vbExclamation)
     If ask = (vbYes) Then
  cd.ShowOpen
  ElseIf ask = (vbNo) Then
   cd.CancelError = False
  cd.Filter = " txtfiles (*.txt)|*.txt|"
  cd.Action = 1
  rtbox.FileName = cd.FileName
    frmmain.Caption = cd.FileName & " - " & " NotePad "

  End If
   End If
End Sub
**************************************************************************
on the save event write this code
Private Sub menusaveas_Click()
' we call this procedure saveall'
saveall
menusave.Enabled = True
  frmmain.Caption = cd.FileName & " - " & " NotePad "
End Sub
saveall is a procedure to save files to your harddrive
Private Sub saveall()
On Error Resume Next
cd.Filter = " txtfiles (*.txt)|*.txt| All files (*.*)|*.*|"
cd.Flags = cd10FNOverWritePropmt
cd.InitDir = Directory
cd.ShowSave
rtbox.SaveFile cd.FileName
SavePicture picturename, cd.FileName

 ' if the file already exsist a message box will appear in front of the screen that file already exsist replace the data in the file'
End Sub
on the save event write this code
**************************************************************************
Private Sub menusave_Click()
On Error Resume Next
Dim picturename As String
rtbox.SaveFile cd.FileName
SavePicture Picture, rtbox.Text
cd.InitDir = Directory
cd.DefaultExt = ".txt"
cd.Copies = 1
frmmain.Caption = cd.FileName & " - " & " NotePad "
End Sub
on the new page event write this code
Private Sub menunew_Click()
On Error Resume Next
'we will call the procedure optionnew'
Call optionnew
End Sub
option all is a procedure for a new page event
Private Sub optionopen()
Dim whatfile As String
Dim file1 As FileAttribute
Dim ask As String
  If rtbox.Text = "" Then
  cd.CancelError = False
  cd.Filter = " txtfiles (*.txt)|*.txt| All files (*.*)|*.*|"
  cd.Action = 1
  rtbox.FileName = cd.FileName
  frmmain.Caption = cd.FileName & " - " & " NotePad "
  menusave.Enabled = True
  ' here we taken a commondialogcontrol which we have name as cd'
  'the first line says that if the cancel button is pressed nothing will happen'
  'the second line tells is the extension of the file such as *.txt ,*.rtf ect...'
  'the third line tells is the open dialogbox'
  ' the fourth line explains the loadfile method'
  Else
  ' the condition states that if the file is already open and you want to open an another file it prompts a message box'
  ' if the user presses the yes button then it saves the file otherwise if the user presses no then it prompts an open dialogbox to open a file'
  ' we call the open method again'
   ask = MsgBox(" The file in the note has been changed! " & vbCr & " do you want to save changes you made to the file? ", vbYesNo + vbExclamation)
     If ask = (vbYes) Then
  cd.ShowOpen
  ElseIf ask = (vbNo) Then
   cd.CancelError = False
  cd.Filter = " txtfiles (*.txt)|*.txt|"
  cd.Action = 1
  rtbox.FileName = cd.FileName
    frmmain.Caption = cd.FileName & " - " & " NotePad "

  End If
   End If
End Sub
*******************************************************************