Задача 9.
Реализовать выделение отдельного цветового канала (например, красного).
Решение (Visual Basic)
Цветовым каналом называется состояние рисунка, при котором во всех его пикселях оставлено только значение одной соответствующей составляющей, а остальные обнулены. Каждый цветовой канал представляет собой монохромное изображение (рис. 23).
Соответственно, программа получается очень простой.
Private Sub Command8_Click()
Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width
Picture2.Cls
For i = 1 To Picture1.ScaleWidth
For j = 1 To Picture1.ScaleHeight
colpix = Picture1.Point(i, j)
rcol = colpix And &HFF
gcol = Int(colpix \ &H100) And &HFF
bcol = Int(colpix \ &H10000) And &HFF
gcol = rcol: bcol = rcol ' rcol не меняем
Picture2.PSet (i, j), RGB(rcol, gcol, bcol)
Next j
Next i
End Sub