Ciao a tutti, in questa guida vedremo come creare un NotePad con Visual Basic 2010.
1) Allora, create un nuovo progetto di Visual Basic.
Per prima cosa inseriamo un "menustrip" e una "textbox"; nel menustrip inseriamo: File, e Modifica. (Ricordiamoci di spuntare la casella multiline in textbox1, per regolare a nostro piacimento la grandezza del box)
Nel menù file creiamo le sottocartelle:
-Apri File
-Salva File
Nel menù modifica inseriamo:
-Annulla
-Copia
-Incolla
-Taglia
-Cancella tutto
2) Adesso i codici:
-Clicchiamo 2 volte sull'estremità dell'anteprima (dove c'è scritto il nome che avete dato al progetto o form1), e sotto alla voce "public class form1" inseriamo questo codice:
Adesso i codici singoli:
Apri File:
-Salva File:
-Annulla:
-Copia:
-Incolla:
-Taglia:
-Cancella Tutto:
4) Il lavoro è terminato. Se volete inserire un alert all'apertura del programma copiate questo codice in form1:
1) Allora, create un nuovo progetto di Visual Basic.
Per prima cosa inseriamo un "menustrip" e una "textbox"; nel menustrip inseriamo: File, e Modifica. (Ricordiamoci di spuntare la casella multiline in textbox1, per regolare a nostro piacimento la grandezza del box)
Nel menù file creiamo le sottocartelle:
-Apri File
-Salva File
Nel menù modifica inseriamo:
-Annulla
-Copia
-Incolla
-Taglia
-Cancella tutto
2) Adesso i codici:
-Clicchiamo 2 volte sull'estremità dell'anteprima (dove c'è scritto il nome che avete dato al progetto o form1), e sotto alla voce "public class form1" inseriamo questo codice:
Dim open As New OpenFileDialog
Dim mystreamreader As System.IO.StreamReader
Dim mystreamreader As System.IO.StreamReader
Apri File:
open.CheckFileExists = True
open.Title = "Open Files"
open.ShowDialog(Me)
Try
open.OpenFile()
mystreamreader = System.IO.File.OpenText(open.FileName)
TextBox1.Text = mystreamreader.ReadToEnd()
Catch ex As Exception
End Try
open.Title = "Open Files"
open.ShowDialog(Me)
Try
open.OpenFile()
mystreamreader = System.IO.File.OpenText(open.FileName)
TextBox1.Text = mystreamreader.ReadToEnd()
Catch ex As Exception
End Try
Dim save As New SaveFileDialog()
Dim mystreamwriter As System.IO.StreamWriter
save.Filter = "Text |*.txt"
save.CheckPathExists = True
save.Title = "Save Files"
save.ShowDialog(Me)
Try
mystreamwriter = System.IO.File.AppendText(save.FileName)
mystreamwriter.Write(TextBox1.Text)
mystreamwriter.Flush()
Catch ex As Exception
End Try
Dim mystreamwriter As System.IO.StreamWriter
save.Filter = "Text |*.txt"
save.CheckPathExists = True
save.Title = "Save Files"
save.ShowDialog(Me)
Try
mystreamwriter = System.IO.File.AppendText(save.FileName)
mystreamwriter.Write(TextBox1.Text)
mystreamwriter.Flush()
Catch ex As Exception
End Try
TextBox1.Undo()
TextBox1.Copy()
TestBox1.Paste()
TextBox1.Cut()
Textbox1.Text = ""
4) Il lavoro è terminato. Se volete inserire un alert all'apertura del programma copiate questo codice in form1:
MsgBox("Inserisci un messaggio!")
