appel d'une BITMAP

Question

Bonjour

Un extrait de code VB 2008

l'editeur me retourne une erreur
Pas le droit d'appeler "extrait" car il est vide
Mais pour le remplir il faut bien que je l'appelle non ?

j'ai essayé l'utilisation de NEW mais pas compatible avec type Bitmap,essayé le type Image c'est pareil.

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim capture As Bitmap
        Dim extrait As Bitmap

        AppActivate("toto")
        Sleep(100)
        SendKeys.SendWait("{PRTSC}")
        capture = My.Computer.Clipboard.GetImage
        For i = 1 To 20
            For j = 1 To 20
                extrait.SetPixel(i, j, Color.Azure)
            Next
        Next

Merci pour l'aide

PCPT · Answer

salut,

il ne manque pas deux NEW dans tes déclarations?

++
[hr]

mdesm · Answer

Merci pour ta reponse PCPT,
mais comme je l'explique au debut de mon post j'ai essayé "Dim EXTRAIT as New Bitmap" mais l'editeur le refuse ,type incompatible avec new.
"Erreur	1	La résolution de surcharge a échoué, car aucun 'New' accessible n'accepte ce nombre d'arguments."

PCPT · Answer

c'est pas qu'il n'est pas utilisable avec NEW, c'est que tu ne l'utilises pas comme il faut, cf message d'erreur

        Dim capture As Bitmap = New Bitmap(My.Computer.Clipboard.GetImage)
        Dim extrait As Bitmap = New Bitmap(capture.Width, capture.Height)

ps : n'oublie le .Dispose
++

Appel d'une BITMAP

3 réponses

Votre réponse

Discussions similaires