Ako extrahovať RGBS vo VB6

Extrakcia červenej , zelenej a modrej ( RGB ) zložky farebného kódu v jazyku Visual Basic 6.0 ( VB6 ) je užitočné pri konverzii dátových formátov farieb medzi rôznymi programami . VB6 poskytuje funkciu " RGB " pre prevod farieb z červených , zelených a modrých zložiek do číselnej " Long " typ dát , ale chýba akúkoľvek vstavanú funkciu previesť v opačnom smere . Navyše , farebné kódy vo VB6 sú uložené pomocou malého formátu endian , čo znamená , byty sú uložené v pamäti v opačnom poradí . Výpis hodnôt " RGB " z farebných kódov pridaním podprogram spracovať a previesť kódy automaticky za vás . Pokyny dovolená 1

Otvorte VB6 súbor v editore , ako je napríklad Microsoft Visual Studio 6.0 .
2

Vytvorte podprogram previesť farebný kód VB6 do jeho červená , zelená a modrej zložky pridaním nasledujúceho kódu do súboru : klipart

Public Sub Hex2RGB ( LColor As Long , r As Byte , g As Byte , b Ako Byte )

Dim HColor As String

Dim n ako Byte

Dim strHexVal As String

strHexVal = Hex $ ( LColor )

strHexVal = Right ( ( strHexVal ) , 6 )

Pre n = 1 až ( 6 - Ľan ( strHexVal ) )

HColor = HColor & " 0 "

Ďalšie

HColor = HColor & strHexVal

r = CByte ( " & H " & Right $ ( HColor , 2 ) ) celým

g = CByte ( " & H " & Mid $ ( HColor , 3 , 2 ) ) celým

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

End Sub

farebný kód je prevedený z " Long " na " Hex " pre ľahšie spracovanie . " Pravá ( ( strHexVal ) , 6 ) " príkaz eliminuje akékoľvek ďalšie znaky na začiatku reťazca , ako je " & H " " V " slučky pridáva 0 pred každý znak opraviť všetky problémy s formátovaním . VB6 používa little endian na uloženie hodnôt farieb, takže " RGB " byty sú v skutočnosti uložené v opačnom smere ako " BBGGRR . " Kód používa funkciu " CByte " rozdeliť od seba reťazec načítať červenej , zelenej a modrej hodnoty a uložiť ich každý ako " Byte . "
3

deklarovať premenné , nastavte farba a potom volať podprogram previesť farebný kód pridaním nasledujúci kód do vašich funkcie :

Dim r, g , b Ako Byte

Dim LColor As Long

LColor = RGB ( 11 , 200 , 25 )

Call Hex2RGB ( LColor , r, g , b )
4

Uložte súbor VB6 , skompilovať a spustiť program pre konverziu kód farby .

• Predchádzajúca strana: Ako používať Matrix otočiť vo VB.NET 
• Ďalšia strana: Ako používať indexOf vo VB.NET