Option strict On disallows Late Binding

Bonsoir,

Je ne comprends pas cet histoire de "Option strict On disallows Late Binding".
Voici le code en question:

Code:

---

1 2 3 4 5 6 7 8 9 10

Using fs As New FileStream(myPath, FileMode.Open, FileAccess.Read) Dim img As Image = Bitmap.FromStream(fs) ' Dim cloneRect As Rectangle = New Rectangle(0,0,200,200) Dim format As System.Drawing.Imaging.PixelFormat = img.PixelFormat ' Dim cloneBitmap As Bitmap = img.Clone(cloneRect, format) ' <= Option strict On disallows Late Binding cloneBitmap.Save("c:\bitmaps\test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) End Using

---

Les explications que je trouve sur internet ne sont pas tres claires ou alors il se fait tard et je devrais aller me coucher.
Peut-on m'expliquer ce probleme? Et encore mieux, le resoudre dans mon code.

Merci,
A+
JLuc01

Bonjour,

Je risque une hypothèse parce que je n'ai jamais vu ce*message d'horreur.

Ici tu définis un objet Image:

Code:

---

Dim img As Image = Bitmap.FromStream(fs)

---

Ici tu veux faire la conversion, disons implicite, d'un objet image en objet Bitmap.

Code:

---

Dim cloneBitmap As Bitmap = img.Clone(cloneRect, format)

---

' <= Option strict On disallows Late Binding

Or, Option Strict est supposé interdire les conversions implicites... et c'est peut-être juste le "mauvais" message d'horreur.

Je suppose qu'il te manque un Ctype en chemin.

Mais j'avoue que je suis plutôt "délinquant". Je n'utilise pas Option Strict. J'ai débuté avec les conversions implicites, il y a 30 ou 40 ans; et je n'ai jamais fait le dernier grand pas. J'ai juste réussi à me rendre à option explicit.

Merci pour votre aide, votre explication confirme ce que je pensais.

Pourtant, je pense avoir deja essayer quelquechose comme ca hier soir sans succes:

Code:

---

1 2	Dim cloneBitmap As Bitmap = CType(img.Clone(cloneRect, format), Bitmap)

---

Je pensais aussi que Bitmap heritait de Image, donc pas besoin de conversion.
En fait, j'ai peut-etre la reponse ici.

J'essayerais de nouveau ce soir, car je me demande si je ne melange pas un peu tout.

A+
JLuc01

OK. J'ai finalement trouve. Du moins, le "Late Binding" est parti.

Code:

---

1 2	Dim img As Bitmap = CType(Bitmap.FromStream(fs), Bitmap)

---

Merci,
JLuc01