• 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Creare un Notepad (VB 2010)
#1
Creare un Notepad in vb è molto semplice,e io oggi spiegherò come crearne uno completo. Allora inseriamo una RichTextBox e la mettiamo al centro del form e poi creiamo un MenuStrip e ci mettiamo le sezioni "File","Modifica","Tema". Ora dobbiamo mettere nella finestra dei codici sotto la scritta"Public Class Form1"

Codice:
 Dim int As Integer = 0
    Dim open As New OpenFileDialog
    Dim mystreamreader As System.IO.StreamReader

Fatto questo,nella sezione "File"mettiamo le sottosezioni che sarebbero"Apri Progetto","Salva progetto","Stampa Progetto","Nuovo progetto","Esci".
Invece nella sezione "Modifica "mettiamoci le sottosezioni che sono:"Annulla,taglia,copia,incolla,seleziona tutto"
Ora passiamo ai codici. Nella sezione File in Apri Progetto mettiamo il codice:

Codice:
open.CheckFileExists = True
open.Title = "Open Files"
open.ShowDialog(Me)

Try
open.OpenFile()
mystreamreader = System.IO.File.OpenText(open.FileName)
RichTextBox1.Text = mystreamreader.ReadToEnd()

Catch ex As Exception

End Try

In Salva mettiamo:

Codice:
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

In Stampa Mettiamo:

Codice:
Dim AB As New PrintDialog
       Try
           AB.ShowDialog()
          RichTextBox1.Text = AB.PrintToFile
       Catch ex As Exception
       End Try

In nuovo progetto:
Codice:
RichTextBox1.Text = ""

In esci:

Codice:
Application.Exit

Nella Sezione Modifica noi abbiamo creato la sottosezione "Annulla",dove dobbiamo scriverci il seguente codice:


Codice:
RichTextBox1.Undo()

In "Taglia"mettiamo:
Codice:
RichTextBox1.Cut()

In Incolla:

Codice:
RichTextBox1.Paste()

In copia:
Codice:
RichTextBox1.Copy()

In seleziona tutto:
Codice:
RichTextBox1.SelectAll()

Ora nella sezione"Tema"mettiamo le sottosezioni"Carattere"e poi anche la sottosezione"Colore" e ora nella sottosezione"Carattere"mettiamo il codice:


Codice:
Dim FS As New FontDialog
       Try
           FS.ShowDialog()
           RichTextBox1.SelectionFont = FS.Font
       Catch ex As Exception
       End Try
       RichTextBox1.SelectionFont = FS.Font()


Infine in colore dobbiamo mettere:


Codice:
Dim FS As New ColorDialog
       Try
           FS.ShowDialog()
           RichTextBox1.SelectionColor = FS.Color
       Catch ex As Exception
       End Try
       RichTextBox1.SelectionColor = FS.Color()

Fonte Sciax2, codici aggiustati.

Screen: Registrati e/o effettua il Login per vedere il Link. Registrati o Accedi. (Il risultato non è proprio questo, mancano varie cose, è solo per esempio.)
Benvenuto e buona permanenza.

  Cita messaggio
#2
Grazie , Ottima guida credo che sfrutterò la tua guida per crearmi un Notepad personale e lo metterò qui in Free Download !
[Immagine: cop.png]
  Cita messaggio


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)