My.resources et variable Résolu

Question

Bonjour à tous,

J'ai plusieurs ressources dans mon appli, et j'aimerais les interroger de façon dynamique.

Par exemple j'ai deux fichiers ressources :
benzene.txt
TCE.txt

Dans mon formulaire, j'ai une list box avec benzene et TCE.

Ma question, comment puis je générer automatiquement le lien vers ma ressource?

Du genre :  
dim polluant as string
polluant = Select_polluant.text
msgbox(My.resources.polluant)

Mais cela ne marche pas, comme c'est bizarre =)
Merci d'avance pour votre aide !

PCPT · Accepted Answer

Dim blabla as Object = My.Resources.ResourceManager.GetObject("ta_ressource_string")

PCPT · Answer

salut,

après compilation tu ne peux ajouter de ressource, il n'y a donc rien de dynamique :
tu proposes une liste de choix FIXE, relative aux ressources FIXES

le select case est le plus approprié

ps : si ta ressource est un fichier, il faut l'ouvrir avant de pouvoir afficher son contenu. normal que ton MSGBOX ne fonctionne pas donc


++
[hr]

Neiflheim1 · Answer

Je sais qu'après compilation je ne peux plus ajouter de ressources, je voulais dire dynamique au niveau de la génération du lien vers la ressource.

A terme, je vais avoir environ 70 polluants, et donc faire un case serait assez long... C'est pour cela que j'aurais souhaité avoir 2-3 lignes de code seulement pour cette fonction.

Ma liste de choix est fixe, et mes ressources aussi ;)

un simple code du genre :
polluant_fichier = My.resources.& variable_list_box...

Après je peux le manipuler comme je le souhaite ;) malheureusement cela ne marche pas, donc si vraiment il n'y a pas de méthode moins laborieuse pour exploiter une série de ressources je ferais avec ;)

Merci pour ta réponse

Neiflheim1 · Answer

C'est exactement ce que je voulais, merci de ton aide !

cs_TcheTche · Answer

Tche&#932;che

Moi aussi j'ai eu du mal à trouver mais bon ....
C'est exactement ce que je voulais, merci de ton aide !

j'ai 3 fois 200 fichiers  en ressources à gérer dans mon application
Merci encore

cs_TcheTche · Answer

TcheTche

Eh bien non cela ne marche pas  pour   Test0011.txt 

j'ai un message d'erreur qui me dit que le nom du fichier n'est pas déclaré.

TextBox1.Text = My.Resources.Test0011 : ça marche

 Dim blabla1 As Object = My.Resources.ResourceManager.GetObject(Test0011)

TextBox1.Text = My.Resources.blabla1 : ça ne marche pas

PCPT · Answer

salut TcheTche ,

