asmaa17
Messages postés89Date d'inscriptionmercredi 10 janvier 2007StatutMembreDernière intervention14 mai 2009
-
26 mai 2007 à 21:04
asmaa17
Messages postés89Date d'inscriptionmercredi 10 janvier 2007StatutMembreDernière intervention14 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.
ptit_tof57
Messages postés79Date d'inscriptionlundi 28 août 2006StatutMembreDernière intervention 4 avril 20091 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)