Sauvgarder

Résolu
Signaler
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009
-
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009
-
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

Messages postés
79
Date d'inscription
lundi 28 août 2006
Statut
Membre
Dernière intervention
4 avril 2009
1
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)
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009

merci
bbbccccccccccppppppppp ptit_tof57 pour votre reponse.