Déclaration d'un tableau de string en constant

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:

---

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

---

Et lorsque j'aurais voulu l'utiliser:

Code:

---

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

Code:

---

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

---

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

Code:

---

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

---

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

Code:

---

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

---

Citation:

---

Envoyé par DAUDET78

Code:

---

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

Citation:

---

Envoyé par megamario

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:

---

1 2 3 4 5

[Texte_Bouton] Texte_0=NONE Texte_1=PV SWITCH Texte_2=EXT OVP Texte_3=V BATT

---

Bonjour

Citation:

---

Envoyé par DAUDET78

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:

---

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.

Citation:

---

Envoyé par megamario

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:

---

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:

---

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.

Citation:

---

Envoyé par DarkVader

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

---

Un grand merci DarkVader ! Ce soir, je me coucherais moins idiot ..... il n'est jamais trop tard pour apprendre .

C'est ce que je me dis tous les jours ...
malheureusement, c'est pondéré par tout ce que j'oublie régulièrement. :aie:

Merci beaucoup,

Perso j'ai pas fini d'apprendre moi :). Surtout après une reconversion à 40 ballets. J'étais passionné d'informatique hardware mais j'avais jamais programmé avant.

Pour info, je viens de me faire un programme de démo (les fichiers sources intéressent quelqu'un?) pour tester un fichier ressource.RES

Ca ne semble pas évident de modifier le fichier "à la volée" sans recompiler le programme. Il y a des softs sur le WEB .....

Citation:

---

Envoyé par DAUDET78

.../...
Ca ne semble pas évident de modifier le fichier "à la volée" sans recompiler le programme. Il y a des softs sur le WEB .....

---

En principe ce n'est pas le but

Bonjour,

Citation:

---

Envoyé par megamario

... 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:

---

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é.

merci