Discussion :

[spiranenc]

Bonjour mesdames et messieurs les partageurs du savoir ancestral vbtiste 2010

Le titre n'est pas clair je l'avoue...

En fait j'ai créé, je crois que l'on dit dynamiquement sur un formulaire tout un tas de textbox, de labels, et 5 combos.

Avoir accès aux contrôles 'text' des TextBox et Labels ce n'est pas très compliqué si l'on se sert du groupe 'controls(index)'

mais pour les combos, je cherche depuis hier sur le Net et je ne trouve pas... Ou bien des solutions que je ne sais pas adapter si elles fonctionnent...

Y a t-il un moyen d'avoir accès aux items des Combos ?
Autre question, mais subsidiaire celle-là, y a t-il un moyen d'accéder à un contrôle particulier créé dynamiquement quelque il soit, en passant par le nom indexé qui lui est donné à sa création, tout en sachant qu'il peut être appelé de n'importe quelle fonction ou procédure se trouvant en dehors de la feuille sur laquelle il ont été créés ?

Par avance je remercie très beaucoup ceusses qui sauront mettre en moi la lumière de la connaissance infusée...
Je pense que mon prob doit être que je n'appréhende par de la bonne façon les listes et combos...

[shayw]

Salut

Avoir accès aux contrôles 'text' des TextBox et Labels ce n'est pas très compliqué si l'on se sert du groupe 'controls(index)'

quelle est la différence avec les combos

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each ctrl As ComboBox In Me.Controls
 
Next

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is ComboBox Then
                DirectCast(ctrl, ComboBox).DropDownStyle = ComboBoxStyle.DropDownList
            End If
            If TypeOf ctrl Is TextBox Then
                DirectCast(ctrl, TextBox).Font = New Font("arial", 12, FontStyle.Bold)
            End If
        Next

[Sankasssss]

Non apparemment il ne comprend pas comment accéder au item.

Avoir accès aux contrôles 'text' des TextBox et Labels ce n'est pas très compliqué si l'on se sert du groupe 'controls(index)'
...
Y a t-il un moyen d'avoir accès aux items des Combos ?

Il s'est juste trompé en mettant " contrôles 'text' des TextBox " au lieu de " propriété 'text' des TextBox "

Mais cela ne change pas grand chose en utilisant ton code, il suffit d’énumérer ComboBox.Items.

[sinople]

Faudra que tu me donnes les références de ton dictionnaire, parce que ça m'intéresse là!

[spiranenc]

Bien le bonjour du matin à vous qui passez par là

Bon hier soir j'ai posté un peu dans l'urgence et effectivement les termes choisis ne sont pas très heureux mais le principal c'est que je constate que vous avez compris ce que je voulais dire.

Avoir accès aux contrôles 'text' des TextBox et Labels ce n'est pas très compliqué si l'on se sert du groupe 'controls(index)'

Aurait du être :
Avoir accès aux propriétés 'text' des TextBox et Labels ce n'est pas très compliqué si l'on se sert de... la méthode ? 'controls(index)'

Dans tous les cas Maître Sankasssss m'a percé à jour

Non apparemment il ne comprend pas comment accéder au item.

Effectivement je ne sais comment pointer sur les items particuliers de chaque combo. J'arrive à quelque chose avec diverses propriétés genre 'text', mais quand il s'agit des items c'est une tout autre affaire. Je n'y arrive tout simplement pas.
Dans quelques mois j'en rirais tellement c'était simple, mais pour l'instant j'ai la tête dedans et je suis un peu perdu.

Merci shayw pour ta réponse

Monsieur sinople ou madame sinople bien que je pense que c'est monsieur, je ne suis qu'un amateur occasionnel de la ligne de code et je ne connais pas les neuf dixièmes des expressions et termes utilisées pour exprimer de façon claire précise et efficace ce qui touche à la programmation. J'en suis franchement désolé et m'en excuse. Malgré tout vous avez compris quel était mon souci et ce en dépit des mots utilisés et c'est ce qui importe à mon avis, bien que vous n'ayez point répondu de façon instructive.
ce pauvre langage qui est mien quant à ce qui concerne la programmation est aussi un problème majeur handicapant mes recherches... Au lieu de cinq minutes je vais y passer des jours.
Merci pour le temps et l'attention de chacun et merci pour vos futures réponses sur le sujet de ce post.

[Sankasssss]

Bonjour,

ne vous inquiétez pas, on à tous été débutant et on a tous des messages où on utilise de mauvais termes en non connaissance de cause allié à un manque de temps. Votre message était bien écrit et vous avez essayé d'y mettre tous les éléments en votre possession, ce qui est loin d'être le cas d'une majorité de personne. Je pense donc qu'il faut prendre l'intervention de sinople de manière légère et sarcastique . ( J'ai aussi eu du mal à comprendre à la première lecture )

Sinon concernant votre code, voici une façon d'y arriver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is ComboBox Then
                Dim cb As ComboBox = DirectCast(ctrl, ComboBox)
                ' Enumération des items
                For i As Integer = 0 To cb.Items.Count - 1
                    Debug.WriteLine(cb.Items(i).ToString)
                Next
            End If
            If TypeOf ctrl Is TextBox Then
                DirectCast(ctrl, TextBox).Font = New Font("arial", 12, FontStyle.Bold)
            End If
        Next
    End Sub