Annonces
Avis à tous nos membres
ce forum est appelé a disparaitre pour laisser place à un nouveau forum
vous pouvez vous y rendre à l'adresse suivante https://informaticsclubs.fr
Derniers sujets
» Absence déménagement
par chrisnvidia Mer 29 Jan - 18:15

» TWINUI correspond à quoi ?
par migau Sam 25 Jan - 8:16

» test message auto verrouillé
par jlmic Sam 25 Jan - 7:01

» Booster le forum
par piwis Sam 18 Jan - 9:07

» Votes du mois de Janvier 2020
par piwis Sam 18 Jan - 9:06

» Chaine youtube personnalisée
par chrisnvidia Sam 11 Jan - 11:47

» Nouveau mot de passe pour le forum ?
par jlmic Sam 11 Jan - 11:18

» [A Lire] le règlement du forum
par ssl Ven 10 Jan - 19:51

Le Deal du moment :
HETP [Noire et Rouge HX-Y8] Batterie Externe 25800mah
Voir le deal
21.95 €

Color Syntaxique

Voir le sujet précédent Voir le sujet suivant Aller en bas

migau
migau

Messages : 5913
Points : 28080
Réputation : 17149
Date d'inscription : 21/10/2016
Localisation : Pays de la Loire
https://www.informaticsclubs.com/

Messagemigau le Mar 20 Aoû - 8:37

Information
les règles.
Pour toute question à propos de ce tutoriel merci  de la poser dans le forum de dépannage.
Poser une question au sujet de ce tutoriel en cliquant ICI

 n'hésitez pas à sauter le pas inscrivez-vous sur le forum, Merci.

je m'inscris


cette petite application me sert à créer mes canneds de désinfection
et insérer la couleur syntaxique à l'aide des boutons de couleur.
les fichiers ainsi créés ont l'extension RTF pour conserver la mise en forme du texte

Code:
Imports System.IO

Imports System.Drawing



Public Class ColorRichtextBox

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RichTextBox1.Text = "Ce sont des adwares/hijackers qui se sont installés avec ton consentement, " & vbNewLine &
"par manque de vigilance lors de l'installation d'applications sponsorisées, " & vbNewLine &
       " tu n'as pas décoché les sponsors proposés."

    End Sub

    Private Sub BtnCorlor_Click(sender As Object, e As EventArgs) Handles BtnCorlor.Click

        ' véridier si le texte ou une partie de texte est souligné

        If RichTextBox1.SelectedText = "" Then
            MsgBox("Veuillez souligner du texte", vbCritical, "erreur ! ")

        Else

            ' afficher la couleur , la police, la taille et en gras

            RichTextBox1.SelectionColor = Color.DarkRed
            RichTextBox1.SelectionFont = New Font("Tahoma", 14, FontStyle.Bold)

            ' Dim xcolor As New ColorDialog

            ' If xcolor.ShowDialog = 1 Then

            'TextBox2.ForeColor = xcolor.Color

        End If
    End Sub

    Private Sub BtnFont_Click(sender As Object, e As EventArgs) Handles BtnFont.Click


        Dim xFont As New FontDialog

        If xFont.ShowDialog = 1 Then

            RichTextBox1.Font = xFont.Font


        End If

    End Sub

    Private Sub BtnBleu_Click(sender As Object, e As EventArgs) Handles BtnBleu.Click

        ' véridier si le texte ou une partie de texte est souligné

        If RichTextBox1.SelectedText = "" Then
            MsgBox("Veuillez souligner du texte", vbCritical, "erreur ! ")

        Else

            ' afficher la couleur , la police, la taille et en gras

            RichTextBox1.SelectionColor = Color.Blue
            RichTextBox1.SelectionFont = New Font("Tahoma", 14, FontStyle.Bold)

        End If

    End Sub

    Private Sub BtnGreen_Click(sender As Object, e As EventArgs) Handles BtnGreen.Click

        ' véridier si le texte ou une partie de texte est souligné

        If RichTextBox1.SelectedText = "" Then
            MsgBox("Veuillez souligner du texte", vbCritical, "erreur ! ")

        Else
            ' afficher la couleur , la police, la taille et en gras

            RichTextBox1.SelectionColor = Color.Green
            RichTextBox1.SelectionFont = New Font("Tahoma", 14, FontStyle.Bold)

        End If

    End Sub

    Private Sub BtnBlack_Click(sender As Object, e As EventArgs) Handles BtnBlack.Click
        ' véridier si le texte ou une partie de texte est souligné

        If RichTextBox1.SelectedText = "" Then
            MsgBox("Veuillez souligner du texte", vbCritical, "erreur ! ")

        Else
            ' afficher la couleur , la police, la taille et en gras

            RichTextBox1.SelectionColor = Color.Black
            RichTextBox1.SelectionFont = New Font("Tahoma", 12)

        End If

    End Sub

    Private Sub BtnQuitter_Click(sender As Object, e As EventArgs) Handles BtnQuitter.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles BtnEtoile.Click


        If RichTextBox1.SelectedText = "" Then
            MsgBox("Veuillez souligner du texte", vbCritical, "erreur ! ")

        Else
            ' Ajouter l'étoile devant le  1er caratère de la ligne sélectionnée

            RichTextBox1.SelectedText = " * " & RichTextBox1.SelectedText

        End If

    End Sub



    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
        RichTextBox1.Focus()
        RichTextBox1.ScrollToCaret()

        RichTextBox1.WordWrap = False
        RichTextBox1.ScrollBars = RichTextBoxScrollBars.ForcedBoth


    End Sub

    Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
        RichTextBox1.Clear()
    End Sub

    Private Sub BtnFontEtoile_Click(sender As Object, e As EventArgs) Handles BtnFontEtoile.Click

        If RichTextBox1.SelectedText = "" Then
            MsgBox("Veuillez sélectionner le texte à souligner !", vbCritical, "erreur ! ")

        Else
            ' afficher la couleur , la police, la taille et en gras

            RichTextBox1.SelectionColor = Color.DarkRed
            RichTextBox1.SelectionFont = New Font("Tahoma", 16, FontStyle.Bold)

        End If

    End Sub

    Private Sub Btnsauvegarde_Click(sender As Object, e As EventArgs) Handles Btnsauvegarde.Click

        Using SaveFichier As New SaveFileDialog
            SaveFichier.Filter = "rtf Files|*.rtf"


            If SaveFichier.ShowDialog() = DialogResult.OK Then

                ' Save the contents of the RichTextBox into the file.
                RichTextBox1.SaveFile(SaveFichier.FileName)
            End If

        End Using

    End Sub

    Private Sub BtnOuvrir_Click(sender As Object, e As EventArgs) Handles BtnOuvrir.Click

        Using OuvrirFichier As New OpenFileDialog

            OuvrirFichier.Filter = "rtf Files|*.rtf"

            If (OuvrirFichier.ShowDialog() = DialogResult.OK) Then

                RichTextBox1.Rtf = File.ReadAllText(OuvrirFichier.FileName)

            End If

        End Using

    End Sub

    Private Sub BtnAdwcleaner_Click(sender As Object, e As EventArgs) Handles BtnAdwcleaner.Click
        RichTextBox1.Text = "AdwCleaner - Nettoyer
