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
In questa pagina del sito puoi guardare il video online Visual Basic Tutorial 1 - Simple Notepad della durata di ore minuti seconda in buona qualità , che l'utente ha caricato iloveportals 23 agosto 2010, condividi il link con amici e conoscenti, su youtube questo video è già stato visto 1,149 volte e gli è piaciuto 2 spettatori. Buona visione!