Red = Low(RValue)
        End Function

        Private Function MakeColor(MCValue)
                  MakeColor = CLng("&H" & Right(MCValue, 2) & Mid(MCValue, 4, 2) & Mid(MCValue, 2, 2))
        End Function

        Private Function GetWord(GWValue)
                  GetWord = ShiftLeft(AscB(RightB(GWValue, 1)), 8) Or AscB(LeftB(GWValue, 1))
        End Function

        Private Function MakeWord(MWValue)
                  MakeWord = ChrB(Low(MWValue)) & ChrB(High(MWValue))
        End Function

        Private Function MakeByte(MBValue)
                  MakeByte = ChrB(Low(MBValue))
        End Function

        Private Function UncompressedData()
                  Dim ClearCode, ChunkMax, EndOfStream
                  Dim UDData, UD, U
 
                  UncompressedData = ""
 
                  ClearCode   = 2 ^ Bits
                  ChunkMax   = 2 ^ Bits - 2
                  EndOfStream   = ClearCode + 1
 
                  UDData    = ""
 
                  For U = 1 To LenB(Image) Step ChunkMax
                           UDData = UDData & MidB(Image, U, ChunkMax) & ChrB(ClearCode)
                  Next

共24共  上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 下一页