Estrazione del blu ( RGB ) componenti di un codice colore in Visual Basic 6.0 ( VB6 ) rosso, verde ed è utile per la conversione di formati di dati di colore tra diversi programmi . VB6 fornisce una funzione " RGB " per convertire i colori da loro componenti di rosso , verde e blu in un tipo di dati " Long" numerica , ma manca di qualsiasi funzione incorporata per convertire nell'altra direzione . Inoltre , i codici di colore in VB6 sono memorizzati utilizzando il formato Little endian , cioè byte sono memorizzati in memoria in ordine inverso . Estrarre valori "RGB" da codici colore con l'aggiunta di una subroutine per elaborare e convertire i codici automaticamente. Istruzioni
1

Aprire il file VB6 in un editor , ad esempio Microsoft Visual Studio 6.0 .
2

Creare una subroutine per convertire un codice colore VB6 nel suo colore rosso , verde parti blu e aggiungendo il seguente codice nel file :
pubblico

Sub Hex2RGB ( lcolor As Long , r As Byte , g As Byte , b As Byte ) per

Dim HColor As String < br >

Dim n As Byte Dim

strHexVal As String

strHexVal = Hex $ ( lcolor ) per

strHexVal = Right ( ( strHexVal ) , 6 ) per

Per n = 1 A ( 6 - Len ( strHexVal ) ) per

HColor = HColor & " 0 "

Avanti

HColor = HColor &
strHexVal

r = CByte ( " & H " & Right $ ( HColor , 2) ) per

g = CByte ( " & H " & Mid $ ( HColor , 3 , 2) ) per

b = CByte ( " & H " & Left $ ( HColor , 2) ) per

End Sub

Il codice del colore viene convertito da "Long " a " Hex ", per una più facile lavorazione . Il comando "Right ( ( strHexVal ) , 6)" elimina tutti i caratteri in più all'inizio della stringa , ad esempio " & H " Il ciclo "for ", aggiunge 0 della prima di ogni carattere di risolvere gli eventuali problemi di formattazione . VB6 utilizza little endian per memorizzare i valori di colore in modo che i byte "RGB" sono in realtà memorizzati in retromarcia come " BBGGRR . " Il codice utilizza la funzione " CByte " per dividere a parte la stringa per recuperare i valori di rosso, verde e blu e memorizzarli ciascuno come un " byte ".
3

dichiarare le variabili , impostare un colore e poi chiamare la subroutine per convertire il codice del colore aggiungendo il seguente codice nella funzione :

Dim r, g , b As Byte Dim

lcolor As Long

lcolor = RGB ( 11 , 200 , 25 ) per

Chiama Hex2RGB ( lcolor , r, g , b ) economici 4

Salvare il file VB6 , compilare ed eseguire il programma per convertire il codice colore .