Optionbutton

Télécharger le projet
Commenter

Description

Comment créé plusieurs OptionButton avec un index à partir d'un seul et les rendre opérationnels.

Source / Exemple : 


'L 'exemple suivant commence avec une feuille comprenant deux
'contrôles OptionButton et ajoute un nouveau contrôle OptionButton dans
'la feuille chaque fois que vous cliquez sur un contrôle CommandButton.

'Lorsque vous cliquez sur un contrôle OptionButton, la propriété FillStyle
'est définie et un nouveau cercle est dessiné.
'Pour exécuter ce code,
'une feuille contenant deux 'contrôles OptionButton
'   (affectez à la propriété Name des deux boutons la
'    valeur optButton pour créer un groupe de contrôles),
'un contrôle CommandButton et un contrôle PictureBox de grande taille.

Private Sub OptButton_Click(Index As Integer)
    Dim H, W    ' Déclare les variables.
    Picture1.Cls    ' Efface l'image.
    Picture1.FillStyle = Index  ' Définit la propriété FillStyle.
    W = Picture1.ScaleWidth / 2 ' Lit la taille du cercle.
    H = Picture1.ScaleHeight / 2
    Picture1.Circle (W, H), W / 2   ' Trace le cercle.
End Sub

Private Sub Command1_Click()
    Static MaxIdx   ' Index le plus élevé du groupe.
    If MaxIdx = 0 Then MaxIdx = 1   ' Prédéfinit MaxIdx.
    MaxIdx = MaxIdx + 1 ' Incrémente l'index.
    If MaxIdx > 7 Then Exit Sub ' Place huit boutons sur la feuille.
    Load OptButton(MaxIdx)  ' Crée un élément dans le groupe.

    ' Définit l'emplacement du nouveau bouton d'option sous le bouton
    ' précédent.
    OptButton(MaxIdx).Top = OptButton(MaxIdx - 1).Top + 360
    OptButton(MaxIdx).Visible = True    ' Rend le nouveau bouton visible.
End Sub

Conclusion :


Créez un seul OptionButton et grâce à un index, faitez en plusieurs.
Chaque OptionButton aura une fonction particulière si vous le désirez.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_JLB59)