VB6 Code - Konversi Warna dari RGB Ke Long

Di bawah ini merupakan fungsi untuk meng-konversi warna dari rgb (red, green, blue) ke Long. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToLong(Red As Integer, Green As Integer, Blue As Integer) 
    RGBToLong = RGB(Red, Green, Blue) 
End Function 

Contoh penggunaan fungsi konversi warna dari RGB ke Long

Private Sub Command1_Click() 
    MsgBox RGB(8, 12, 254) 
End Sub 

READ MORE - VB6 Code - Konversi Warna dari RGB Ke Long

VB6 Code - Konversi Warna dari QBColor ke RGB

Di bawah ini merupakan fungsi untuk meng-konversi warna dari QBColor ke RGB. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub QBColorToRGB(QBColorValue As Integer)      
     QBColorToRGB = LongToRGB(QBColor(QBColorValue))  
End Sub 

READ MORE - VB6 Code - Konversi Warna dari QBColor ke RGB

VB6 Code - Konversi Warna dari RGB ke HEX

Di bawah ini merupakan fungsi 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 

READ MORE - VB6 Code - Konversi Warna dari RGB ke HEX

VB6 Code - Konversi Warna Long Ke RGB

Di bawah ini merupakan fungsi untuk meng-konversi warna dari long ke rgb (red, green, blue). Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub LongToRGB(Color As Long, Red, Green, Blue)  
    Blue = Color \ 65536  
    Green = (Color - Blue * 65536) \ 256  
    Red = Color - (Blue * 65536) - (Green * 256)  
End Sub  

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()   
    Dim red 
    Dim green 
    Dim blue 
    Call LongToRGB(CLng("23489"), red, green, blue) 
    MsgBox red & "," & green & "," & blue 
End Sub 

READ MORE - VB6 Code - Konversi Warna Long Ke RGB