End Property

        Public Property Let BGroundColor(ByVal Color)
                  GlobalColorTable(0) = MakeColor(Color)
                  BGroundColorindex = 0
        End Property

        Public Property Let FGroundColor(ByVal Color)
                  GlobalColorTable(1) = MakeColor(Color)
                  FGroundColorindex = 1
        End Property

        Public Property Get Pixel(ByVal PX, ByVal PY)
                  If (PX > 0 And PX <= Width_) And (PY > 0 And PY <= Height_) Then
                           Pixel = AscB(MidB(Image, (Width_ * (PY - 1)) + PX, 1))
                  Else
                           Pixel = 0
                  End If
        End Property

        Public Property Let Pixel(ByVal PX, ByVal PY, PValue)
                  Dim Offset
 
                  PX  = Int(PX)
                  PY  = Int(PY)
                  PValue = Int(PValue)
 
                  Offset = Width_ * (PY - 1)
 
                  If (PX > 0 And PX <= Width_) And (PY > 0 And PY <= Height_) Then
                           Image = LeftB(Image, Offset + (PX - 1)) & ChrB(PValue) & RightB(Image, LenB(Image) - (Offset + PX))

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