Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic récuperation de la valeur d'une chaine

récuperation de la valeur d'une chaine

21 réponses
Avatar
roms
Bonjour,
Je voudrais récuperer la valeur d une chaine de caractere
par ex: a="bouton1" je voudrais recuperer bouton1 pour l utiliser avec un
attribut: bouton1.caption.....

Merci de votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
andre.araste
Bonjour
Bonjour

Si je comprends bien la question la valeur d'une chaîne alphabétique
retourne toujours zéro.

Val("Bouton1") = 0
Val("150") = 150
--
Bonne réception.

http://perso.wanadoo.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.



"roms" a écrit dans le message de news:

Bonjour,
Je voudrais récuperer la valeur d une chaine de caractere
par ex: a="bouton1" je voudrais recuperer bouton1 pour l utiliser avec un
attribut: bouton1.caption.....

Merci de votre aide


Avatar
ng
Salut,

Bonjour,
Je voudrais récuperer la valeur d une chaine de caractere
par ex: a="bouton1" je voudrais recuperer bouton1 pour l utiliser avec un
attribut: bouton1.caption.....



Tu peux faire cela en utilisant un groupe de controle nomé Bouton qui
contiendra tes boutons, tu les appeleras par Bouton(i).Caption...


Sinon tu peux boucler la collection TaForm.Controls

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Avatar
Patrice Henrio
D'après ce que je comprends, il s'agit d'utiliser une variable (ici un
objet) dont le nom est dans une chaîne de caractère, une sorte de CallByName
pour une variable. Je ne suis pas sûr que cela soit possible en VB

"ng" a écrit dans le message de news:

Salut,

Bonjour,
Je voudrais récuperer la valeur d une chaine de caractere
par ex: a="bouton1" je voudrais recuperer bouton1 pour l utiliser avec un
attribut: bouton1.caption.....



Tu peux faire cela en utilisant un groupe de controle nomé Bouton qui
contiendra tes boutons, tu les appeleras par Bouton(i).Caption...


Sinon tu peux boucler la collection TaForm.Controls

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


Avatar
ng
Salut,

D'après ce que je comprends, il s'agit d'utiliser une variable (ici un
objet) dont le nom est dans une chaîne de caractère, une sorte de
CallByName pour une variable.


Oui c'est ce que j'avais compris, j'essaye de montrer des solutions
alternatives plus simple à mettre en oeuvre.

Je ne suis pas sûr que cela soit possible en
VB


Si mais pas trivialement, on peut par exemple le faire en utilisant le MS
Script Control... Mais c'est pas top... Il faut mieux revoir la conception
du logiciel.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Avatar
LE TROLL
Salut,

As-tu essayé:

Dim a
a = "bouton1"
Command1.caption = a
-------------------???

"roms" a écrit dans le
message de news:

Bonjour,
Je voudrais récuperer la valeur d une chaine de caractere
par ex: a="bouton1" je voudrais recuperer bouton1 pour l
utiliser avec un
attribut: bouton1.caption.....

Merci de votre aide


Avatar
roms
En fait je suis tres tres novice et je dois programmer un morpion en VBA!!!
Pour ca j utilise 9 bouton(btn1, btn2, ...,btn9) et une fois qu un joueur a
gagné
je veut les bloquer voici ma boucle

for j =1 to 9
a= "btn" & j
a.locked=true
next
mais la valeur de a est "btn1" donc ca bloque, je voudrais simplement me
debarasser des " " y a t il une fonction qui existe, sinon comment en créer
une tres simplement!!
Merci bcp pour vos réponses respectives
Avatar
scraper
Bonjour roms, dans le message
news:
tu disais :


En fait je suis tres tres novice et je dois programmer un morpion en
VBA!!! Pour ca j utilise 9 bouton(btn1, btn2, ...,btn9) et une fois
qu un joueur a gagné
je veut les bloquer voici ma boucle

for j =1 to 9
a= "btn" & j
a.locked=true
next
mais la valeur de a est "btn1" donc ca bloque, je voudrais simplement
me debarasser des " " y a t il une fonction qui existe, sinon comment
en créer une tres simplement!!
Merci bcp pour vos réponses respectives



je connais pas vba :-)


mais tu peux essayer ça ?


Dim Item As Control

For Each Item In Me.Controls
If Item.Name Like "btn#" Then MsgBox Item.Name
Next

remplace le msgbox par l'action que tu veux effectuer ? ;-)



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
LE TROLL
Ben si tu connais pas, vs voir ailleurs, on ne répond pas
quand on ne connaît pas!
------------

"scraper" a écrit dans le message de
news: %23qer8%
Bonjour roms, dans le message
news:
tu disais :


En fait je suis tres tres novice et je dois programmer un
morpion en
VBA!!! Pour ca j utilise 9 bouton(btn1, btn2, ...,btn9)
et une fois
qu un joueur a gagné
je veut les bloquer voici ma boucle

for j =1 to 9
a= "btn" & j
a.locked=true
next
mais la valeur de a est "btn1" donc ca bloque, je
voudrais simplement
me debarasser des " " y a t il une fonction qui existe,
sinon comment
en créer une tres simplement!!
Merci bcp pour vos réponses respectives



je connais pas vba :-)


mais tu peux essayer ça ?


Dim Item As Control

For Each Item In Me.Controls
If Item.Name Like "btn#" Then MsgBox Item.Name
Next

remplace le msgbox par l'action que tu veux effectuer ?
;-)



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
LE TROLL
Re salut, tiens voilà du code, mais je ne sais pas
si les fonctions sont exactement les mêmes en vbA:
Faut déclarer 10 boutons du même nom (0 à 9), puis tu
supprime le 0, c'est plus simple, donc ça fait de 1 à 9.
Laisse les noms d'origine aux boutons, c'est mieux pour
comprendre...

Dim etat(9) As Byte ' variables globales
Dim i As Long
'
Sub Form_Load() ' point d'entrée dans la procédure
For i = 1 To 9
etat(i) = 0
Next i
End Sub
'
Sub Command1_Click(Index As Integer) ' gestion des 9 boutons
etat(Index) = 1
For i = 1 To 9 ' marquage du bouton touché
If etat(i) = 0 Then Exit Sub
Next i
For i = 1 To 9 ' test si 9 boutons actionnés
Command1(i).Enabled = False ' si oui = action
Next i
End Sub
----------------- testé en VB, ça marche!!!


"roms" a écrit dans le
message de news:

En fait je suis tres tres novice et je dois programmer un
morpion en VBA!!!
Pour ca j utilise 9 bouton(btn1, btn2, ...,btn9) et une
fois qu un joueur a
gagné
je veut les bloquer voici ma boucle

for j =1 to 9
a= "btn" & j
a.locked=true
next
mais la valeur de a est "btn1" donc ca bloque, je voudrais
simplement me
debarasser des " " y a t il une fonction qui existe, sinon
comment en créer
une tres simplement!!
Merci bcp pour vos réponses respectives


Avatar
scraper
Bonjour LE TROLL, dans le message
news:%
tu disais :


Ben si tu connais pas, vs voir ailleurs, on ne répond pas
quand on ne connaît pas!



eh, gros naze, viens pas me chercher des poux, essaie d'abord mon code, on
discutera après, OK

tu ferais mieux de te payer les licences de softs que tu veux au lieu de
ramasser des saloperies sur les sites warez ;-)

pourtant je comprends pas, avec tout le pognon que tu dois gagner à vendre
ta m*** ??? ;-)


PS : lâche moi maintenant, usurpateur ;-)



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
1 2 3