Saturday, April 3, 2010

VB6 Code - Konversi Warna Dari RGB Ke Hex

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari rgb (red, green, blue) ke Hex. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:
Public Function RGBToHex(Red As Integer, Green As Integer, Blue As Integer)
RGBToHex = Right(0 & Hex(Red), 2) & Right(0 & Hex(Green), 2) & Right(0 & Hex(Blue), 2)
End Function
Contoh penggunaan fungsi konversi warna dari RGB ke HEX
Private Sub Command1_Click()
MsgBox RGBToHex(0, 0, 12)
End Sub