DiSe » 19.07.2003 (Сб) 22:07
For i = 0 To PictureHeight
For j = 0 To PictureWidth
sColor = GetPixel(Bitmap.Shape.hdc, j, i)
'sColor = Bitmap.Shape.Point(j, i)
sHEXColor = RGBtoHex(sColor)
'''
If sColor = vbBlack Then sHEXColor = "!"
If sColor = vbRed Then sHEXColor = "R"
If sColor = vbGreen Then sHEXColor = "G"
If sColor = vbYellow Then sHEXColor = "Y"
If sColor = vbBlue Then sHEXColor = "L"
If sColor = vbMagenta Then sHEXColor = "M"
If sColor = vbCyan Then sHEXColor = "S"
If sColor = vbWhite Then sHEXColor = "W"
If sHEXColor <> "FFFFFFFF" Then sData = sData & sHEXColor
'''
Next
Print #1, sData
sData = ""
Next
Close #1