[VB] petit defi : récuperer le nom d'une variable dans un TYPE

Marsh Posté le 09-01-2004 à 12:54:33

bon, voici un bon petit remu-meninge, dans la mesure ou il est possible de le realiser.

Quelqu'un connaitrait-il une astuce permettant de recuperer sous forme de String le nom d'un champ dans un UDT (User defined type) ?

Exemple:

Code :

Type test
chaine1 as string*4
chaine2 as string*8
nombre1 as integer
end type
public sub zzz()
dim MagicVar as string
dim recordTest as test
MagicVar = LaFonctionMagique(RecordTest, index_du_champ_dans_le_type)
end sub

ici, on donnerais l'index de position dans le type (genre index 1 : chaine1, index 2: chaine2, index 3: chaine3)

ainsi apres un MagicVar = LaFonctionMagique(RecordTest , 3), MagicVar contiendrais "nombre1"

merci de votre collaboration

Je propose un index, mais si quelqu'un a une autre solution je suis preneur (genre remplir une collection avec tout les nom des champs d'un type, ou autre... )

PS: je sais, c'est un peu tordu, mais ca pourrait m'etre TERRIBLEMENT utile

Message édité par ixemul le 09-01-2004 à 12:54:51

Reply

Marsh Posté le 09-01-2004 à 12:54:33

Reply

Marsh Posté le 10-01-2004 à 02:05:57

Code :

' Je sais pas si c'est que tu veux mais bon ...
Private Const MAX_VARIABLE = 3
Private Type variables
chaine1 As String * 4
chaine2 As String * 8
nombre1 As Integer
End Type
Private Type nomVariable
chaine(1 To MAX_VARIABLE) As String
End Type
Dim test As nomVariable
Private Sub initVariableName()
test.chaine(1) = "chaine1"
test.chaine(2) = "chaine2"
test.chaine(3) = "nombre1"
End Sub
Private Function getVariableName(ByVal index As Long)
If index > MAX_VARIABLE Then Exit Function
getVariableName = test.chaine(index)
End Function
Private Sub Form_Load()
Dim retVal As String
Call initVariableName
retVal = getVariableName(1)
MsgBox retVal
End Sub

Reply

Marsh Posté le 10-01-2004 à 11:25:51

c'est une solution valable en effet, la seule chose qui me chagrine dedans, c'est d'etre obligé de définir 2 fois les champs de ma structure, j'aimerais une solution plus "évoluée" pour retrouver ces nom de variables (je sais, je suis chiant la :lol: )

Reply

Marsh Posté le 10-01-2004 à 13:28:50

en effet

Reply

Marsh Posté le 10-01-2004 à 20:37:22

Euh ... je les définit qu'une fois la, il n'y a pas de moyen pour connaitre les noms de variables sans les initialiser au moins une fois car définir les variables et définir le NOM des variables sont deux choses différentes.

Reply

Marsh Posté le 28-04-2004 à 16:35:16

je sais pas si ca peut aider mais regarde la fonction callbyname dans l'aide en ligne

Reply

[VB] petit defi : récuperer le nom d'une variable dans un TYPE

Sujets relatifs:

Leave a Replay