Saturday, April 3, 2010

VB6 Code Konversi Warna Dari Qbcolor Ke RGB

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