Discussion :

[megamario]

Bonjour,

Je voudrais avoir un tableau de string déclarer en constante.

C'est a dire que je veux avoir des valeurs textuel dans un tableau que je peut retrouver en fonction de l'indice de ce même tableau.

D’ailleurs je voudrais un tableau ou autre astuce pour arriver à mes fin.

J'avais pensé faire ca:

Déclarer en variable global

Code :

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

Public CAUSE_PV(4) As String = {"NONE","PV SWITCH","EXT OVP","V BATT"}

Et lorsque j'aurais voulu l'utiliser:

Code :

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

Form1.txtMaCause.Text = CAUSE_PV(NumeroError)

NumeroError étant un integer.

Cela marche pas, dans ma déclaration, apparemment en VB6 on peut pas affecter les textes lors de la déclaration ou je m'y prend mal tout simplement.

Merci de votre aide

[DAUDET78]

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
CAUSE_PV(0)="NONE"
CAUSE_PV(1)="PV SWITCH"
CAUSE_PV(2)="EXT OVP"
CAUSE_PV(3)="V BATT"
End Sub

[ProgElecT]

Une autre façon, juste pour savoir que cela existe:

Code :

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

1
2
3
4
5
6
7
Dim CAUSE_PV As Variant
CAUSE_PV = Array("NONE", "PV SWITCH", "EXT OVP", "V BATT")
 
Dim T As Integer
For T = 0 To UBound(CAUSE_PV)
    Debug.Print CAUSE_PV(T)
Next T

[DAUDET78]

Une autre façon, juste pour savoir que cela existe:

Code :

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

1
2
3
4
Dim T As Integer
For T = 1 To 4
    Debug.Print Choose(T,"NONE", "PV SWITCH", "EXT OVP", "V BATT")
Next T

[megamario]

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
CAUSE_PV(0)="NONE"
CAUSE_PV(1)="PV SWITCH"
CAUSE_PV(2)="EXT OVP"
CAUSE_PV(3)="V BATT"
End Sub

Bonjour et merci d'avoir répondu, mais effectivement c'est ce que j'avais indiqué, on ne peut pas faire la déclaration et l'affectation en même temps en VB6.

Il n'y a pas d'autre moyen, car celle la je la connaissais, car j'aurais aimer avoir les données du tableau au même endroit que toute les variables global afin que l'on puisse facilement les retrouver. C'est une reprise d'un programme assez lourd et plusieurs personne peuvent travailler dessus. C'est surtout pour que l'on ai pas besoin de chercher dans le code ou se trouve les données du tableau si l'on doit les modifier.

Pour le moment je vais affecter les données de cette façon. S'il y a d'autre moyen faite moi signe. (Structure ou autre possibilités)

Merci

[DAUDET78]

C'est surtout pour que l'on ai pas besoin de chercher dans le code ou se trouve les données du tableau si l'on doit les modifier.

Ce genre de "Texte", je préfère les mettre dans un fichier d'initialisation (modification facile sur site sans recompiler, changement de langue immédiat)

Code :

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

1
2
3
4
5
[Texte_Bouton]
Texte_0=NONE
Texte_1=PV SWITCH
Texte_2=EXT OVP
Texte_3=V BATT

[DarkVader]

Bonjour

Ce genre de "Texte", je préfère les mettre dans un fichier d'initialisation (modification facile sur site sans recompiler, changement de langue immédiat)

Code :

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

1
2
3
4
5
[Texte_Bouton]
Texte_0=NONE
Texte_1=PV SWITCH
Texte_2=EXT OVP
Texte_3=V BATT

En ce cas, autant le mettre dans un fichier de ressources.

[DarkVader]

Bonjour et merci d'avoir répondu, mais effectivement c'est ce que j'avais indiqué, on ne peut pas faire la déclaration et l'affectation en même temps en VB6.

Il n'y a pas d'autre moyen, car celle la je la connaissais, car j'aurais aimer avoir les données du tableau au même endroit que toute les variables global afin que l'on puisse facilement les retrouver. C'est une reprise d'un programme assez lourd et plusieurs personne peuvent travailler dessus. C'est surtout pour que l'on ai pas besoin de chercher dans le code ou se trouve les données du tableau si l'on doit les modifier.

Pour le moment je vais affecter les données de cette façon. S'il y a d'autre moyen faite moi signe. (Structure ou autre possibilités)

Merci

En utilisant un fichier de ressources ça se fait assez simplement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 'Dans le fichier de ressources :
101:NONE
 102 : V SWITCH
103:EXT OVP
104:V BATT

' En entête de modules la déclaration des Identificateurs
Const ID_RES_NONE=101
Const ID_RES_PV_SWITCH=102
Const ID_RES_EXT_OVP=103
Const ID_RES_V_BATT=104

'Dans le code :
msgbox loadresstring(ID_RES_NONE)

Sur le coup, ça peut paraître lourd mais au final toute modification du fichier de ressource est répercuté dans l'intégralité du code,
sans oubli et la traduction en est très aisée.

Une astuce :
plutôt qu'appeler Loadresstring, j'utilise une fonction passerelle style

Code :

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

1
2
3
function L_Resstring(id as long)as string
    L_Resstring=replace(loadresstring(id),"|",vbcrlf)
end function

qui permet de traiter automatiquement les retours chariot.

[rv26t]

Bonjour,

... on ne peut pas faire la déclaration et l'affectation en même temps en VB6.
...

C'est possible d'une façon détournée

Code :

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

1
2
3
4
 
Function ConstDirect(iPos As Integer) As String
  ConstDirect = Array("NONE", "PV SWITCH", "EXT OVP", "V BATT")(iPos)
End Function

Mais comme cela a déjà été indiqué, l'utilisation de fichier ou de ressource est préférable pour la maintenance.

A+, Hervé.

[megamario]

merci