|
Nedávno jsme zde řešili problém dle nadpisu. Dospěli jsme k řešení přes transformaci prostřednictvím graphics (které také vyústilo v napsání odpovídajícího snippetu). Při řešení jiného problému jsem došel k poznání, že pro podobné účely má VB zabudovánu metodu CLONE třídy bitmap, takže obrázek .jpg dostanu do bitmapy obrazek s formátem ARGB jednoduše:
Dim obrazek1 As New Bitmap("d:\obr2.jpg")
Dim obrazek As Bitmap
obrazek = obrazek1.Clone(New Rectangle(New Point(0, 0), obrazek1.Size), Imaging.PixelFormat.Format32bppArgb)
(Samozřejmě slušelo by se tam dodělat úklid , případně ošetření nějakých chyb)
|