Trekke den røde , grønne og blå ( RGB ) komponentene i en fargekode i Visual Basic 6.0 ( VB6 ) er nyttig når du konverterer farge dataformater mellom ulike programmer. VB6 gir en " RGB "-funksjonen til å konvertere farger fra sine røde , grønne og blå komponentene i en numerisk " Long " datatype , men mangler noen innebygd funksjon for å konvertere i den andre retningen . I tillegg er fargekoder i VB6 lagret ved hjelp av little endian format , som betyr bytes lagres i minnet i omvendt rekkefølge. Pakk " RGB " verdier fra fargekoder ved å legge til en subrutine for å behandle og konvertere kodene automatisk for deg. Instruksjoner
en
Åpne VB6 filen i et redigeringsprogram , for eksempel Microsoft Visual Studio 6.0.
2
Lag en subrutine for å konvertere en VB6 fargekode i sin røde , grønne og blå komponentene ved å legge følgende kode i filen : en
Public Sub Hex2RGB ( LColor Som Long , r Som Byte , g Som Byte , b As Byte )
Dim HColor As String
Dim n Som Byte
Dim strHexVal As String
strHexVal = Hex $ ( LColor )
strHexVal = Høyre ( ( strHexVal ) , 6 )
For n = 1 To ( 6 - Len ( strHexVal ) )
HColor = HColor & " 0 "
Neste
HColor = HColor & strHexVal
r = CByte ( "& H " & Høyre $ ( HColor , 2 ) )
g = CByte ( "& H" & Mid $ ( HColor , 3 , 2 ) )
b = CByte ( "& H " & Venstre $ ( HColor , 2 ) )
End Sub
fargekode er konvertert fra "Lang " til " Hex" for enklere behandling. Den " Right ( ( strHexVal ) , 6 ) " kommandoen fjerner noen ekstra tegn i begynnelsen av strengen som " & H." "For " loop legger 0 -tallet før hver karakter for å løse eventuelle formatering problemer . VB6 bruker lite endian å lagre fargeverdiene slik at "RGB" byte er faktisk lagret i revers som " BBGGRR . " Koden bruker " Cbyte "-funksjon for å splitte hverandre strengen for å hente de røde , grønne og blå verdier og lagre dem hver som en " Byte ".
3
Erklærer variabler , sette en farge og deretter ringe subrutine å konvertere fargekode ved å legge følgende kode i funksjon din : en
Dim r , g, b As Byte
Dim LColor Som Long
LColor = RGB ( 11 , 200 , 25)
Ring Hex2RGB ( LColor , r, g, b )
4
Lagre VB6 filen , kompilere og kjøre programmet for å konvertere fargekode .
