Discussion :

[MADA BLACK]

Salut Tout le monde
Svp Gentelman
J'ai vraiment besoin d'aide afin de resoudre ce probleme
Dans MDIParent1 .. je mis ce code dans Button Exit .. pour sauvegarder le theme choisit dans le registry Windows :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Dim SkinName As Microsoft.Win32.RegistryKey
    SkinName = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows", True)
    SkinName.SetValue("SkinName", DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName.ToString())
    SkinName.Close()

Et apres .. Dans ma Form Splash Screen j'ai mis mis ce code pour lire le nom du theme deja sauvegarde dans Windows Registry :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Dim SkinName As Microsoft.Win32.RegistryKey
    SkinName = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows", True)
    If SkinName IsNot Nothing Then
    DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = SkinName.GetValue("SkinName").ToString()
    End If

Jusqu'au ici .. tres normal et ca fonctionne tres bien ..
Mon probleme est :
Lorsque j'ai formaté completement ma machine .. alors j'ai eu une erreur car la valeur ( SkinName ) est vide ..
Comment faire svp pour ajouter ces lignes .. si la valeur de registry est Null alors mon theme se sera comme ca par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
     DevExpress.Skins.SkinManager.EnableFormSkins()
            DevExpress.UserSkins.BonusSkins.Register()
            DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "Caramel"

Si la valeur SkinName dans Registry Windows est vide alors le theme SkinName se sera ( Caramel ) .. Autrement se sera le theme choisit et enregistre lorsque je quitte le programme par Button Exit .
Merci beaucoup d'avance pour l'aide
Cordialement
MADA

[Phil Rob]

Bonsoir Mada,

La Registry, c'est pas mon fort ...

Mais au cas où cela serait utile à la résolution de ton problème ...
Si la clé n'existe plus suite à ton "formatage" du PC, tu peux la créer : la méthode SetValue crée la clé si elle n'existe pas.
Mais je n'ai sans doute pas bien compris le problème ...

Bonne soirée,

[MADA BLACK]

Bonsoir Cher Phil Rob
Bonsoir Maitre
En realite .. je n'ai aucun probleme sauf en cas de formatage du PC .
Mille fois merci .. oui vous avez bien raison .. je peux la creer avec SetValue .. juste apres le formatage du PC .. Mais le probleme je veux dans toutes les cas faire apparaitre mon projet avec un theme meme apres formatage ..
Svp .. si vous pouvez voir ce code .. j'ai essaye comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
       Dim SkinName As Microsoft.Win32.RegistryKey
        SkinName = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SkinName")
        If SkinName IsNot Nothing Then
            DevExpress.Skins.SkinManager.EnableFormSkins()
            DevExpress.UserSkins.BonusSkins.Register()
            DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "Caramel"
        Else
            SkinName = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows", True)
            If SkinName IsNot Nothing Then
                DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = SkinName.GetValue("SkinName").ToString()
            End If
        End If

Ce code fonctionne sans faute .. sans aucune erreur .. mais ce n'est pas normale .. normalement je dois ecrire (If SkinName Is Nothing Then) .. et si j'ecris (If SkinName Is Nothing Then) .. rien ne se change avec le theme Caramel
Merci d'avance pour l'aide
MADA

[Phil Rob]

Comme j'ai écrit, la registry n'est pas mon fort.
Je regarderai demain si je trouve une idée.
Mais en attendant, je m'interroge sur un détail : pour évaluer ta variable, ne dois-tu pas faire un GetValue sur ta clé ? OpenSubKey est-il suffisant ?
Bonne nuit

[Phil Rob]

Bonjour Mada,

Il faut en effet lire les valeurs par GetValue. Voici un extrait de code et l'illustration de son résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
        Dim Cle As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser
 
        Dim SCle As Microsoft.Win32.RegistryKey
        Dim Valeur As String
 
        SCle = Cle.OpenSubKey("Software\Adobe\Acrobat Distiller\10.0")
        Valeur = SCle.GetValue("JobOptions")
 
        MessageBox.Show(Valeur)

Illustration :


Pour ce qui est d'ajouter un clé ou d'écrire une valeur dans la registry, il faut l'indiquer dans la ligne OpenSubKey : SCle = Cle.OpenSubKey("Software\Adobe\Acrobat Distiller\10.0", TRUE).

Voici le code complet de mes tests et l'illustration du résultat obtenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Imports Microsoft.Win32.Registry
Public Class FTestSimple
 
    Private Sub FTestSimple_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim Cle As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser
 
        Dim SCle As Microsoft.Win32.RegistryKey
 
 
        Dim Valeur As String
 
        SCle = Cle.OpenSubKey("Software\Adobe\Acrobat Distiller\10.0", True)  ' TRUE nécessaire pour pouvoir écrire
        Valeur = SCle.GetValue("JobOptions")
 
        ' Ajouter une valeur inexistante
        SCle.SetValue("UnTest", "Et voilà")
 
        ' Ajouter une sous clé à Software\Adobe\Acrobat Distiller\10.0 et y écrire une valeur
        Dim SousSCle As Microsoft.Win32.RegistryKey
        SousSCle = SCle.CreateSubKey("NomCleMada")
        SousSCle.SetValue("Test", "Mada black")
 
        MessageBox.Show(Valeur)
    End Sub
End Class

[MADA BLACK]

Bonjour Maitre
Merci beaucoup pour l'aide
Tres tres gentil de votre part
Je vais essayer .. mais il faut attendre 1 ou 2 jours pour formater mon PC car je vais d'abord penser a mes divers fichiers
Merci encore
Amicalement
MADA

[MADA BLACK]

Bonjour Phil Rob
Bonjour maitre
Je vous remercie infiniment pour faire le premier pas
Merci beaucoup pour l'aide
Tres gentil de votre part
J'ai supprime la valeur dans Windows Registry pour tester sans formater mon PC et c'est bien resolu avec ce code ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows", "SkinName", Nothing) Is Nothing Then
            DevExpress.Skins.SkinManager.EnableFormSkins()
            DevExpress.UserSkins.BonusSkins.Register()
            DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "Caramel"
        Else
            Dim SkinName As Microsoft.Win32.RegistryKey
            SkinName = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows", True)
            DevExpress.Skins.SkinManager.EnableFormSkins()
            DevExpress.UserSkins.BonusSkins.Register()
            DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = SkinName.GetValue("SkinName").ToString()
        End If

Amicalement
MADA

[Phil Rob]

Bravo Mada !

A la prochaine ...