APPLICATION SYSTÈME

Commentaire de tinux le 04/11/2007 00:23:18

Salut !

Source pratique, même si au niveau de code, rien de transcendant.
Je pense aussi qu'on aurait plus simplifier légèrement, en évitant de créer une boucle à chaque fois.

Commentaire de tinux le 04/11/2007 13:38:59

Pour réduire un peu ton code et le simplifier un peu, à ta place, j'aurais crée 2 ListBox donc un caché.

Dans le premier, tu mets tous les "menus" (= ce qu'il y a sur tes boutons) et dans le deuxième, tu mets à la même position le nom de la clé..
Par exemple : App Paths dans le premier Listbox et "Software\Microsoft\Windows\CurrentVersion\App Paths" dans le caché, et ensuite tu aurais quelque chose du genre :

If ListeNomRegistry.SelectedIndex = -1 Then Exit Sub 'ListBox Menu
ADRESSE_REGISTRE = (ListeAdresseRegistry.Items.Item(ListeNomRegistry.SelectedIndex))

Ainsi ensuite tu n'aurais qu'une seule boucle :

        Dim key As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(ADRESSE_REGISTRE, True)
        Dim t() As String = key.GetSubKeyNames
        Dim i As Integer
        For i = 0 To t.Length - 1
            If t(i) <> "" Then
                Me.ListBox1.Items.Add(t(i))
            End If
        Next

Sinon, pourquoi utiliser un RichTextBox ? Un simple Textbox peut le faire avec gestion des Lignes...

Commentaire de Le Pivert le 04/11/2007 14:01:44

Je te remercie et je vais essayer de mettre en application tes conseils
PS: J'ai trouvé sur un site VB anglophone le code pour enregistrer les listBox.
@+

Commentaire de Le Pivert le 04/11/2007 19:41:13

J'ai réussi à faire ce que m'a conseillé TINUX cela marche, mais j'ai un problème au niveau des Keys, il y en a qui marche avec: Dim t() As String = key.GetValueNames et d'autres avec
Dim t() As String = key.GetSubKeyNames, alors en plus si on me parle d'array j'en perd mon latin.
PS:j'ai réussi à enregistrer, donc à pouvoir comparer les fichiers.
Merci à tous pour votre aide qui m'est bien utile.