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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB] petit defi : récuperer le nom d'une variable dans un TYPE

ixemul

Nan mais sans blague ! ⚡

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

Publicité

karlkox

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

ixemul

Nan mais sans blague ! ⚡

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

jagstang

Pa Capona ಠ_ಠ

en effet

karlkox

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.

dovic

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Trouver toutes les instances d'un type de class connu	Récupérer position curseur sous nux ?
VBA; parcourir dynamiqument un type..end type	Petit problème avec expression régulière...
récupérer les infos de xmms !	Comment récupérer les codes de statut HTTP en ASP ?
Projet de gestion hasardeuse de frame (vrai défi inside)	Comment récupérer mon paramètre en PHP4
Un petit peu d'aide en ASP svp	[XSL] Initialisation d'une variable
Plus de sujets relatifs à : [VB] petit defi : récuperer le nom d'une variable dans un TYPE

Page générée en 0.045 secondes