Public Sub Form_Open()
Dim im As Image
Dim st As Stream
Dim i As Integer
Dim l, limes As Long
' El valor del color límite por mi eligido:
limes = &FFC0C0C0&
im = Image.Load("/ruta/del/archivo/imagen/RGBA")
st = Memory im.data For Write
For i = 0 To im.Pixels.Max * 4 Step 4
l = CLong(Byte@(im.Data + i))
l += CLong(Shl(CLong(Byte@(im.Data + (i + 1))), 8))
l += CLong(Shl(CLong(Byte@(im.Data + (i + 2))), 16))
l += CLong(Shl(CLong(Byte@(im.Data + (i + 3))), 24))
If l > limes Then
Write #st, Color.RGB(255, 255, 255, 255) As Integer ' Impone el pixel blanco
Else
Seek #st, Seek(st) + 4
Endif
Next
st.Close
With PictureBox1
.W = im.W
.H = im.H
.Image = im
End With
End
Dim im As Image
Dim st As Stream
Dim i As Integer
Dim l, limes As Long
' El valor del color límite por mi eligido:
limes = &FFC0C0C0&
im = Image.Load("/ruta/del/archivo/imagen/RGBA")
st = Memory im.data For Write
For i = 0 To im.Pixels.Max * 4 Step 4
l = CLong(Byte@(im.Data + i))
l += CLong(Shl(CLong(Byte@(im.Data + (i + 1))), 8))
l += CLong(Shl(CLong(Byte@(im.Data + (i + 2))), 16))
l += CLong(Shl(CLong(Byte@(im.Data + (i + 3))), 24))
If l > limes Then
Write #st, Color.RGB(255, 255, 255, 255) As Integer ' Impone el pixel blanco
Else
Seek #st, Seek(st) + 4
Endif
Next
st.Close
With PictureBox1
.W = im.W
.H = im.H
.Image = im
End With
End