[list][*]Télécharger [url=https://toolslib.net/downloads/viewdownload/1-adwcleaner/][color=teal][b][u]AdwCleaner[/u][/b][/color][/url] de [b]Xplode[/b]
clic sur le gros bouton bleu, une nouvelle fenêtre s'ouvre, attendre le décompte et  enregistrer le fichier sur ton Bureau
[*] [color=#BF0080][b]Fermer toutes les applications, y compris ton navigateur[/b][/color]
[*] Double-cliquer sur l'icône [b]AdwCleaner.exe[/b] pour lancer l'installation
[*] [color=#BF0080][b]Lancer le fichier par [color=#BF0080][b]clic-droit -> Exécuter en tant qu'administrateur[/b][/color]

[*]Sur le menu principal, cliquer sur [b]Analyser maintenant [/b]

[img]https: https://i.servimg.com/u/f62/11/15/22/34/002_ad11.jpg[/img]

[*] Les éléments détectés s'affichent dans les différents onglets.
[*] Cliquer  sur [b]Nettoyer et redémarrer maintenant[/b]

[*] et valider par [b]OK[/b] la fermeture des programmes
[*] Patienter le temps de l'analyse et valide le message d'informations
[*] redémarrer le PC ,  valider par [b]OK[/b]
[*] Poster ce rapport dans ta prochaine réponse
[*] [i]Le rapport se trouve sous C:\AdwCleaner\AdwCleaner[C0].txt
[*]  (cliquer sur lien  vert et  souligné , ceciouvre  une fenête): [url=http://security-x.fr/up/] [b][color=green][u]Tu hébergeras le rapport ici[/u][/color][/b][/url]
[*] indiquer dans ta prochaine réponse le lien du rapport.[/list][*][color=#BF0080]



   

Voir le sujet précédent Voir le sujet suivant Revenir en haut

Créer un compte ou se connecter pour répondre

Vous devez être membre pour répondre.

S'enregistrer

Rejoignez notre communauté ! C'est facile !


S'enregistrer

Connexion

Vous êtes déjà membre ? Aucun soucis, cliquez ici pour vous connecter.


Connexion

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum