Hacker WarRock :: [Tuto]Créer un Bloc Note avancé
Hacker WarRock Forum Index
Hacker WarRock
Les meilleurs Hacks WarRock!!
 
Hacker WarRock Forum IndexFAQSearchRegisterLog in

:: [Tuto]Créer un Bloc Note avancé ::

 
Post new topic   Reply to topic    Hacker WarRock Forum Index -> Programmation -> Visual basic 2008
Previous topic :: Next topic  
Author Message
RagePanda
Membre Fidèle
Membre Fidèle

Offline

Joined: 13 Jul 2010
Posts: 97
Système d'exploitation: Vista
Localisation: 13
Masculin Cancer (21juin-23juil)
LVL Warrock: lvl 12
Moyenne de points: 1.02
PostPosted: Sat 25 Dec 2010 - 14:13    Post subject: [Tuto]Créer un Bloc Note avancé Reply with quote
Le tuto prend environ 15 minutes si l'on est attentif

Comment créer un bloc note en VB.Net ? Confused
eh bien c'est tout simple  Wink (vu que tout est déjà pré-crée)

1) Ajouter une RichTextBox et l'intégrer au contenu parent ( si cela n'est pas fait automatiquement )
2) Ajouter un MenuStrip
3) Le premier menu aura pour titre "Fichier", le deuxième "Edition" et pour finir le troisième se nommera "Format", comme ceci :



4) Occupons nous maintenant du menu "Fichier" (on passera au code plus tard)
    - Ajoutez l'item "Nouveau"
    - Ajoutez l'item "Ouvrir"
    - Ajoutez l'item "Enregistrer"
    - Ajoutez l'item "Quitter"

5) Occupons nous maintenant du menu "Edition"
    - Ajoutez l'item "Annuler"
    - Ajoutez l'item "Suivant"
    - Ajoutez un séparateur
    - Ajoutez l'item "Couper"
    - Ajoutez l'item "Copier"
    - Ajoutez l'item "Coller"
    - Ajoutez un séparateur
    - Ajoutez l'item "Supprimer tout"
    - Ajoutez l'item "Sélectionner tout"

6) et enfin le menu "Format"
    - Ajoutez l'item "Police"
    - Ajoutez l'item "Couleur"

7) Attaquons maintenant le code Rolling Eyes
    Vous inquiétez pas il est très simple Mr. Green

Pour l'item "Nouveau"
Code:

 RichTextBox1.Clear()
Pour l'item "Ouvrir"
Code:

         Try
            Dim dlg As OpenFileDialog = New OpenFileDialog
            dlg.Title = "Ouvrir"
            dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.LoadFile(dlg.FileName)
            End If
        Catch ex As Exception : End Try
Pour l'item "Enregistrer"
Code:

         Try
            Dim dlg As SaveFileDialog = New SaveFileDialog
            dlg.Title = "Enregistrer"
            dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception : End Try
Pour l'item "Quitter"
Code:

 Me.Close()
Pour l'item "Annuler"
Code:

 RichTextBox1.Undo()
Pour l'item "Suivant"
Code:

 RichTextBox1.Redo()
Pour l'item "Couper"
Code:

 RichTextBox1.Cut()
Pour l'item "Copier"
Code:


 RichTextBox1.Copy()
Pour l'item "Coller"
Code:

 RichTextBox1.Paste()
Pour l'item "Supprimer tout"
Code:

 RichTextBox1.Clear()
Pour l'item "Sélectionner tout"
Code:

 RichTextBox1.SelectAll()
Pour l'item "Police"
Code:

         Try
            Dim dlg As FontDialog = New FontDialog
            dlg.Font = RichTextBox1.Font
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.Font = dlg.Font
            End If
        Catch ex As Exception : End Try
Pour l'item "Couleur"
Code:

         Try
            Dim dlg As ColorDialog = New ColorDialog
            dlg.Color = RichTextBox1.ForeColor
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.ForeColor = dlg.Color
            End If
        Catch ex As Exception : End Try

Un petit merci ne coute rien
Faites moi part de vos créations
Merci de ne pas copier le tutoriel
La Unclear Team

http://creativecommons.org/licenses/by-nc-sa/2.0/fr/
_________________
Ma Devise : Manger Manger jusqu'à en avoir mal au point d'éclater !
Back to top
Visit poster’s website MSN
Geek
Ancien Admin
Ancien Admin

Offline

Joined: 28 Dec 2009
Posts: 714
Système d'exploitation: Vista
Localisation: Devant l'ordi
Masculin Taureau (20avr-20mai)
LVL Warrock: lvl 9
Moyenne de points: 0.14
PostPosted: Sat 25 Dec 2010 - 16:45    Post subject: [Tuto]Créer un Bloc Note avancé Reply with quote
Très bon tuto, continue comme sa Wink


C'est compréhensible, facile a comprendre, parfait quoi  Okay  
_________________
Support : supporthackerwarrock-geek@hotmail.fr
Back to top
MSN
[Pro] kevdu83
Hacker Pro
Hacker Pro

Offline

Joined: 14 Jun 2010
Posts: 469
LVL Warrock: lvl 13
Moyenne de points: 0.98
PostPosted: Sat 25 Dec 2010 - 19:38    Post subject: [Tuto]Créer un Bloc Note avancé Reply with quote
Bravo good game enfin un sujet dans visual basique que je regarde tout le temps mais jamais rien )'=
_________________
EX keke83400 banni du chat par xxxx


Je suis gentil je ne cite pas le nom !
Back to top
RagePanda
Membre Fidèle
Membre Fidèle

Offline

Joined: 13 Jul 2010
Posts: 97
Système d'exploitation: Vista
Localisation: 13
Masculin Cancer (21juin-23juil)
LVL Warrock: lvl 12
Moyenne de points: 1.02
PostPosted: Sun 26 Dec 2010 - 14:21    Post subject: [Tuto]Créer un Bloc Note avancé Reply with quote
Pas de problème, j'en ferais d'autres si j'ai le temps
_________________
Ma Devise : Manger Manger jusqu'à en avoir mal au point d'éclater !
Back to top
Visit poster’s website MSN
Display posts from previous:   
Post new topic   Reply to topic    Hacker WarRock Forum Index -> Programmation -> Visual basic 2008 All times are GMT + 2 Hours
Page 1 of 1

 
Jump to:  

Index | Create a forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation

© Hacker-WarRock © 2009 - 2012
Powered by WeWeWe13 & Himka