Contourner le Late binding

Version imprimable

Bonjour à tous !

Je débute en VB (et en programmation en général) et je dois développer un petit outil très simple pour mon entreprise.

La partie où j'effectue de simples calculs de pourcentages me pose problème :

J'ai créé 6 collections :

Une collection de CheckBox : CollCB
Trois collections de TextBox : CollTB1, CollTB2 et CollTB3
Deux collections de Labels : CollR1 et CollR2 (pour Résultats)

Ces 5 collections ont le même nombre d'éléments, et je procède comme suit :

Si la CB d'indice i est cochée, j'affiche dans les labels d'indice i les résultats de calculs effectués sur le contenu des 3 textbox d'indice i.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 For i As Integer = 1 To CollCB.Count If CollCB.Item(i).Checked = False Then CollR1.Item(i).Text = "" CollR2.Item(i).Text = "" Else If IsNumber2(CollTB2.Item(i).Text) And IsNumber(CollTB1.Item(i).Text) Then CollR1.Item(i).Text = Math.Round(CollTB2.Item(i).Text / CollTB1.Item(i).Text * 100, 2) & " %" ElseIf CollTB1.Item(i).Text = "" Or CollTB2.Item(i).Text = "" Then CollR1.Item(i).Text = "/" Else CollR1.Item(i).Text = "Erreur" End If If IsNumber(CollTB1.Item(i).Text) And IsNumber2(CollTB3.Item(i).Text) Then CollR2.Item(i).Text = Math.Round(CollTB3.Item(i).Text / CollTB1.Item(i).Text * 100, 2) & " %" ElseIf CollTB1.Item(i).Text = "" Or CollTB2.Item(i).Text = "" Then CollR2.Item(i).Text = "/" Else CollR2.Item(i).Text = "Erreur" End If End If Next
Voilà. Or lorsque j'ai l'option Strict on, il me parle de Late Binding.

J'ai bien compris qu'il s'agit d'un problème de cast implicite.

Je pense avoir une explication partielle (voire partiellement fausse :D ) : pour lui, les collections pourraient très bien contenir des éléments qui n'ont pas la propriété .Text ou .Checked, etc, et donc il a peur de devoir convertir ?

Comment contourner ce problème autrement qu'en supprimant l'option strict on ?

Merci d'avance pour votre aide !

