Optiobutton

Question

Bonjour à tous,

Débutant en VB6 je vous pose ma question.
J'ai plusieurs optionbutton dans ma form  (P371(1),P371(2).....)
dans la suite du programme en cliquant avec la souris sur une ligne de ma listview Je reussi à recupérer le nom de mon Optionbutton
(exemple P371(2) ) mais dans un variable string TOTO et je veux executer la commande TOTO.value = true mais ca ne marche pas(il faut absolument P371(2) à la place de TOTO).
Si je ne suis pas clair je re-expliqueré
Cordialement.

TE33

NHenry · Answer

Bonjour,

Tu peux utiliser une variable pour la form qui sera déclarée de cette manière :
Private mOptBtn as OptionButton

Ensuite quand tu veux pointer dessus : 
mOtpBtn.Value= ...

Pour l'assignation : 
set mOptBtn=P371(2)

Ca fonctionne aussi pour le passage en paramètre.

Mon site

jmf0 · Answer

Bonjour,

fdans un control arry, le nom est le même pour tous les contrôles du même array. Seul l'index identifie le contrpole concerné du groupe de contrôles indexé.
AZlors ?
Soit toto cet index
Extrait donc toto (en le transformant en intteger) de ta chaîne de type P371(x). toto est le x
Tu peux dès lors te référer au contrpole concerné (P371(toto))

NHenry · Answer

Bonjour,

D'après la question, j'ai pensé plutôt qu'il y avait plusieurs groupes de contrôles, d'où ma suggestion.

Si c'est le cas, ma proposition sera peut être plus simple à mettre en œuvre, mais si il y a un seul groupe de contrôle, la proposition de jmf0 est plus judicieuse.

Mon site

TE33 · Answer

Bonjour à tous,

en fait Nhenri et dans le vraie mais j'ai toujours mon probleme de string vers Object..
C'est a dire que je recupere l'info dans une variable Variable = "P371(2)"
et mon soucis et que la comande suivante (message d'erreur: un objet est requi)
Set mOptBtn = Variable

Je ne sais pas si l'opération est possible? 

TE33

NHenry · Answer

Bonjour,

Quand je sis que :
Set mOptBtn = Variable 
Il est sous entendu que Variable est l'objet en question et non son nom.

Pour récupérer à partir de son nom, regarde dans la collection "Controls" de ta form.

Mon site

TE33 · Answer

Je ne comprend pas ce que tu me dit.
en fait comme j'ai 50 optionbutton , apres une opération avec la souris je récupere dans une variable le nom de l'optionbutton (mais en string).maintenant il faut que j'arrive a passer la value en true de l'optionbutton en question..

c'est que je n'ai pas beaucoup pratiqué en VB
TE33

NHenry · Answer

Bonjour,

Comment tu récupère le nom du contrôle ?

Mon site

TE33 · Answer

En fait
via une feuille excel je recupere le nom avec la commande
connecteur=wsexcel.cells(i,5).value
apres dans connecteur j'ai la chaine de caractere "P371(1)"
et la probleme..... 

TE33

NHenry · Answer

Bonjour,

Tu code en VB6 ou VBA ? (la mention Excel me mets le doute)

Si c'est VB6 : 
private function GetCtrlByName(byval pName as string, byref pFrm as form) as Object
    Dim lCtrlName as string
    Dim lCtrlIndex as long
    Dim lCtrl as object

    If instr(pName,"(")<>0 then
        lCtrlName =split(pName,"(")(0)
        lCtrlIndex =val(replace(split(pName,"(")(1),")","")))
    else
        lCtrlName =pName
        lCtrlIndex =-1
    End if

    for each lCtrl in pFrm.Controls
        if lctrl.name=lctrlName then
            if lCtrl.index=lctrlIndex or lctrlIndex =-1 then
                set GetCtrlByName=lCtrl
                Exit Function
            end if
        end if
    next
    
    set GetCtrlByName=Nothing
End function


Code tapé rapidement et non testé, mais ça devrait fonctionner.

Mon site

TE33 · Answer

OK!! laisse moi du temps pour digerer ton code...

TE33

jmf0 · Answer

Re...

Je ferais volontiers l'économie d'un split :

  toto = "P371(1)"
  nomobj = toto
  pos = InStr(toto, "(")
  If pos Then
    indexobj = Val(Mid(toto, pos + 1))
    nomobj = Left(toto, pos - 1)
  End If
  MsgBox nomobj & vbCrLf & indexobj

Ceci étant dit, je suis également pour le moins troublé par l'intervention d'Excel dans cette affaire-là

TE33 · Answer

Bonjour,

Excusez moi les gas mais j'ai rien compris....

cordialement.
TE33

TE33 · Answer

Ok,je viens de comprendre le code de jmfo.
Ok pour trouver l'index ca marche.
Pour l'intervention de excel,c'est a dire que j'ai un fichier excel avec tous mes connecteurs et mes designations dedans donc je récupere mon connecteur avec ma broche via excel...
y a t'il un moyen de chercher le numéro du connecteur comme l'index (nomobj)car j'ai differents nom de connecteurs
P371(1)....
P501(2)...
c'est a dire PNum(indexobj).value=true

TE33

TE33 · Answer

Bonjour,

Voila j'ai fini mon Programme.
Je vous remercie tous pour m'avoir aidé sur ce sujet.
Ce site est super....
Cordialement.

TE33

Optiobutton

14 réponses

Votre réponse