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 Groupe de contrôles

Groupe de contrôles

4 réponses
Avatar
JLuc
Bonsoir les lecteurs,
Dans mon appli, j'utilise des groupes de boutons d'options
Option1(0)
Option1(1)
Option1(2)
...
Option2(0)
Option2(1)
...
Comment récuperer l'index du bouton qui la valeur True ?
IndexOption1 = Option1.??
Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-\O
Signaler un problème avec ce contenu

4 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
Avatar
Jacques93
Bonsoir JLuc,
JLuc a écrit :
Bonsoir les lecteurs,
Dans mon appli, j'utilise des groupes de boutons d'options
Option1(0)
Option1(1)
Option1(2)
...
Option2(0)
Option2(1)
...
Comment récuperer l'index du bouton qui la valeur True ?
IndexOption1 = Option1.??
Merci pour vos reponses




Si tu travailles avec le contrôle OptionButton, à part parcourir le
groupe, je ne vois pas :

'...
MsgBox GetIndexOption(Option1)
MsgBox GetIndexOption(Option2)
'...

Private Function GetIndexOption(Opt As Object) As Integer
Dim i As Integer

For i = Opt.LBound To Opt.UBound
If Opt(i).Value Then
GetIndexOption = i
Exit Function
End If
Next
GetIndexOption = -1
End Function


--
Cordialement,

Jacques.
Avatar
JLuc
C'est parfait.
Je pensais qu'il y avait une propriété qui stockais l'index, mais
apparement non. Tant pis
Merci de ton aide


Dans son message précédent, Jacques93 a écrit :
Bonsoir JLuc,
JLuc a écrit :
Bonsoir les lecteurs,
Dans mon appli, j'utilise des groupes de boutons d'options
Option1(0)
Option1(1)
Option1(2)
...
Option2(0)
Option2(1)
...
Comment récuperer l'index du bouton qui la valeur True ?
IndexOption1 = Option1.??
Merci pour vos reponses




Si tu travailles avec le contrôle OptionButton, à part parcourir le groupe,
je ne vois pas :

'...
MsgBox GetIndexOption(Option1)
MsgBox GetIndexOption(Option2)
'...

Private Function GetIndexOption(Opt As Object) As Integer
Dim i As Integer

For i = Opt.LBound To Opt.UBound
If Opt(i).Value Then
GetIndexOption = i
Exit Function
End If
Next
GetIndexOption = -1
End Function



--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Avatar
Driss HANIB
Bonjour JLuc

une autre façon est de récupérer l'index au moment du click

tu as:
sub MonOptBouton_Click(index as integer)
ici tu peux agir car tu as forcément l'index du bouton sélectionné, ce quie
st différent bien sur des cases à coché
end sub


Driss
"JLuc" a écrit dans le message de
news:
Bonsoir les lecteurs,
Dans mon appli, j'utilise des groupes de boutons d'options
Option1(0)
Option1(1)
Option1(2)
...
Option2(0)
Option2(1)
...
Comment récuperer l'index du bouton qui la valeur True ?
IndexOption1 = Option1.??
Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O




Avatar
LE TROLL
Bonjour,

Voici:


'form1 boutons radio
' objets = option1(5) + commandButton1
'
Option Explicit
Dim i As Long

Sub Form_Load() ' rab
For i = 0 To 4
Option1(i).Value = False
Next i
End Sub

Sub Option1_Click(Index As Integer) ' dans la procédure de chaque nom
MsgBox "Bouton radio n° : " & Index & " est coché ", vbInformation
End Sub

Sub Command1_Click() ' par bouton réponse
For i = 0 To 4
If Option1(i).Value = True Then
MsgBox "Bouton radio n° : " & i & " est coché ", vbInformation
Exit Sub
End If
Next i
End Sub

' Tu mets plusieurs Option1, 2... en même temps,
' quel que soit son nom, sur la même form il
' n'y en aura qu'un de coché, si tu veux cocher
' un des boutons des fifférents groupes (noms)
' en même temps (donc plusieurs), il faut
' mettre des "frames", et les option dedans
' par groupe...

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur MES ROMANS édités
Le serpent
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Le Gaulois
http://manuscritdepot.com/a.joseph-attila-pusztay.2.htm
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"JLuc" a écrit dans le message de news:

Bonsoir les lecteurs,
Dans mon appli, j'utilise des groupes de boutons d'options
Option1(0)
Option1(1)
Option1(2)
...
Option2(0)
Option2(1)
...
Comment récuperer l'index du bouton qui la valeur True ?
IndexOption1 = Option1.??
Merci pour vos reponses

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O