créer des OptionButton à partir du code

Question

Bonjour,

j'aurai voulu savoir, si cela est possible, comment creer a partir du code des OptionButton contenu dans une Frame.
J'arrive en fait à creer la Frame ( avec la methode Load ) mais je n'arrive pas à inclure les OptionButton dans celle-ci.
A l'aide SVP !!!

Merci d'avance.

Surfurax · Answer

Salut,

    dans ta frame tu dois avoir 1 optionbutton avec l'index 0, ensuite dans ton code tu dois inscrire :
for i = 1 to 25
     Call load(optionbutton(i))
     optionbutton(i).visible = true
next i

De cette manière tu auras 25 nouvelles instances; le i représente l'index de ton instance, il ne doit pas y avoir de doublons.
Lors du chargement, il sont automatiquement invisibles, c'est à toi de les faire apparaître (et bien sûr de les positionner au bon endroit).

Si tu veux en enlever il te suffit d'écrire :
     Call Unload(optionbutton(i))
et l'optionbutton d'index i sera retiré.

voila, si tu veux plus d'aide n'hésite pas.

[mailto:paulferrand@yahoo.fr Surfurax]

mayerp · Answer

Voilà mon code :

Public Sub ApercuQcd(feuille As Form)

For i = 1 To nbquest  ' nbquest est une var. globale

    'CHARGEMENT DU LABEL
    Load feuille.lbQuestion(feuille.lbQuestion.Count)
    feuille.lbQuestion(i).Top = feuille.lbQuestion(i - 1).Top + 960
    feuille.lbQuestion(i).Left = feuille.lbQuestion(i - 1).Left
    feuille.lbQuestion(i).Caption = i & ". " & rs.Fields(1)
    feuille.lbQuestion(i).Visible = True

        'CHARGEMENT DE LA FRAME
    Load feuille.frmReponse(feuille.frmReponse.Count)
    feuille.frmReponse(i).Top = feuille.frmReponse(i - 1).Top + 960
    feuille.frmReponse(i).Left = feuille.frmReponse(i - 1).Left
    feuille.frmReponse(i).Visible = True
    
    'CHARGEMENT DU 1ER OPTIONBUTTON
    Load feuille.OpVrai(feuille.OpVrai.Count)
    feuille.OpVrai(i).Top = feuille.OpVrai(i - 1).Top + 960
    feuille.OpVrai(i).Left = feuille.OpVrai(i - 1).Left
    feuille.OpVrai(i).Enabled = False
    feuille.OpVrai(i).Visible = True

    'CHARGEMENT DU 2E OPTIONBUTTON
    Load feuille.OpFaux(feuille.OpFaux.Count)
    feuille.OpFaux(i).Top = feuille.OpFaux(i - 1).Top + 960
    feuille.OpFaux(i).Left = feuille.OpFaux(i - 1).Left
    feuille.OpFaux(i).Enabled = False
    feuille.OpFaux(i).Visible = True
    
    Load feuille.lbValeur(feuille.lbValeur.Count)
    feuille.lbValeur(i).Top = feuille.lbValeur(i - 1).Top + 960
    feuille.lbValeur(i).Left = feuille.lbValeur(i - 1).Left
    feuille.lbValeur(i).Caption = rs.Fields(2)
    feuille.lbValeur(i).Visible = True
    
    rs.MoveNext
Next
End Sub

Les 2 Boutons d'option sont deja sur ma form avec tous les deux un index à 0 ( comme tous mes autres controles).
Donc je fais bien un Load... mais mes boutons n'apparaissent pas dans ma frame !!!
Je ne comprend vraiment pas .

Merci pour les futures réponses.

Créer des OptionButton à partir du code

2 réponses

Discussions similaires