A voir également:
- VB : tableau en Constantes
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Range vb - Forum VB / VBA
3 réponses
Salut Gilles,
Effectivement VB n'aime pas trop ce type d'affectation, pour ma part je verrais les choses comme ca :
' Pour des contantes de type INTEGER
Dim i As Integer
Dim x As Integer
Dim monTableau(20) As Integer
i = 1
For x = LBound(monTableau) To UBound(monTableau) - 1
monTableau(x) = i
MsgBox monTableau(x)
i = i + 1
Next
'Et pour les constantes de type STRING
Dim myArray1() As String
Dim myString As String
myString = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X"
myArray1 = Split(myString, ",")
For x = LBound(myArray1) To UBound(myArray1)
MsgBox myArray1(x)
Next
Effectivement VB n'aime pas trop ce type d'affectation, pour ma part je verrais les choses comme ca :
' Pour des contantes de type INTEGER
Dim i As Integer
Dim x As Integer
Dim monTableau(20) As Integer
i = 1
For x = LBound(monTableau) To UBound(monTableau) - 1
monTableau(x) = i
MsgBox monTableau(x)
i = i + 1
Next
'Et pour les constantes de type STRING
Dim myArray1() As String
Dim myString As String
myString = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X"
myArray1 = Split(myString, ",")
For x = LBound(myArray1) To UBound(myArray1)
MsgBox myArray1(x)
Next
A chaque fois que j'ai codé en dur, je l'ai toujours regrété par la suite,
un jour ou l'autre ton appli évolue et ton code en dur te genre.
sinon au moins met le dans un fichier texte que tu charge.
un jour ou l'autre ton appli évolue et ton code en dur te genre.
sinon au moins met le dans un fichier texte que tu charge.
ouep j vois ce que tu veux dire
En fait ce que j voulais faire justement c'est stocker ces fameux champs pour que la requete soit generee automatiquement
Et du coup au niveau maintenance, t as plus qu'a changer ce tableau de constantes au lieu de changer toutes les portions de code (et differentes fonctions qui les utilisent) correpondants dans le source.
J'ai po trouve mieux ... mais si des idees vous viennent j suis preneur :o)
En fait ce que j voulais faire justement c'est stocker ces fameux champs pour que la requete soit generee automatiquement
Et du coup au niveau maintenance, t as plus qu'a changer ce tableau de constantes au lieu de changer toutes les portions de code (et differentes fonctions qui les utilisent) correpondants dans le source.
J'ai po trouve mieux ... mais si des idees vous viennent j suis preneur :o)
Bonjour, je veux declarer un tableau de 20 elements mais vb6.refuse toujour j'ai mis
dim montableau() as integer={1, 2, 3, 4, 5,6,7, 8, 9, 10, 11,13, 17, 18, 12, 14, 15, 16, 19, 20}
j'ai essayé mais il y a d'erreur aider moi svp!!!
dim montableau() as integer={1, 2, 3, 4, 5,6,7, 8, 9, 10, 11,13, 17, 18, 12, 14, 15, 16, 19, 20}
j'ai essayé mais il y a d'erreur aider moi svp!!!
Salut Gilles,
Effectivement VB n'aime pas trop ce type d'affectation, pour ma part je verrais les choses comme ca :
' Pour des contantes de type INTEGER
Dim i As Integer
Dim x As Integer
Dim monTableau(19) As Integer
i = 1
For x = LBound(monTableau) To UBound(monTableau)
monTableau(x) = i
MsgBox monTableau(x)
i = i + 1
Next
'Et pour les constantes de type STRING
Dim myArray1() As String
Dim myString As String
myString = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X"
myArray1 = Split(myString, ",")
For x = LBound(myArray1) To UBound(myArray1)
MsgBox myArray1(x)
Next
Effectivement VB n'aime pas trop ce type d'affectation, pour ma part je verrais les choses comme ca :
' Pour des contantes de type INTEGER
Dim i As Integer
Dim x As Integer
Dim monTableau(19) As Integer
i = 1
For x = LBound(monTableau) To UBound(monTableau)
monTableau(x) = i
MsgBox monTableau(x)
i = i + 1
Next
'Et pour les constantes de type STRING
Dim myArray1() As String
Dim myString As String
myString = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X"
myArray1 = Split(myString, ",")
For x = LBound(myArray1) To UBound(myArray1)
MsgBox myArray1(x)
Next
