Come leggere i pixel da caselle di immagine in VB6

Lettura di un singolo pixel di una foto non è difficile. In effetti, VB ( Visual Basic) ha funzioni specifiche integrato che permettono al programmatore di visualizzare e modificare i pixel in modo rapido e semplice . Ci sono altre avanzate API ( Application Programming Interface) funzioni che utilizzano i programmatori avanzati che sono più veloci e più efficienti. Imparare a vedere un pixel ed estrarre i singoli medium colore da quel pixel sono solo i primi passi per diventare un guru di VB . Istruzioni
1

Avviare l'applicazione VB6 . Vai al modulo in cui si ha l'immagine che si desidera ricevere i dati da .
2

Aprire la maschera in visualizzazione struttura .
3

creare tre funzioni che leggerà i pixel di una volta che avete recuperato it.Public Funzione ExtractRed ( ByVal CurrentColor come lungamente) come ByteExtractRed = CurrentColor E 255End FunctionPublic Funzione ExtractGreen ( ByVal CurrentColor come lungamente) come ByteExtractGreen = ( CurrentColor \\ 256 ) E 255End FunctionPublic Funzione ExtractBlue ( ByVal CurrentColor come lungamente) come ByteExtractBlue = ( CurrentColor \\ 65536) E 255End Funzione
4

Dim i tuoi oggetti come segue : Dim PixelColor come LongDim ColorRed come Byte , ColorGreen come Byte , Colore blu come ByteDim originariamente stava per dimensione e il suo utilizzo ecco come verbo . PixelColor , ColorRed , ColorGreen e Colore blu sono tutte variabili in attesa di input dei dati
5

Digitare il seguente codice sotto le istruzioni Dim : . PixelColor PictureBox.Point = ( x , y) Ora il codice simile a questo : Dim PixelColor come LongDim ColorRed come Byte , ColorGreen come Byte , Colore blu come BytePixelColor PictureBox.Point = ( x , y) PictureBox è il nome della PictureBox l'immagine è dentro le coordinate (x , y ) sono le coordinate della specifica pixel che si desidera che i dati da . I dati del pixel è ora memorizzati nel PixelColor variabile . Il passo successivo è quello di estrarre i singoli colori dello spettro RGB
6

digitare il seguente codice sotto l'ultima affermazione : . ColorRed = ExtractRed ( a colori ) ColorGreen = ExtractGreen ( a colori ) Colore blu = ExtractBlue ( Colore ) Ora il codice è simile al seguente : Dim PixelColor come LongDim ColorRed come Byte , ColorGreen come Byte , Colore blu come BytePixelColor PictureBox.Point = ( x , y) = ColorRed ExtractRed ( PixelColor ) ColorGreen = ExtractGreen ( PixelColor ) Colore blu = ExtractBlue ( PixelColor ) ora ognuna delle variabili ColorRed , ColorGreen e Colore blu avranno un numero da zero a 255 immagazzinato in loro . Avete afferrato con successo un pixel e si ruppe la sequenza specifica di colore .

• Tutorial VBA per Word 
• Come per riprodurre i brani audio mediante Visual Basic