Public Shared Function mascara(ByVal masc As Bitmap, ByVal ima As Bitmap) As Bitmap Try Dim msk As New List(Of Byte) Dim orim As New List(Of Byte) t1 = DateTime.Now msk.AddRange(imagen_byte(masc)(0)) orim.AddRange(imagen_byte(ima)(0)) t2 = DateTime.Now If msk.Count = orim.Count Then For i = 0 To msk.Count - 1 If msk(i) <> 0 Then msk(i) = orim(i) End If Next End If t3 = DateTime.Now Return byte_imagen(msk.ToArray, masc) Catch ex As Exception Return Nothing End Try End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)