Udpakning af rød, grøn og blå ( RGB) komponenter i en farvekode i Visual Basic 6.0 ( VB6 ) er nyttigt, når konvertering af farve dataformater mellem forskellige programmer . VB6 giver en " RGB" -funktionen til at konvertere farver fra deres røde , grønne og blå komponenter i en numerisk "Lange" datatype, men mangler nogen indbygget funktion til at konvertere i den anden retning . Derudover er farvekoder i VB6 lagret med den lille endian format , hvilket betyder, bytes gemmes i hukommelsen i omvendt rækkefølge. Uddrag "RGB" værdier fra farvekoder ved at tilføje en subrutine til at behandle og konvertere koderne automatisk for dig. Instruktioner
1
Åbn din VB6 filen i en editor , såsom Microsoft Visual Studio 6.0.
2
Opret en subrutine til at konvertere en VB6 farvekode i sin røde, grønne og blå komponenter ved at tilføje følgende kode i din fil : Hej
Public Sub Hex2RGB ( LColor As Long , r Som Byte , g Som Byte b Som Byte)
Dim HColor As String < br >
Dim n Som Byte
Dim strHexVal As String
strHexVal = Hex $ ( LColor )
strHexVal = Højre ( ( strHexVal ) , 6)
n = 1 To ( 6 - Len ( strHexVal ) )
HColor = HColor & " 0 "
Næste
HColor = HColor & strHexVal
r = CByte ( "& H " & Right $ ( HColor , 2) )
g = CByte ( "& H " & Mid $ ( HColor , 3, 2 ) )
b = CByte ( "& H " & Venstre $ ( HColor , 2) )
End Sub
farvekoden er konverteret fra "Lange" til " Hex " for lettere behandling . Den " Right ( ( strHexVal ) , 6) " kommando eliminerer ekstra tegn i starten af strengen som " & H. " "For " loop tilføjer 0'er før hver karakter til at løse eventuelle formatering spørgsmål. VB6 bruger lille endian at gemme farveværdier så "RGB" bytes faktisk gemmes i omvendt som " BBGGRR ". Koden bruger " Cbyte "-funktionen til at splitte hinanden strengen til at hente de røde , grønne og blå værdier og gemme dem hver som en " Byte ".
3
Erklær variable indstille en farve og derefter kalde subrutinen at konvertere farvekode ved at tilføje følgende kode i din funktion : Hej
Dim r, g, b som Byte
Dim LColor As Long
LColor = RGB (11, 200 , 25)
Ring Hex2RGB ( LColor , r, g, b )
4
Gem VB6 filen , kompilere og køre programmet til at konvertere farvekode .
