Breadcrumbs

[TheSecretBoy]

Hello Guys

This is my first Tutorial hope you learn how to make tabbed notepad
ok lets start

-Create A new Project Name it what you want

-Add 6 Buttons ( New , Remove , Open , Save As... , Font , Color ) And 1 Tabcontrol

it will look like this.


Note : you can use MenuStrip or Toolbar but i choose button .

-Remove Tabpages



And here is the codes !

Dont forget to put Dim A As Integer = 1 or it won't work ( UNDER PUPLIC CLASS FORM )

Code: Select all

Puplic Class Form1  :
Dim A As Integer = 1
------------------------
Add Tab :
Dim RTB As New RichTextBox
TabControl1.TabPages.Add(1, "Page " & A)
TabControl1.SelectTab(A - 1)
RTB.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(RTB)
A = A + 1
------------------------------------------
RemoveTab:
If TabControl1.TabCount = 1 Then
'Do Nothing
Else
TabControl1.TabPages.RemoveAt(TabControl 1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPag es.Count - 1)
A = A - 1
End if
----------------------------------------------
Save:
Dim SFD As New SaveFileDialog
SFD.Filter = "Rich Text Files|*.rtf"
SFD.ShowDialog()
FileOpen(1, SFD.FileName, OpenMode.Output)
PrintLine(1, CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Text)
FileClose(1)
-------------------------------------------------
Open:
Dim OPF As New OpenFileDialog
Dim AllText As String = "", LineOfText As String = ""
OPF.Filter = "All Files|*.*"
OPF.ShowDialog()
Try
FileOpen(1, OPF.FileName, OpenMode.Input)
Do Until EOF(1)
LineOfText = LineInput(1)
AllText = AllText & LineOfText & vbCrLf
Loop
CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Text = AllText
Catch

Finally
FileClose(1)
End Try
----------------------------------------------------------
Font:
Dim FS As New FontDialog
FS.ShowDialog()
CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Font = FS.Font
---------
Colour:
Dim FC As New ColorDialog
FC.ShowDialog()
CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).ForeColor = FC.Color
---------

You Can Use the normal Richtextbox Codes on this like :

Code: Select all

CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Undo

CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox) = Richtextbox !

Hope you like my first tut !

[Axel]

actually , this is to easy to make and its not really alot of code lol (alot of friggin comments)

[iLenkaa]

I don't think it's really usefull.
I mean, you have Notepad on your computer. Why would anybody else want to download a less intelligent one? :P
iLenkaa

[TheSecretBoy]

I don't think it's really usefull.
I mean, you have Notepad on your computer. Why would anybody else want to download a less intelligent one? :P
iLenkaa

This is not only used for Notepads idoit;
you can you this for webbrowsers + many programs hehaho;

--------------------------------------------------------------------------------------------------------------------------------------------
Thanks

[iLenkaa]

I don't think it's really usefull.
I mean, you have Notepad on your computer. Why would anybody else want to download a less intelligent one? :P
iLenkaa

This is not only used for Notepads idoit;
you can you this for webbrowsers + many programs hehaho;

--------------------------------------------------------------------------------------------------------------------------------------------
Thanks

I didn't say it wasn't good :P lmao;
I like it. :P
But yeah. I just don't think it's very usefull for something...

[hungryhounduk]

I don't think it's really usefull.
I mean, you have Notepad on your computer. Why would anybody else want to download a less intelligent one?
iLenkaa

ILenkaa

You have to Remember that this site is for all People with all Levels of Coding, If it makes you feel good designing and coding an app then YES you should PROUDLY show it off It does not matter if its as good or Bad as Windows Notepad, Its the trying and the satisfaction of getting it all right and then posting it up, That is what we like to see on here........Just remember WE all had to start somewhere ;)

Chris

[MrAksel]

I don't think it's really usefull.
I mean, you have Notepad on your computer. Why would anybody else want to download a less intelligent one? :P
iLenkaa

Dude this is a tutorial for people that is new to programming, don't post these friggin disappointing comments. You should be glad he posted it!
You wouldn't be glad if someone said that to you i you thought you had posted a wonderful tutorial!

[tought5]

nice tutorial dude