VB 2010 : Problème avec option strict

Version imprimable

Bonjour à tous,

je viens difficilement me mettre à VB.net (avant j'avais réalisé qq programme en VB6).
L'erreur suivante (Option Strict On disallows late binding pour tb) apparait avec ce type de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim cheminfichier As String
        Dim lg As String
        Dim tb As Array
        cheminfichier = "C:\test.dat"
        FileOpen(1, cheminfichier, OpenMode.Input, OpenAccess.Read, OpenShare.Shared)
        While Not EOF(1)
            lg = LineInput(1)
            If lg <> "" Then
                tb = Split(lg, ";")
                If tb(0) = TextBox1.Text Then
                    TextBox2.Text = tb(1)
                    TextBox3.Text = tb(2)
                    TextBox4.Text = tb(6)
                    TextBox5.Text = tb(5)
                    TextBox6.Text = tb(4)
                    TextBox7.Text = tb(3)
                End If
            End If
        End While
        FileClose(1)

une petite compréhension du problème afin que je puisse le résoudre?

merci par avance

18/01/2011, 14h11
tomlev

Sur quelle ligne se produit l'erreur ?

Je ne vois aucun cas de late binding dans ce code...
18/01/2011, 14h13
biquet

merci pour ton formatage de code

le late binding apparait à chaque fois que tb apparait

que signifie late binding?
18/01/2011, 14h50
biquet

Bonjour,

en cherchant un peu, j'ai regardé et cela veut dire que je change un string (textbox1.text ou autre textbox) en un objet tb(0), ...

J'ai donc enlevé Dim tb as array et j'ai mis Dim tb(N) as string

et plus de problème qui s'affiche.

je dois encore tester

a+
18/01/2011, 15h54
tomlev

Citation:

Envoyé par biquet

que signifie late binding?

En gros, c'est quand tu accèdes à un membre d'un objet (propriété, méthode, ou dans ton cas, indexeur) qui n'est pas connu au moment de la compilation. C'est seulement lors de l'exécution que l'on regarde si le membre existe.

Tu as déclaré tb comme étant de type Array, et ce type n'a pas d'indexeur (seuls les tableaux typés en ont un). Donc l'indexeur est résolu comme un appel en late binding, ce qui est interdit avec Option Strict On

Citation:

Envoyé par biquet

J'ai donc enlevé Dim tb as array et j'ai mis Dim tb(N) as string

C'est bien ça qu'il faut faire, sauf que tu n'as pas besoin de préciser la taille vu que de toutes façons tu vas affecter à la variable le résultat de Split