Click here to Skip to main content
15,123,118 members
Articles / Programming Languages / Visual Basic
Posted 26 Apr 2008


39 bookmarked

Notepad.NET - Creating a clone of notepad in Visual Basic

Rate me:
Please Sign up or sign in to vote.
2.57/5 (21 votes)
4 May 2008CPOL3 min read
Creating a clone of notepad in Visual Basic


This is a simple and fully functional clone of the standard Windows Notepad. The article describes about the functions used in Notepad and tells the logic to write the code. Code is also provided


Notepad basically has File, Edit, Format, View and Help.

I have recreated the menus File, Edit, Format and Help. I have excluded View menu because I think a simple notepad Application doesn't require any status bar. If you think you need a status bar, I've also provided the code for it.

Using the code

File Menu

New - If the document is modified then a Message Box with the buttons Yes and No is displayed asking whether it should be saved or not. Code is :

If doc.Modified = True Then
            Dim x As Integer = MsgBox("Do you want to save the modified document ?", MsgBoxStyle.YesNo)
            If x = vbYes Then
                Me.Text = "Untitled - Notepad.NET"
            End If
            Me.Text = "Untitled - Notepad.NET"

        End If          

Open - File is opened and Notepad.NET uses Rijndael encryption - HEX is encoding type. I have took a Cryptography class from this site called "Crypto.vb". I have implemented this to decrypt the data in the TextBox doc.

Save - File is saved using the same encryption algorithm.


A PageSetupDialog is also used.

Edit menu has the standard Cut, Copy, Paste, Undo etc.

When it came to the part of Find, Find Next and Replace, It was a big confusion and there was a difficulty doing it. But I turned up successfully with it.

Logic and Code of both Find and Replace

First I created a function called FindText with a dependency on the start_pos (declared as Integer). This is the starting position. Then I declared two private variables - target_pos (integer for determining the target's position) and target (declared as string).

Then I declared pos as integer

Pos is assigned to the function InStr that determines the position of the text.

So if pos is above 0 then text is found. So to select text, target_pos is assigned to ps.

The selection was a quite a difficulty for me.

The textbox's SelectionStart property determines the starting position. So it is target_pos minus 1. The selection goes up to the end. So the SelectionLength property is set to


If its not found , Clear the target variable and display message that text is not found.

Ain't it easy ???

The code I came up with is :

The code is as following

Private Sub FindText(ByVal start_pos as integer)
 Dim pos As Integer

        pos = InStr(start_pos, doc.Text.ToLower, tf.Text.ToLower)
        If pos > 0 Then
            target_pos = pos
            doc.SelectionStart = target_pos - 1
            doc.SelectionLength = Len(target) - (Len(target) - Len(target))

            MsgBox("Text Not Found")
            target = ""
        End If

End Sub    

   target = InputBox("Enter Word to find")

        If doc.SelectedText <> target Then

            x = InputBox(String.Format("Selected text is : {0}. Enter text to replace", target))
            doc.SelectedText = x
        End If

The above is the code for Replace.

Word Wrap is a default property of the textbox.

Code for FindNext is also simple

Just add 1 to target_pos.

So code will be

FindText(target_pos + 1)

Font can be changed by declaring a new FontDialog, assigning the selected font to the textbox font and textbox fontstyle to the dialog's selected style.

Thats All.

Simple isn't it ?

If you think new functions can be added, please comment so I will receive a notification and respond as soon as possible.

<script type="text/javascript"> var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www."); document.write(unescape("%3Cscript src='" + gaJsHost + "' type='text/javascript'%3E%3C/script%3E")); </script> <script type="text/javascript"> var pageTracker = _gat._getTracker("UA-2980480-6"); pageTracker._initData(); pageTracker._trackPageview(); </script>


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


About the Author

Anshul R
India India
No Biography provided

Comments and Discussions

Questionquestion about project Pin
Member 113466521-Jan-15 9:06
MemberMember 113466521-Jan-15 9:06 
Questionvery nice Pin
ibasskung16-Jul-14 1:25
Memberibasskung16-Jul-14 1:25 
QuestionC# version Pin
Luis Perez ----- (Simply Good Code)1-Aug-12 5:56
MemberLuis Perez ----- (Simply Good Code)1-Aug-12 5:56 
GeneralMy vote of 2 Pin
noreply-thephoenixprod21-Mar-12 1:03
Membernoreply-thephoenixprod21-Mar-12 1:03 
GeneralNotepad with Pin
PramodKandpal17-Jan-12 23:50
MemberPramodKandpal17-Jan-12 23:50 
GeneralRe: Notepad with Pin
Luis Perez ----- (Simply Good Code)1-Aug-12 5:56
MemberLuis Perez ----- (Simply Good Code)1-Aug-12 5:56 
GeneralNo problem Pin
Terence Wallace6-Dec-08 19:44
MemberTerence Wallace6-Dec-08 19:44 
Question.LOG Files? Pin
Gulsath30-Jun-08 9:02
MemberGulsath30-Jun-08 9:02 
AnswerRe: .LOG Files? Pin
Gulsath30-Jun-08 9:12
MemberGulsath30-Jun-08 9:12 
AnswerRe: .LOG Files? Pin
Anshul R1-Jul-08 5:09
MemberAnshul R1-Jul-08 5:09 
GeneralRe: .LOG Files? Pin
Gulsath1-Jul-08 8:32
MemberGulsath1-Jul-08 8:32 
GeneralRe: .LOG Files? Pin
Anshul R2-Jul-08 5:04
MemberAnshul R2-Jul-08 5:04 
GeneralUpdated Pin
Anshul R4-May-08 0:46
MemberAnshul R4-May-08 0:46 
GeneralNot up to mark but Pin
Maruf Maniruzzaman27-Apr-08 5:32
MemberMaruf Maniruzzaman27-Apr-08 5:32 
GeneralRe: Not up to mark but Pin
Jeffrey Walton27-Apr-08 5:50
MemberJeffrey Walton27-Apr-08 5:50 
GeneralRe: Not up to mark but Pin
Anshul R3-May-08 23:04
MemberAnshul R3-May-08 23:04 
GeneralNeeds work Pin
Rob Graham27-Apr-08 4:29
MemberRob Graham27-Apr-08 4:29 
GeneralRe: Needs work PinPopular
Anshul R3-May-08 23:10
MemberAnshul R3-May-08 23:10 
QuestionWhich is it? Pin
#realJSOP27-Apr-08 2:42
mva#realJSOP27-Apr-08 2:42 
AnswerRe: Which is it? Pin
Paul Conrad27-Apr-08 5:29
professionalPaul Conrad27-Apr-08 5:29 
GeneralRe: Which is it? Pin
Anshul R3-May-08 23:14
MemberAnshul R3-May-08 23:14 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.