j'avais une astuce en VB4:
TYPE NPType
Nom as string *10
Prenom as string *10
END TYPE
TYPE LigneType
Chaine as string *20
END TYPE
...
NP as NPType
Ligne as LigneType

Ligne.chaine="FORUM VBFRANCE "

set titi = ligne

et on avait automatiquement:
NP.Prenom="VBFRANCE "

à priori cela ne marche + maintenant en VB6
y-a-t-il une autre astuce?


PS: cela ne marchait que si le type NBType n'avait que des strings!

NP.Nom = Mid$(Ligne.Chaine, 1, InStr(1, Ligne.Chaine, " "))
NP.Prenom = Mid$(Ligne.Chaine, InStr(1, Ligne.Chaine, " "))

Ou bien tu peux utiliser Split()...

Set titi = Ligne ' C'est quoi ca, titi???



-------------------------------
Réponse au message :
-------------------------------

j'avais une astuce en VB4:
TYPE NPType
Nom as string *10
Prenom as string *10
END TYPE
TYPE LigneType
Chaine as string *20
END TYPE
...
NP as NPType
Ligne as LigneType

Ligne.chaine="FORUM VBFRANCE "

set titi = ligne

et on avait automatiquement:
NP.Prenom="VBFRANCE "

à priori cela ne marche + maintenant en VB6
y-a-t-il une autre astuce?


PS: cela ne marchait que si le type NBType n'avait que des strings!

c'est bon j'ai retrouvé l'astuce!
il suffisait de faire un LSET titi = Ligne !!!



-------------------------------
Réponse au message :
-------------------------------

NP.Nom = Mid$(Ligne.Chaine, 1, InStr(1, Ligne.Chaine, " "))
NP.Prenom = Mid$(Ligne.Chaine, InStr(1, Ligne.Chaine, " "))

Ou bien tu peux utiliser Split()...

Set titi = Ligne ' C'est quoi ca, titi???



-------------------------------
Réponse au message :
-------------------------------

j'avais une astuce en VB4:
TYPE NPType
Nom as string *10
Prenom as string *10
END TYPE
TYPE LigneType
Chaine as string *20
END TYPE
...
NP as NPType
Ligne as LigneType

Ligne.chaine="FORUM VBFRANCE "

set titi = ligne

et on avait automatiquement:
NP.Prenom="VBFRANCE "

à priori cela ne marche + maintenant en VB6
y-a-t-il une autre astuce?


PS: cela ne marchait que si le type NBType n'avait que des strings!