propriété Index des controles de formulaire [Résolu]
cs_nabulio54
- Messages postés
- 13
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 6 décembre 2008
- Messages postés
- 13
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 6 décembre 2008
A voir également:
- propriété index des controles de formulaire
- [VB6] Propriété Index dans control utilisateur ✓ - Forum - Visual Basic 6
- Absence d'index dans les contrôles des formulaires ? ✓ - Forum - Visual Basic
- Générateur de javascript pour contrôle de formulaire - Codes sources - Visual Basic / VB.NET (Formulaire)
- Contrôle pour formulaire - Codes sources - Javascript (Formulaire)
- Gestion de controle de formulaire ou données centralisé. - Codes sources - Javascript (Formulaire)
11 réponses
Meilleure réponse
- Messages postés
- 13
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 6 décembre 2008
OK, dans mon application, ça marche avec le code ci-dessous(obligé de mettre Dim Coll As New ArrayList). Bref on est obligé de remplir un par un le tableau avec les contrôle!
c'est beaucoup moin élégant et facile qu'en VB6!
Merçi beaucoup!!
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim n As Int16
Dim octet As Integer
Dim Coll As New ArrayList
octet = TrackBar1.Value
TextBox2.Text = CStr(octet)
Coll.Add(CheckBox1)
Coll.Add(CheckBox2)
Coll.Add(CheckBox3)
Coll.Add(CheckBox4)
Coll.Add(CheckBox5)
Coll.Add(CheckBox6)
Coll.Add(CheckBox7)
Coll.Add(CheckBox8)
CType(Coll(n), CheckBox).Checked = True
For n = 0 To 7
If (octet / (2 ^ n) >= 1) Then
CType(Coll(n), CheckBox).Checked = True
Else
CType(Coll(n), CheckBox).Checked = False
End If
octet = octet - (2 ^ n)
Next n
End Sub
c'est beaucoup moin élégant et facile qu'en VB6!
Merçi beaucoup!!
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim n As Int16
Dim octet As Integer
Dim Coll As New ArrayList
octet = TrackBar1.Value
TextBox2.Text = CStr(octet)
Coll.Add(CheckBox1)
Coll.Add(CheckBox2)
Coll.Add(CheckBox3)
Coll.Add(CheckBox4)
Coll.Add(CheckBox5)
Coll.Add(CheckBox6)
Coll.Add(CheckBox7)
Coll.Add(CheckBox8)
CType(Coll(n), CheckBox).Checked = True
For n = 0 To 7
If (octet / (2 ^ n) >= 1) Then
CType(Coll(n), CheckBox).Checked = True
Else
CType(Coll(n), CheckBox).Checked = False
End If
octet = octet - (2 ^ n)
Next n
End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 5507
- Date d'inscription
- dimanche 4 août 2002
- Dernière intervention
- 20 juin 2013
Le VB6 c'est très très loin pour moi , mais je pense que cette notion de groupe n'existe plus dans VB2005.
Il faut les mettre dans une collection (de boutons) et itérer comme tu le fais déjà maintenant à travers tes boutons.
<hr />
-Blog-
Il faut les mettre dans une collection (de boutons) et itérer comme tu le fais déjà maintenant à travers tes boutons.
<hr />
-Blog-
- Messages postés
- 13
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 6 décembre 2008
- Messages postés
- 920
- Date d'inscription
- vendredi 3 août 2007
- Dernière intervention
- 27 octobre 2008
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Dernière intervention
- 9 avril 2017
Tu même genre que Kristof :
Dim Buttons() As System.Windows.Forms.Button
' ...
Buttons = New System.Windows.Forms.Button() {Button1, Button2, ...}
__________
Kenji
(
Nouveau forum VBA/Office
Dim Buttons() As System.Windows.Forms.Button
' ...
Buttons = New System.Windows.Forms.Button() {Button1, Button2, ...}
__________
Kenji
(
Nouveau forum VBA/Office
- Messages postés
- 920
- Date d'inscription
- vendredi 3 août 2007
- Dernière intervention
- 27 octobre 2008
- Messages postés
- 920
- Date d'inscription
- vendredi 3 août 2007
- Dernière intervention
- 27 octobre 2008
- Messages postés
- 14356
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 14 janvier 2019
Bonjour
En .NET2 une collection de type ArrayList de boutons : list(of System.Windows.Forms.Button)
Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site
En .NET2 une collection de type ArrayList de boutons : list(of System.Windows.Forms.Button)
Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site
- Messages postés
- 920
- Date d'inscription
- vendredi 3 août 2007
- Dernière intervention
- 27 octobre 2008
M'est avis que ta collection ne devrait pas être local à ta Sub Timer1_Tick(), car sinon, cela veut dire qu'à chaque tour de timer, tu instancies un nouvel arraylist, et tu y ajoutes tes checkboxes pour ensuite détruire ton instance d'arraylist!! Pas très optimal ca non ?
Tu devrais déclarer ton ArrayList au niveau d'un module, et faire une Sub InitArrayList() qui va enregistrer tes checkboxes dedans.
Tu devra faire appel à cette sub d'initialisation une et une seule fois, dans le form_load par exemple.
Ensuite, dans ta sub Timer1_Tick(), tu ne conserves que ta boucle For
Kristof_Koder
Tu devrais déclarer ton ArrayList au niveau d'un module, et faire une Sub InitArrayList() qui va enregistrer tes checkboxes dedans.
Tu devra faire appel à cette sub d'initialisation une et une seule fois, dans le form_load par exemple.
Ensuite, dans ta sub Timer1_Tick(), tu ne conserves que ta boucle For
Kristof_Koder
- Messages postés
- 13
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 6 décembre 2008
- Messages postés
- 13
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 6 décembre 2008
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.