Tutoriel [VB.NET] Créer un logiciel de traitement de texte

Paradise GTP · 30 Décembre 2013

You must be registered for see images attach

Hello, on ce retrouve pour un tutoriel.
Donc voila l'interface du logiciel

You must be registered for see images attach

Donc vous aurez besoin de mettre :
- Une textBox
- Un menustrip
- Un label
- Un SaveFileDialog
- Un OpenFileDialog
- Un ColorDialog

Dans le menu strip :
Le menu Fichier avec dedans :
- Nouveau
- Enregistrer
- Imprimer
- Ouvrir

Le menu Police avec dedans :
- Police
- Couleur
- Alignement
Avec dans le menu alignement :
Droite
Gauche
Centré

Voila :espion:

Avant tous importer sa :

Code:

[/CENTER]
Imports System.IO
Imports System.Drawing.Font
Imports System.Drawing.Printing

You must be registered for see images attach

Programmation du SaveFileDialog et OpenFileDialog sont les même :
Filter :

Code:

Fichier Texte|".txt

Donc le bouton nouveau :

Code:

  TextBox1.Text = ""

Dans le bouton Ouvrir :

Code:

[/CENTER]
  If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  Dim SR As New StreamReader(OpenFileDialog1.FileName)
  TextBox1.Text = SR.ReadToEnd
  SR.Close()
  End If

Dans le bouton enregistrer :

Code:

  If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

  Dim SW As New StreamWriter(SaveFileDialog1.FileName)
  SW.Write(TextBox1.Text)
  SW.Close()
  End If

Dans le bouton imprimer :

Code:

  Try
  Dim PrintDoc As New PrintDocument
  AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
  PrintDoc.Print()
  Catch ex As Exception
  MessageBox.Show("Désolé nous ne pouvons pas imprimer ce doccument", ex.ToString())
  End Try

Dans le bouton couleur :

Code:

  If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  TextBox1.ForeColor = ColorDialog1.Color
  End If

Dans le bouton Police :

Code:

  Dim instance As New FontDialog
  instance.ShowDialog()
  TextBox1.Font = instance.Font

Dans le bouton centré :

Code:

  TextBox1.TextAlign = HorizontalAlignment.Center

Dans le bouton droite:

Code:

  TextBox1.TextAlign = HorizontalAlignment.Right

Dans le bouton droite:

Code:

  TextBox1.TextAlign = HorizontalAlignment.Left

Et pour finir dans la textBox :

Code:

  Label1.Text = Len(TextBox1.Text) & " caractères"

Voila ces codes ne sont pas que pour un traiteur de texte, vous pouvez les utilisez pour tout autre choses

Tutoriel écrit, screen 100% by Boosterz.
Le copié collé est strictement INTERDIT
Cordialement,
Boosterz GTP

Grégory · 30 Décembre 2013

Tu ne t'arrête plus dis donc

GG !

Supp · 30 Décembre 2013

Merci, sa va m'être utile justement !

Ability'Broh · 31 Décembre 2013

Je commence a m’intéresser a ceux truc

deleted226438 · 29 Octobre 2014

Boosterz #TF a dit:
You must be registered for see images attach

Hello, on ce retrouve pour un tutoriel.
Donc voila l'interface du logiciel

You must be registered for see images attach

Donc vous aurez besoin de mettre :
- Une textBox
- Un menustrip
- Un label
- Un SaveFileDialog
- Un OpenFileDialog
- Un ColorDialog

Dans le menu strip :
Le menu Fichier avec dedans :
- Nouveau
- Enregistrer
- Imprimer
- Ouvrir

Le menu Police avec dedans :
- Police
- Couleur
- Alignement
Avec dans le menu alignement :
Droite
Gauche
Centré

Voila

Avant tous importer sa :

Code:

[/CENTER] Imports System.IO Imports System.Drawing.Font Imports System.Drawing.Printing

You must be registered for see images attach

Programmation du SaveFileDialog et OpenFileDialog sont les même :
Filter :

Code:

Fichier Texte|".txt

Donc le bouton nouveau :

Code:

TextBox1.Text = ""

Dans le bouton Ouvrir :

Code:

[/CENTER] If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim SR As New StreamReader(OpenFileDialog1.FileName) TextBox1.Text = SR.ReadToEnd SR.Close() End If

Dans le bouton enregistrer :

Code:

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim SW As New StreamWriter(SaveFileDialog1.FileName) SW.Write(TextBox1.Text) SW.Close() End If

Dans le bouton imprimer :

Code:

Try Dim PrintDoc As New PrintDocument AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText PrintDoc.Print() Catch ex As Exception MessageBox.Show("Désolé nous ne pouvons pas imprimer ce doccument", ex.ToString()) End Try

Dans le bouton couleur :

Code:

If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.ForeColor = ColorDialog1.Color End If

Dans le bouton Police :

Code:

Dim instance As New FontDialog instance.ShowDialog() TextBox1.Font = instance.Font

Dans le bouton centré :

Code:

TextBox1.TextAlign = HorizontalAlignment.Center

Dans le bouton droite:

Code:

TextBox1.TextAlign = HorizontalAlignment.Right

Dans le bouton droite:

Code:

TextBox1.TextAlign = HorizontalAlignment.Left

Et pour finir dans la textBox :

Code:

Label1.Text = Len(TextBox1.Text) & " caractères"

Voila ces codes ne sont pas que pour un traiteur de texte, vous pouvez les utilisez pour tout autre choses

Tutoriel écrit, screen 100% by Boosterz.
Le copié collé est strictement INTERDIT
Cordialement,
Boosterz GTP

Merci

GDK · 3 Novembre 2014

C'est intéressant sa.

Tutoriel [VB.NET] Créer un logiciel de traitement de texte

Paradise GTP

Grégory

Développeur

Supp

Ability'Broh

Je suis comme je suis ,si t'aime pas c'est pareil.

deleted226438

GDK

C’est plus ce que c’était..