Creation dynamique de boutons option

Question

Bonjour,
Je suis en train de realiser une de mes premieres petites applis en vb6 et je viens solliciter votre aide apres avoir consulté le web sans succès.
Je souhaite que sur le chargement de mon formulaire il y est dans une frame autant de boutons d'option (radiobutton en .net je crois) que d'enregistrement dans une table de ma base (pour l'instant reliée avec un dataenvironment premiere etape pour remplir mes listes deroulantes).

Un exemple pour illustrer cela: jai une table 'Langue' avec  1-anglais 2-Allemand 3-Espagnol
il me faudrai donc une frame avec *** un bouton (et sa caption) Anglais
                                                                    *** un bouton (et sa caption) Allemand
                                                                    *** un bouton (et sa caption) Espagnol

J'espere avoir été clair et avoir retenu votre attention
merci d'avance
++

cs_DARKSIDIOUS · Answer

Salut,

Pour ce genre de chose, je pense qu'un listbox avec le style checkbox est plus approprié. Mais si tu préfère les boutons d'options, il te suffit d'en créer un en mode création avec un numéro d'index à 0, et de créer les autres dynamiquement en incrémentant l'index :

While (not tonRecordset.eof)
Load(NomControle(index + 1))
NomControle(index + 1).Visible = true
NomControle(index + 1).Caption = "Toto"
NomControle(index + 1).Top = NomControle(index).Top + 120
index = index + 1
tonrecordset.movenext
wend
______________________________________
DarK Sidious

fsltp · Answer

J'ai une solution un peu différente.

http://www.vbfrance.fr/codes/CREATION-NOMBRE-VARIABLE-OPTION-BOUTON_44983.aspx

La création des controles se fait à l'éxécution.

timy24 · Answer

re,
J'etudie la solution de darksidious depuis ce matin mais je n'ai pas l'impression que sa me creer de nouveaux boutons
j'ai crée en mode graphique un bouton radio avec index a 0  et ensuite voila mon code
**********************************************************
Private Sub Form_Load()
Dim index As Integer
index = 0

'creation d'une connection à la base de donnée.
Dim connex As ADODB.Connection
Set connex = New ADODB.Connection
connex.Provider = "Microsoft.Jet.OleDB.4.0"
connex.ConnectionString = "./MaBase.mdb"
connex.Open

'creation d'un curseur qui parcourt une table
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
Dim ChSql As String
ChSql = "select * from Langue order by libelLangue"
rs1.Open ChSql, connex
rs1.MoveFirst

    While (Not rs1.EOF)

        Load Option1(index + 1)
        Option1(index + 1).Visible = True
        Option1(index + 1).Caption = rs1.Fields(1)
        Option1(index + 1).Top = Option1(index).Top + 120
        index = index + 1
        rs1.MoveNext
    Wend
    
connex.Close
End Sub
*************************************************************

le truc que je ne connai pas c'est le "load"    si on peut m'expliquer   merci
ensuite il y a le probleme de créer ces boutons dans une frame spécifique.(je pense deja a un probleme d'ajustement de la taille de la frame selon le nombre de bouton crée. Mais j'ai pas encore cherché si il existe une solution simple je profite de mon post pour cela :-) .
merci de votre aide.

fsltp · Answer

regarde ce code par exemple :
http://www.vbfrance.com/codes/DYNAMIC-CONTROLS-MANAGER-GEREZ-FACILEMENT-VOS-CONTROLES-DYNAMIQUES_41772.aspx

mimiZanzan · Answer

Voir aussi mon code source "CRÉATION DE CONTRÔLES DYNAMIQUE"
déposé le 19/05/2007 sur le site VB.
Il permet la création de groupes contrôles boutons, labels, textboxs, mais il est transposable à n'importe lesquels par ex les optionsbuttons.

mimizanzan

fathy1r6 · Answer

bonjour: 
je suis etudiant en matrise informatique  j'ai un prob d'implemetatation dynamique d'un liste box a partir de difference entre deux table 
et comment fait exctement en code vb(sql) la difference entre ce table (except)  
sltp aidez moi 
merci

ben abdallah

Creation dynamique de boutons option

6 réponses

Votre réponse

Discussions similaires