PS : Au passage j'en profite pour poser une question vis-à-vis des collections.
Dois-je vraiment me taper le CollCB.Add() pour chaque Checkbox etc ? (j'en ai beaucoup) ou y a-t-il un moyen de les ajouter dans le même ordre que leur TabIndex ou je ne sais pas, afin de faire correspondre les indices dans les différentes collections sans avoir à rentrer un par un chaque élément correspondant dans la collection qui va bien ?

(Si quelqu'un a réussi à comprendre sans devoir relire, chapeau, mais au pire zappez cette question)

22/02/2012, 13h31
Pol63

il nous faudrait le code de déclaration des collections

il existe des collections typées ex: list(of checkbox)
ca évite les cast
sinon quand on est sur du type d'une variable on peut écrire directcast(instance,type)
si on veut tester un type pendant l'exécution :
if typeof instance is checkbox then ...

si des controles doivent être liés ensemble, il est parfois préférable de faire un usercontrol qui les contient
ensuite c'est ce usercontrol qu'on pose plusieurs fois et au moins ca isole le code dans le usercontrol qui ne peut pas se tromper de control à utiliser

Déclarations :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
Dim CollCB As New Collection
        CollCB.Add(Selection.CBCobb1)
        CollCB.Add(Selection.CBCobb2)
        CollCB.Add(Selection.CBCobb3)
        CollCB.Add(Selection.CBCyphose)
        CollCB.Add(Selection.CBLordose)
        CollCB.Add(Selection.CBInciPelv)
        CollCB.Add(Selection.CBVersionPelv)
        CollCB.Add(Selection.CBPenteSacree)
        CollCB.Add(Selection.CBObliquite)
        CollCB.Add(Selection.CBRotation1)
        CollCB.Add(Selection.CBRotation2)
        CollCB.Add(Selection.CBRotation3)
        CollCB.Add(Selection.CBSacral)
        CollCB.Add(Selection.CBBascule)
        CollCB.Add(Selection.CBBasculeT)
        Dim CollTB1 As New Collection
        CollTB1.Add(Cobb1_1)
        CollTB1.Add(Cobb2_1)
        CollTB1.Add(Cobb3_1)
        CollTB1.Add(Cyphose1)
        CollTB1.Add(Lordose1)
        CollTB1.Add(InciPelv1)
        CollTB1.Add(VersionPelv1)
        CollTB1.Add(PenteSacree1)
        CollTB1.Add(Obliquite1)
        CollTB1.Add(Rotation1_1)
        CollTB1.Add(Rotation2_1)
        CollTB1.Add(Rotation3_1)
        CollTB1.Add(Sacral1)
        CollTB1.Add(Bascule1)
        CollTB1.Add(BasculeT1)
        Dim CollTB2 As New Collection
        CollTB2.Add(Cobb1_2)
        CollTB2.Add(Cobb2_2)
        CollTB2.Add(Cobb3_2)
        CollTB2.Add(Cyphose2)
        CollTB2.Add(Lordose2)
        CollTB2.Add(InciPelv2)
        CollTB2.Add(VersionPelv2)
        CollTB2.Add(PenteSacree2)
        CollTB2.Add(Obliquite2)
        CollTB2.Add(Rotation1_2)
        CollTB2.Add(Rotation2_2)
        CollTB2.Add(Rotation3_2)
        CollTB2.Add(Sacral2)
        CollTB2.Add(Bascule2)
        CollTB2.Add(BasculeT2)
        Dim CollTB3 As New Collection
        CollTB3.Add(Cobb1_3)
        CollTB3.Add(Cobb2_3)
        CollTB3.Add(Cobb3_3)
        CollTB3.Add(Cyphose3)
        CollTB3.Add(Lordose3)
        CollTB3.Add(InciPelv3)
        CollTB3.Add(VersionPelv3)
        CollTB3.Add(PenteSacree3)
        CollTB3.Add(Obliquite3)
        CollTB3.Add(Rotation1_3)
        CollTB3.Add(Rotation2_3)
        CollTB3.Add(Rotation3_3)
        CollTB3.Add(Sacral3)
        CollTB3.Add(Bascule3)
        CollTB3.Add(BasculeT3)
        Dim CollR1 As New Collection
        CollR1.Add(Results.Cobb1_21)
        CollR1.Add(Results.Cobb2_21)
        CollR1.Add(Results.Cobb3_21)
        CollR1.Add(Results.Cyphose21)
        CollR1.Add(Results.Lordose21)
        CollR1.Add(Results.InciPelv21)
        CollR1.Add(Results.VersionPelv21)
        CollR1.Add(Results.PenteSacree21)
        CollR1.Add(Results.Obliquite21)
        CollR1.Add(Results.Rotation1_21)
        CollR1.Add(Results.Rotation2_21)
        CollR1.Add(Results.Rotation3_21)
        CollR1.Add(Results.Sacral21)
        CollR1.Add(Results.Bascule21)
        CollR1.Add(Results.BasculeT21)
        Dim CollR2 As New Collection
        CollR2.Add(Results.Cobb1_31)
        CollR2.Add(Results.Cobb2_31)
        CollR2.Add(Results.Cobb3_31)
        CollR2.Add(Results.Cyphose31)
        CollR2.Add(Results.Lordose31)
        CollR2.Add(Results.InciPelv31)
        CollR2.Add(Results.VersionPelv31)
        CollR2.Add(Results.PenteSacree31)
        CollR2.Add(Results.Obliquite31)
        CollR2.Add(Results.Rotation1_31)
        CollR2.Add(Results.Rotation2_31)
        CollR2.Add(Results.Rotation3_31)
        CollR2.Add(Results.Sacral31)
        CollR2.Add(Results.Bascule31)
        CollR2.Add(Results.BasculeT31)

Chaque collection est dans un container, malheureusement j'ai déplacé les fenêtres plusieurs fois, et je n'ai aucun moyen à ma connaissance de connaitre leur index dans GroupBox1.Controls par exemple (si vous le savez, je suis preneur !)

J'avais bien pensé à faire quelque chose du style

Code:

1
2
3
4
5
6
7
Dim x as TextBox
For Each ctl As Control in GroupBox1.Controls
If TypeOf ctl is TextBox
x = ctl
x.Text = blabla
End If
Next

mais d'une part, je suis obligé de faire le Dim x as TextBox et x=ctl (je n'ai jamais compris pourquoi ?) et d'autre part, on revient au problème ci-dessus : je ne sais pas quelle est l'indice de chaque control qui m'intéresse dans la collection.

Je vais voir pour les solutions que vous proposez. Merci !

22/02/2012, 14h39
TheYggdrazil

J'ai remplacé les

Code:

Dim CollCB As New Collection

par des

Code:

Dim CollCB As New List(Of CheckBox)

et faire aller mon index de 0 à CollCB.Count - 1 (au lieu de 1 à CollCB.Count) et effectivement, ça fonctionne. Je n'avais plus qu'à mettre mes strings dans des CDbl() pour le calcul et l'option Strict ne me fait plus d'erreur.

Merci beaucoup !