For Y = 1 To CopyHeight
                                    For X = 1 To CopyWidth
                                             Pixel(X, Y) = AscB(MidB(OldImage, (OldWidth * (Y - 1)) + X, 1))
                                    Next
                           Next
                  End If
        End Sub

        Private Function ShiftLeft(SLValue, SLBits)
                  ShiftLeft = SLValue * (2 ^ SLBits)
        End Function

        Private Function ShiftRight(SRValue, SRBits)
                  ShiftRight = Int(SRValue / (2 ^ SRBits))
        End Function

        Private Function Low(LValue)
                  Low = LValue And &HFF
        End Function

        Private Function High(HValue)
                  High = ShiftRight(HValue, 8)
        End Function

        Private Function Blue(BValue)
                  Blue = Low(ShiftRight(BValue, 16))
        End Function

        Private Function Green(GValue)
                  Green = Low(ShiftRight(GValue, 8))
        End Function

        Private Function Red(RValue)

共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 下一页