Problème de récupération variable 32 bits ou 64 bits automatisé

Version imprimable

bonsoir, j'ai un petit soucis concernant des renvois automatisé suivant si le système est détecté en 32 ou 64, voici mon bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim architecture As String
        architecture = Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE")
        If architecture = "x86" Then
            affiche_version.Text = "Edition 32 Bits détectée"
            Dim variable1 As String
            variable1 = "chemin_1"
        End If
        If architecture = "AMD64" Then
            affiche_version.Text = "Edition 64 Bits détectée"
            Dim variable1 As String
            variable1 = "chemin1"
        End If
    End Sub

ensuite, j'ai créé un bouton ou j'aimerais bien rappeler variable1, mais comme il est dans un autre sub, je ne sais pas comment le rappeler?
Si une âme charitable passe dans le coin, je la remercie d'avance.:)

27/05/2011, 21h01
youtpout978

tu n'est pas obligé de déclarer ta variable dans le load déclare le directement dans ta class et tu l'affecte dans ton load
27/05/2011, 21h12
jobez

je n'y avais pas pensé
Du coup, je suis en train d'essayer.
Nouveau soucis :
comme la déclaration de la variable est dans un "if",
il me sort l'erreur suivante lors de la réutilisation de la variable :

Citation:

'variable1' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

Comme ça je pense

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim variable1 As String
 
 Private Sub menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim architecture As String
        architecture = Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE")
        If architecture = "x86" Then
            affiche_version.Text = "Edition 32 Bits détectée"
            variable1 = "chemin_1"
        End If
        If architecture = "AMD64" Then
            affiche_version.Text = "Edition 64 Bits détectée"
            variable1 = "chemin1"
        End If
    End Sub

30/05/2011, 21h22
jobez

Merci pour le cout de main, c'est exactement ca!!!!
Si un jour je peux retourner les coups de main, n'hésiter pas.