Sauvgarder

Résolu
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009 - 26 mai 2007 à 21:04
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009 - 26 mai 2007 à 23:05
Salut à tout,

j'ai crée un programme , parmi ces actions le possibilité de modifier l' arriere plan de programme,mais lorsque j'arréte l'execution la modification disparue.j'espere savoir comment quand je debouge le programme d'autre fois je trouve la derniere arriere plan que j'ai choisi.


merci d'avance pour vos réponses. 

2 réponses

ptit_tof57 Messages postés 79 Date d'inscription lundi 28 août 2006 Statut Membre Dernière intervention 4 avril 2009 1
26 mai 2007 à 22:21
Salut voici un code (peut être pas le meilleur) qui peut réalisé ce que tu souhaites :

Imports System.io

Public Class Form1

    Private Sub SavePath(ByVal pathfile As String)

        'Ici on déclare un StreamWriter ou l'on enregistre le chemin(path) de ton image
        'Le fichier est créer automatiquement s'il n'existe pas.
        Dim StrW As New StreamWriter("c:\config.txt")
        StrW.WriteLine(pathfile)
        StrW.Close()

    End Sub

    Private Sub LoadFile()

        'Ici on charge l'image a partir du chemin enregistré dans le fichier de configuration.
        'Si le fichier n'existe pas ou s'il n'y a pas de chemin aucune image n'est affichée.
        Dim PathFile As String
        Try
            Dim StrR As New StreamReader("c:\config.txt")
            PathFile = StrR.ReadLine()
            StrR.Close()
            'S'il y as un chemin enregistré on le donne en argument a la procédure Affichage
            'qui va affecté l'image de fond de l'application
            Affichage(PathFile)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Try
            LoadFile()
        Catch
        End Try

    End Sub

    Private Sub btnSelection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelection.Click

        Dim PathFile As String
        Dim monfichier As String
        Dim OpenFileDialog1 As New OpenFileDialog

        'Ici on selectionne le fichier par l'intermédiaire d'une boite de dialogue
        'On enregistre le chemin de ce fichier dans le fichier "config.txt"
        'On affecte l'image de fond à l'application
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            monfichier = OpenFileDialog1.FileName
            PathFile = Path.GetFullPath(monfichier)
            SavePath(PathFile)
            Affichage(PathFile)
        End If

    End Sub

    Private Sub Affichage(ByVal PathFile As String)
        'L'image est affectée à l'application
        Me.BackgroundImage = Image.FromFile(PathFile)
    End Sub
End Class, ----
(Coloration syntaxique
automatique par Kenji)
3
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009
26 mai 2007 à 23:05
merci
bbbccccccccccppppppppp ptit_tof57 pour votre reponse.
0