|
Perché non ti cicla i case non lo so, comunque il programma non può funzionare ci sono vari errori:
riga 96 eliminare: immagineH.Dispose() ' non puoi distruggere immagineH se poi la vuoi riutilizzare
riga 98 errata: bmpDataW = immagineW.LockBits(areaH, Imaging.ImageLockMode.ReadWrite, immagineW.PixelFormat)
riga 98 esatta: bmpDataW = immagineW.LockBits(areaW, Imaging.ImageLockMode.ReadWrite, immagineW.PixelFormat)
riga 82 eliminare: immagineW.Dispose() ' non puoi distruggere immagineW se poi la vuoi riutilizzare
riga 67 eliminare: immagineH.Dispose() ' non puoi distruggere immagineH se poi la vuoi riutilizzare
riga 69 errata: bmpDataW = immagineW.LockBits(areaH, Imaging.ImageLockMode.ReadWrite, immagineW.PixelFormat)
riga 69 esatta: bmpDataW = immagineW.LockBits(areaW, Imaging.ImageLockMode.ReadWrite, immagineW.PixelFormat)
riga 43 errata: Dim areaW As Rectangle = New Rectangle(0, 0, immagineH.Width, immagineH.Height) ' area di lavoro LockBits
riga 43 esatta: Dim areaW As Rectangle = New Rectangle(0, 0, immagineW.Width, immagineW.Height) ' area di lavoro LockBits
Spero di averli ricordati tutti... Ma gli errori non te li segnala? lo sai usare il Debug?
dici che non cicla e invece ti da errore?
Il mio progetto che ti ho allegato con lo zip, deve funzionare, prova ed eseguire l'exe nella cartela ...bin\debug.
I case pensavo che li avevi messi perché poi avresti inserito delle scelte impostate dall'utente.
Ultima modifica effettuata da Carlo il 10/08/2021 alle 22:02
in programmazione tutto è permesso | 
