Ecrire_Sauvegarder_Fichier.vb.net

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

avatar
migau
Administrateur
Administrateur
Messages : 2446
Points : 8598
Réputation : 4702
Date d'inscription : 21/10/2016
Localisation : Pays de la Loire
Voir le profil de l'utilisateur http://informaticsclubs.forumactif.org/

Messagemigau le Mer 16 Nov - 15:43

  • 18px
  • 24px


Ecrire_sauvegarder_Fichier.vb.net



Ecrire dans un fichier et le sauvegarder

cette application sert de bloc note rapide

2 textBox
4 boutons

le bouton ===>> permet de rechercher le dossier de réception du fichier
le bouton Save permet de créer le fichier texte
le bouton Reset permet de remettre à zero les 2 textbox avant de sauvegarder
le bouton Quitter permet de fermer l'application




Code:

Public Class Form1

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

    End Sub

    Private Sub BtnRecherche_Click(sender As Object, e As EventArgs) Handles BtnRecherche.Click
        Dim sauvegarde As New SaveFileDialog
        sauvegarde.filter = "du texte | *.txt"

        If TBFichier.Text = "" Then
            MsgBox("vous n'avez tabulé aucun texte" & vbNewLine & " sur votre espace de travail", vbCritical, "Erreur")

        Else
            sauvegarde.ShowDialog()
            TBcheminFichier.Text = sauvegarde.FileName
        End If

    End Sub

    Private Sub BtnSauve_Click(sender As Object, e As EventArgs) Handles BtnSauve.Click

        If TBcheminFichier.Text = "" Then
            MsgBox("Veuillez choisir l'emplacement de la sauvegarde" & vbNewLine & "et donner un nom à votre fichier", vbCritical, "Erreur")
        Else
            IO.File.WriteAllText(TBcheminFichier.Text, TBFichier.Text)
            MsgBox("Fichier sauvegardé", vbExclamation, "Sauvegarde")

            TBcheminFichier.Clear()
            TBFichier.Clear()

        End If
    End Sub

    Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
        If TBcheminFichier.Text = "" And TBFichier.Text = "" Then
            MsgBox("les textbox sont vides", vbCritical, "Erreur")
        Else
            TBcheminFichier.Clear()
            TBFichier.Clear()

        End If

    End Sub

    Private Sub TBFichier_TextChanged(sender As Object, e As EventArgs) Handles TBFichier.TextChanged

    End Sub
End Class



Dernière édition par migau le Sam 1 Juil - 23:13, édité 2 fois


★·.·´¯`·.·★migau★·.·´¯`·.·★
               

Le Forum

   
   

Facebook

   
   
           

la chaine youtube

   
   
avatar
jaja3

Messages : 2962
Points : 8355
Réputation : 4437
Date d'inscription : 22/10/2016
Age : 78
Localisation : Occitanie : Hérault
Voir le profil de l'utilisateur

Messagejaja3 le Ven 18 Nov - 13:06

  • 18px
  • 24px
Merci !


★·.·´¯`·.·★jaja★·.·´¯`·.·★

Le Forum

Facebook


la chaine youtube


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

Message personnel aux visiteurs

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