¿Cómo binarizar imágenes en vb?

Atenuar R como byte

Atenuar G como byte

Atenuar B como byte

Atenuar aaa mientras

Atenuar bbb como byte

Atenuar i como entero

Atenuar j como entero

Subcomando privado1_Click()

Para i = 1 a Imagen1.ScaleHeight Paso 15

For j = 1 a Imagen1.ScaleWidth Paso 15

aaa = Imagen1.Point(j, i)

Privado SubComando1_Clic(). p>bbb = R / 3 G / 3 B / 3 'Obtiene el valor de escala de grises

Si bbb gt; = 171 Entonces 'Bbb se puede cambiar apropiadamente aquí para obtener el mejor efecto de 2 valores

Imagen2.PSet(j): Imagen2.PSet(j): Imagen2.PSet(j): Imagen2.PSet(jImagen2.PSet(j, i), RGB(0, 0, 0)

Finalizar si

Siguiente j

Siguiente i

Fin Sub