Ecrire_Sauvegarder_Fichier.vb.net
Page 1 sur 1 • Partagez

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 Lun 15 Jan - 9:45, édité 3 fois

- jaja3
- Messages : 8471
Points : 40169
Réputation : 28934
Date d'inscription : 22/10/2016
Age : 80
Localisation : Occitanie/Hérault
Merci !

Créer un compte ou se connecter pour répondre
Vous devez être membre pour répondre.
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum