Visual Basic Making NotePad

Made By runup4fever1

Code is ::::

Public Class Form1
Dim i As Integer = 1
---------
AddTab:
Dim Edit As New RichTextBox
TabControl1.TabPages.Add(1, "Page " & i)
TabControl1.SelectTab(i - 1)
Edit.Name = "TE"
Edit.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Edi t)
i = i + 1
---------
RemoveTab:
If TabControl1.TabCount = 1 Then

Else
TabControl1.TabPages.RemoveAt(TabControl 1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPag es.Count - 1)
i = i - 1
---------
Save:
Dim SaveFileDialog1 As New SaveFileDialog
SaveFileDialog1.Filter = "Rich Text Files|*.rtf"
SaveFileDialog1.ShowDialog()
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Text)
FileClose(1)
---------
Open:
Dim OpenFileDialog1 As New OpenFileDialog
Dim AllText As String = "", LineOfText As String = ""
OpenFileDialog1.Filter = "All Files|*.*"
OpenFileDialog1.ShowDialog()
Try
FileOpen(1, OpenFileDialog1.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
---------
Clear All:
CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Text = ""

Category:

Entertainment

Tags:

• Visual
• Basic
• 2008
• Notepad
• Making
• VisualBasic2008MakingNotePad

[123halo97]

Awesome video, but if you want the form to be resisize-able, you can add a panel and put every button in there and dock the panel to the top.

And then dock the tabcontrol in the middle.

Thanks :))

[solutionhacker]

Continue making Visual Basic Videos!!!

Keep it up!

[absiliomundus]

This song brings back memories xD

[shadowoflightvideo]

Thanks, I was expierencing troubles when I wanted to use tabs for richtextbox. This code helped me on my way.

Maybe you should alter some codes to something simpler like

Clear All:

CType(TabControl1.SelectedTab.­Controls.Item(0), RichTextBox).clear()

(Instead of .text=""

Thanks again ;)

[HabboMoviesRecords]

Can you upload this to mediafire and send me the link for this?

[Razvysb93]

thanks for code runup4fever1

like + subscribe

[solutionhacker]

Also subscribed!

[solutionhacker]

I wanted to be your first "supporter".

Kuz I don't have much comments either.

I rate 5 starts for you.

[solutionhacker]

Good Video!!! I'll be the first to comment that you did a good job!!!!

-You included source code

-Summarized w/ alot of details

-Restored meaning to the word "tutorial video"

- Helped me alot!!!!

Thanks so much.

Bless you!!!