VB.NET MDI BACKGROUND IMAGE [Résolu]

Messages postés
6
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
19 mai 2006
- - Dernière réponse : kevin_prec
Messages postés
6
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
19 mai 2006
- 22 mars 2006 à 16:59
Bonjour a tous
Je suis au prise avec un problème je suis débutant et j'essaie à l'aide
d'un open file dialog de permettre a l'utilisateur d'Aller chercher une image pour lui permettre de modifier le fond d'écran mais je ne suis pas capable d'affecter la valeur
retourné a mon background image. Si vous avez des questions n'hésitez pas a me le demandé

Merci a l'avance en passant votre site est très utile
Bonne journée

Voici le bout de mon code qui me permet de faire afficher le dialog box



Dim str1
As
String



Dim img
As System.Drawing.Image


cmd1.InitialDirectory = "D:\Clinique2\Clinique_Dentaire_Cegep_TR\bin\Images"'Répertoire initiale


cmd1.Title = ("Sélectionner une image comme fond d'écran")


cmd1.Multiselect =
False


cmd1.ShowDialog()


str1 = cmd1.FileName


Permet de créer un System.drawing image a partir de l'emplacement de l'image


img = FrmMdi.ActiveForm.BackgroundImage.FromFile(str1)


FrmMdi.ActiveForm.BackgroundImage = img
C'est a cette ligne que ca plante
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
167
Date d'inscription
jeudi 9 décembre 2004
Dernière intervention
18 novembre 2007
3
Merci
Bonjour,

En fait ton problème c'est plutôt cette ligne :
img = FrmMdi.ActiveForm.BackgroundImage.FromFile(str1)

Qu'il faut remplacer par :
img = Image.FromFile(str1)

Mais ensuite img devient obsolète, donc en remplace en fait :
img = Image.FromFile(str1)

FrmMdi.ActiveForm.BackgroundImage = img

par :
FrmMdi.ActiveForm.BackgroundImage =
Image.FromFile(str1)

Voci un bout de code qui marche nickel :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim frmTest As New Form
frmTest.MdiParent = FrmMdi
frmTest.Show()

cmd1.InitialDirectory = "D:\Clinique2\Clinique_Dentaire_Cegep_TR\bin\Images" 'Répertoire initiale
cmd1.Title = ("Sélectionner une image comme fond d'écran")
cmd1.Multiselect = False
cmd1.ShowDialog()
End Sub

Private Sub cmd1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cmd1.FileOk
FrmMdi.ActiveMdiChild.BackgroundImage = Image.FromFile(cmd1.FileName)
End Sub

<hr>http://pym-corp.com/blog/index.php?progs_meteo_fusion

http://ww%3C/body

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 96 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
19 mai 2006
0
Merci
Voila j'ai essayé ce que tu a mis mais je suis au prises avec un autre probleme je ne sais aps pourquoi mais quand je
viens pour me connecter à la base de donnée il me créer une erreur me disant qu'elle n'est pas dans le dossier images mais je ne lui demande pas d'aller la chercher a cette endroit
De plus, si c possible de m'expliquer commetn fonctionne une MDI et MdiParent child je vous en serais tres reconnaissant
merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.