Codes :
New :
textbox1.text = ""
Copy :
textbox1.copy()
Paste :
textbox1.Paste()
Cut :
textbox1.cut()
Select All :
textbox1.selectAll()
open :
Dim Open As New OpenFileDialog
Open.Filter = "ScrapPad Text File(*.stf).stf|ALLFILE(*.*)|*.*"
Open.Title = "Open ScrapPad Text File"
Open.CheckPathExists = True
Open.ShowDialog(Me)
On Error Resume Next
Dim RT As New System.IO.StreamReader(Open.FileName)
On Error Resume Next
TextBox1.Text = RT.ReadToEnd
Save :
Dim Save As New SaveFileDialog
Save.Filter = "ScrapPad Text File (*.stf)|*.stf|ALL FILES (*.*)|*.*"
Save.Title = "Save File"
Save.CheckPathExists = True
Save.ShowDialog(Me)
Try
My.Computer.FileSystem.WriteAllText(Save.FileName, TextBox1.Text, False)
Catch ex As Exception
End Try
Font :
Dim Font as new FontDialog
Font.ShowDialog()
textbox1.font = font.Font
Colour :
Dim c as New ColorDialog
c.showDialog()
textbox1.forecolor = c.color
Alignment LEFT :
TextBox1.TextAlign = HorizontalAlignment.Left
Alignment CENTER :
TextBox1.TextAlign = HorizontalAlignment.Center
Alignment RIGHT :
TextBox1.TextAlign = HorizontalAlignment.Right
On this page of the site you can watch the video online Visual Basic Tutorial 1 - Simple Notepad with a duration of hours minute second in good quality, which was uploaded by the user iloveportals 23 August 2010, share the link with friends and acquaintances, this video has already been watched 1,149 times on youtube and it was liked by 2 viewers. Enjoy your viewing!