Tak zkusil jsem to ještě jednou a v dokumentaci se říká, že stride je počet bytů pixel dat na jeden řádek. Takže jsem dal: Dim Stride as integer = Width * PixelFormats.Bgra32.BitsPerPixel a pole jsem dimenzoval na Výšku * stride Dim arPixels(Height * stride) As Integer každému prvku v poly jsem nastavil hodnotu barvy na &H00FFFFFF (černá plně průhledná) A teď to funguje správně. BitmapImage.Create(Width, Height, 96, 96, _ pixelFormat, Nothing, arPixels, stride) Jen nechápu, proč se v dokumentaci a v různých examplech počítá stride pokaždé jinak. Nicméně děkuji za pomoc.
|