1
Inicie la aplicación VB6 . Ir a la forma en la que tiene la imagen que desea recibir los datos.
2
Abra el formulario en la vista Diseño .
3
Crear tres funciones que leerá el pixel una vez que haya recuperado it.Public Función ExtractRed ( currentColor ByVal As Long ) Como ByteExtractRed = currentColor Y 255End FunctionPublic Función ExtractGreen ( currentColor ByVal As Long ) Como ByteExtractGreen = ( currentColor \\ 256 ) Y 255End FunctionPublic Función ExtractBlue ( ByVal currentColor As Long ) como ByteExtractBlue = ( currentColor \\ 65536) Y 255End función
4
Baje sus objetos como sigue : PixelColor Dim como LongDim colorred como Byte , ColorGreen como Byte , ColorBlue como ByteDim inicialmente a la dimensión y su uso aquí es como un verbo . PixelColor , colorred , ColorGreen y ColorBlue son variables de espera para la entrada de datos