crgb.txt

一款飞机射击游戏的源代码

Public Function CRGB(ByVal LongColor As Long) As String
On Error GoTo EX
    Dim S As String
    Dim GN As Byte
    Dim NN As Integer
    For NN = 5 To 0 Step -1
        GN = LongColor \ (&H10) ^ NN
        LongColor = LongColor - (&H10) ^ NN * GN
        If GN <= 9 Then
            S = S & GN
        Else
            S = S & Chr(GN + 55)
        End If
    Next NN
    CRGB = "&H" & S
Exit Function
EX:
MsgBox Err.Description
CRGB = "Error Property"
End Function