normal que çà ne marche pas (et par la suite quand "çà marche pas" précise l'erreur stp!) : getobject renvoie la ressource non typée, pas une propriété imaginaire

et getobject, comme indiqué, utilise le nom STRING, donc à utiliser avec les quotes 

si ta ressource est valide çà donne :
TextBox1.Text = My.Resources.ResourceManager.GetObject("Test0011").ToString

[hr]

cs_TcheTche · Answer

TcheTche
mon cher PCPT tu as mis un terme à une nuit blanche de recherches ! je t'en remercie d'autant plus que ta première réponse date du mardi 24 novembre 2009 je ne savais pas si tu etais toujours présent!
l'erreur exacte c'était que par exemple "Test0011 n'est pas membre de Resources" alors que j'ai 600 fichiers du type Test0011.txt dans Resources et qu'ils sont tous valides.
je ne voulais pas écrire 200 lignes du type
Dim NumTest As Integer
        'NumTest = CStr(ListBox1.SelectedItem)
        'If NumTest 1 Then TextBox1.Text My.Resources.Test0011 : RichTextBox2.Text = My.Resources.Test0012 : TextBox2.Text = My.Resources.Test0013
que je remplace avntageusement par :
TextBox1.Text = My.Resources.ResourceManager.GetObject("Test" & CStr(ListBox1.SelectedItem) & "1").ToString
        RichTextBox2.Text = My.Resources.ResourceManager.GetObject("Test" & CStr(ListBox1.SelectedItem) & "2").ToString
        TextBox2.Text = My.Resources.ResourceManager.GetObject("Test" & CStr(ListBox1.SelectedItem) & "3").ToString
et ça marche ! encore merci et à 68 ans c'est une joie d''apprendre...!
ce que je ne comprends pas encore très bien c'est la dualité d'appartenance à la fois comme "String" et "membre de de resources"

j'ai 3 fichiers .txt car je ne sais pas extraire une ligne précise de mon fichier  .txt .

je vais maintenant m'initier aux collections de label
, richtextbox ou de textbox

je développe un programme qui utilise du français et du grec moderne et donc en unicode.

PCPT · Answer

ravi d'avoir pu t'aider

600 fichiers?
petits ou non, la ressource est compilée avec l'exe

pour une telle quantité (et masse sans doute) il serait largement préférable d'utiliser le type BLOB/OLE d'une base de données (access)

simple conseil...

bonne continuation

cs_TcheTche · Answer

TcheTche

Contenu fichier N°1  dans textbox1
 &#913;&#965;&#947;&#959;&#973;&#963;&#964;&#959;&#965; - &#922;&#945;&#952;&#942;&#963;&#964;&#949; - &#922;&#945;&#955;&#972; - &#924;&#960;&#959;&#961;&#949;&#943;&#964;&#949; - &#924;&#960;&#959;&#961;&#959;&#973;&#956;&#949; - &#945;&#961;&#967;&#941;&#962; - &#947;&#961;&#940;&#956;&#956;&#945;&#964;&#945; - &#948;&#949;&#973;&#964;&#949;&#961;&#951; - &#949;&#943;&#963;&#964;&#949;; - &#954;&#953;&#957;&#941;&#950;&#953;&#954;&#945; - &#956;&#945;&#947;&#949;&#953;&#961;&#949;&#973;&#949;&#953; - &#956;&#945;&#947;&#949;&#953;&#961;&#949;&#973;&#969; - &#956;&#949;&#964;&#940; - &#957;&#941;&#945; - &#961;&#945;&#957;&#964;&#949;&#946;&#959;&#973; - 
que je place dans des labels cliquables

Contenu fichier N°2 dans richtextbox2
00.
01. Y a-t-il du courrier pour moi ? > &#904;&#967;&#949;&#953;         &#947;&#953;&#945; &#956;&#941;&#957;&#945;;
02. A table ! / Le repas est servi ! >         &#963;&#964;&#959; &#964;&#961;&#945;&#960;&#941;&#950;&#953;, &#960;&#945;&#961;&#945;&#954;&#945;&#955;&#974;!
03. début octobre / au début du mois d&#8217;octobre >         &#927;&#954;&#964;&#969;&#946;&#961;&#943;&#959;&#965;
04. J&#8217;avais rendez-vous chez le médecin. > &#917;&#943;&#967;&#945;         &#963;&#964;&#959; &#947;&#953;&#945;&#964;&#961;&#972;.
05. à la mi-août / mi-août > &#956;&#941;&#963;&#945;         .
06. le second / la seconde / le deuxième / la deuxième > &#959; &#948;&#949;&#973;&#964;&#949;&#961;&#959;&#962; / &#951;         / &#964;&#959; &#948;&#949;&#973;&#964;&#949;&#961;&#959;
07. les dernières nouvelles > &#964;&#945; &#964;&#949;&#955;&#949;&#965;&#964;&#945;&#943;&#945;        .
08. Veuillez me l&#8217;indiquer sur la carte. >         &#957;&#945; &#956;&#959;&#965; &#964;&#959; &#948;&#949;&#943;&#958;&#949;&#964;&#949; &#963;&#964;&#959; &#967;&#940;&#961;&#964;&#951;, &#960;&#945;&#961;&#945;&#954;&#945;&#955;&#974;;
09. Elle comprend le chinois. > &#922;&#945;&#964;&#945;&#955;&#945;&#946;&#945;&#943;&#957;&#949;&#953;         .
10. Elle cuisine bien. / Elle sait bien cuisiner. / Elle est bonne cuisinière. >         &#954;&#945;&#955;&#940;
11. Bon voyage ! / Bonne route ! >         &#964;&#945;&#958;&#943;&#948;&#953;!
12. Pouvons-nous faire du feu ? >         &#957;&#945; &#945;&#957;&#940;&#968;&#959;&#965;&#956;&#949; &#966;&#969;&#964;&#953;&#940;;
13. préparer le repas > &#964;&#959;         &#966;&#945;&#947;&#951;&#964;&#972;
14. Quel âge avez-vous ? > &#928;&#972;&#963;&#959; &#967;&#961;&#959;&#957;&#974;&#957;         .
15. avant / pendant / après les repas > &#960;&#961;&#953;&#957; / &#954;&#945;&#964;&#940; /         &#964;&#959; &#947;&#949;&#973;&#956;&#945; 
16.
Contenu fichier N°3 dans textbox2
1. &#947;&#961;&#940;&#956;&#956;&#945;&#964;&#945; - 2. &#922;&#945;&#952;&#942;&#963;&#964;&#949; - 3. &#945;&#961;&#967;&#941;&#962; - 4. &#961;&#945;&#957;&#964;&#949;&#946;&#959;&#973; - 5. &#913;&#965;&#947;&#959;&#973;&#963;&#964;&#959;&#965; - 6. &#948;&#949;&#973;&#964;&#949;&#961;&#951; - 7. &#957;&#941;&#945; - 8. &#924;&#960;&#959;&#961;&#949;&#943;&#964;&#949; - 9. &#954;&#953;&#957;&#941;&#950;&#953;&#954;&#945; - 10. &#956;&#945;&#947;&#949;&#953;&#961;&#949;&#973;&#949;&#953; - 11. &#922;&#945;&#955;&#972; - 12. &#924;&#960;&#959;&#961;&#959;&#973;&#956;&#949; - 13. &#956;&#945;&#947;&#949;&#953;&#961;&#949;&#973;&#969; - 14. &#949;&#943;&#963;&#964;&#949;; - 15. &#956;&#949;&#964;&#940; - 

et cela par 200 
les ??? correspondent à des caractères grecs.!!
je me pose la question suivante
si je réunis les trois fichiers en un seul comment je vais choisir les lignes du fichier unique pour les distribuer dans chacune des "textbox"
existe t-il des instructions pou cela? pour n'avoir 200 fichiers au lieu 600 pour le fun
bien qu'au final le contenu de resources ne soit guère plus lourd

PCPT · Answer

pas besoin de ressources alors un simple XML avec pour chaque valeur 3 items, étant le contenu de tes fichiers en base64 exemple de structure valeur_B64 valeur_B64 valeur_B64 valeur_B64 valeur_B64 valeur_B64 etc le framework gère tout çà très bien, et tu n'auras pas à t'embêter à tout lire (cf XPATH)

My.resources et variable

11 réponses

Votre réponse

Discussions similaires