AIDER MOI :(Résolu

Question

Salut j'ai un probl&#232;me ici 

Tout mon syst&#232;me regkey marche sauf une chose: 

Quand jouvre une image dans mon PictureBox sa enregistre le chemin du fichier ouvert dans le regedit soit example(c:/image.jpg) mais je ne trouve pas de moyen de faire un GetValue pour que quand jouvre le programme de nouveau l'image souvre dans le PictureBox.

CDTech Studio

CDTechStudio · Accepted Answer

Merci bcp de ta patience et de ton aide ch&#232;re ami! Vraiment gentil!

CDTech Studio

valtrase · Answer

Lut,
Chemin = GetSetting(app.Name, Section, Key, Default)

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

CDTechStudio · Answer

Hey merci mais ya un ti probl&#232;me &#171;:P :

(app.Name, Section, Key, Default) => ? tu peut mexpliquer un peut quoi y mettre? pcq la.. jvois pas.. Sa ne me dit pas grand chose ces mots.. :S J'ai une ider de app.Name maisjene suispas surdutout tu vois et pour le reste sa ne me dit rien :P

Et.. cette ligne compl&#232;te va faire en sorte que limage qui va ouvrir dans mon PictureBox va etre celle du path dans le regedit? 

CDTech Studio

valtrase · Answer

Vi,
Quand tu enregistres dans ta base de registre tu emploi SetSetting non ? donc l&#224; tu fais l'inverse.
app.name tu n'y touches pas. Dans la BDR tu as des sections ex: "Options" et une cl&#233; ex: "Chemin picture" et en fin la valeur default appliqu&#233; par d&#233;faut si la cl&#233; n'est pas trouv&#233;e dans la base de registre.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

CDTechStudio · Answer

Mmmm moi jutilise SetValue, sa doit etre pour sa que sa ne marchait pas?


RegEdit.SetValue("DisplayImagePath", 
Me.MonImageChange)

CDTech Studio

valtrase · Answer

t&#233; sous .Net ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

CDTechStudio · Answer

oui

CDTech Studio

CDTechStudio · Answer

ou&#233;, .net 2003

CDTech Studio

valtrase · Answer

Setsetting et GetSetting sont reconnus sous .Net
Sinon Voila une classe qui te permet d'&#233;crire et de lire dans la BDR mais pas dans la section VB VBA comme get et setsetting

Dans ta feuille tu d&#233;clares comme ci dessous si tu veuxque la section se nome "options"

Public 
Class Form1

Dim Config 
As 
New LireEcrireREG("Software" + Application.ProductName + "\Options" + "")
_____________________________________________________________________
Pour enregistrer une valeur c'est
Config.regSetValue("Chemin Photo", "C:	oto\Maphoto.bmp")



Pour lire une valeur c'est 
Dim c 
As 
String = ""

c = Config.regGetValue(Key, "")



_______________________________________________________________________________
Imports System

Imports Microsoft

Imports Microsoft.Win32


Public 
Class LireEcrireREG

'~~~~ Cette classe permet de lire &#233;crire une cl&#233; dans la base de registre


Private KeyKey 
As 
String = "Software" + Application.ProductName + ""



Public 
Sub 
New(
ByVal Root 
As 
String)
KeyKey = Root

End 
Sub



' r&#233;cup&#232;re la valeur de la propr&#233;t&#233; Name au chemin Key (HKEY_CURRENT_USER)



Public 
Function regGetValue(
ByVal Name 
As 
String, 
Optional 
ByVal DefaultValue 
As 
String = "") 
As 
String



Try



Dim RegKey 
As RegistryKey
RegKey = Registry.CurrentUser.OpenSubKey(KeyKey, 
False)

If 
Not RegKey 
Is 
Nothing 
Then
Dim Valeur 
As 
String = 
CType(RegKey.GetValue(Name, DefaultValue), 
String)
RegKey.Close()

Return Valeur

Else
Return DefaultValue

End 
If



Catch
Return DefaultValue

End 
Try
End 
Function



' inscrit la valeur Value dans la propri&#233;t&#233; Name au chemin Key (HKEY_CURRENT_USER)



Public 
Function regSetValue(
ByVal Name 
As 
String, 
ByVal Value 
As 
String) 
As 
Boolean



Try
Dim RegKey 
As RegistryKey
RegKey = Registry.CurrentUser.OpenSubKey(KeyKey, 
True)

If RegKey 
Is 
Nothing 
Then RegKey = Registry.CurrentUser.CreateSubKey(KeyKey)

If 
Not RegKey 
Is 
Nothing 
Then
RegKey.SetValue(Name, Value)
RegKey.Close()

Return 
True



Else
Return 
False
End 
If
Catch
Return 
False
End 
Try
End 
Function



Public 
Function regDelKey(
ByVal Section 
As 
String) 
As 
Boolean



Try
Registry.CurrentUser.DeleteSubKey(Section, 
True)

Return 
True
Catch
Return 
False
End 
Try



End 
Function


End 
Class

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

CDTechStudio · Answer

La la je ne comprend vraiment pas et jen suis vraiment d&#233;sol&#233; 

Dim Config 
As 
New LireEcrireREG("Software" + Application.ProductName + "\Options" + "")

Sa ne fonctionne pas il me le souligne comme erreur

RegGetValue aussi est souligner..

Pourquoi je n'est pas c'est valeur dans mon sousmenu qui ouvre lorsque je met un . par example

CDTech Studio

CDTechStudio · Answer

En gros, vue que le premier user a ouvrir le prog a jamais écrit dans le registre, sa ouvre le dialog pour choisir la photo du display. Il la choisi puit sa marque le Path comme jai dit plus haut dans le registre (c:\fwf\qwefqwef.jpg). Moi je veut que quand la personne réouvre le programme, la photo ce lise dans le registre et souvre. Mais tes ligne de code ne marche pas avec mon Vb.Net 2003 et je ne comprend pas pourquoi. Moi tout ce que jai ces setvalue et getvalue. Merci bcp de ta patience chère ami, je t'admire. Si cela peut taider voici la parti du code: Dim DisplayPathSave As String

Public Function RegDisplayPicture() If RegEdit.GetValue("DisplayImagePath") = "" Then Me.OpenFileDialogImageDisplay.ShowDialog() Me.DisplayPathSave = Me.OpenFileDialogImageDisplay.FileName RegEdit.SetValue("DisplayImagePath", Me.DisplayPathSave) Else 'ici j'aimerais aouter la ligne qui lit mon image dans mon PictureDisplay quand lutilisateur ouvre le prog Application.DoEvents() End If End Function

Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Création du dossier dans le registre RegEdit = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SOFTWARE\LonghornSideBar\DisplayPicture") RegDisplayPicture() Me.TimerUptime.Start() FadeIn() Me.LabelDate.Text = Now.Date.ToLongDateString Me.LabelOS.Text = Environment.OSVersion.ToString() Me.LabelVersion.Text = Environment.Version.ToString() & " / " & Environment.Version.Build Me.LabelMachineName.Text = Environment.MachineName Me.LabelUsername.Text = Environment.UserName End Sub

Private Sub OpenFileDialogImageDisplay_FileOk( ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialogImageDisplay.FileOk 'Indique que MonImage est l'image que opendialog va ouvrir MonImage = New Bitmap( Me.OpenFileDialogImageDisplay.FileName) 'Ouvre l'image Me.PictureDisplay.Image = MonImage 'Inscrit dans le registre le nouveau path a chaque changement d'image Me.MonImageChange = Me.OpenFileDialogImageDisplay.FileName RegEdit.SetValue("DisplayImagePath", Me.MonImageChange) End Sub

Private Sub PictureDisplay_DoubleClick( ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureDisplay.DoubleClick Me.OpenFileDialogImageDisplay.ShowDialog() End Sub

CDTech Studio

valtrase · Answer

Re,

Cette classe fonctionnes bien t'as pas du la mettre l&#224; ou il falait mais pas grave
Tout est bon je pense seulement tu ne faisais pas l'appel pour le chargement dans formLoad
Donc chages les  lignes en rouge

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Cr&#233;ation du dossier dans le registre

RegEdit = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SOFTWARE\LonghornSideBar\DisplayPicture")


Me.PictureDisplay.Image = New Bitmap(
RegDisplayPicture())

Me.TimerUptime.Start()

FadeIn()

Me.LabelDate.Text = Now.Date.ToLongDateString

Me.LabelOS.Text = Environment.OSVersion.ToString()

Me.LabelVersion.Text = Environment.Version.ToString() & " / " & Environment.Version.Build

Me.LabelMachineName.Text = Environment.MachineName

Me.LabelUsername.Text = Environment.UserName


End Sub 


Public 
Function RegDisplayPicture()

If RegEdit.GetValue("DisplayImagePath") = "" 
Then
Me.OpenFileDialogImageDisplay.ShowDialog()

Me.DisplayPathSave = 
Me.OpenFileDialogImageDisplay.FileName
RegEdit.SetValue("DisplayImagePath", 
Me.DisplayPathSave)

Else
Return RegEdit.GetValue("DisplayImagePath") 
End 
If
End 
Function

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

AIDER MOI :(

12 réponses

Discussions similaires