Saturday, April 3, 2010

VB6 Code - Konversi Warna Dari Rgb Ke Long

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