VB6_ BMP File RGB 추출 ( VB6 코드임.. )

네...GetPixel로 읽어온 좌표의 색상값을 RGB로 분해만 하시면 해결 됩니다. 아래 예제는 폼에 픽쳐박스 하나를 올려놓고, 비트맵 이미지를 불러들인다음, 픽쳐박스의 스케일모드를 '3-픽셀'로 설정해 놓으신후 코드를 붙여서 실행해 보세요. 픽쳐박스의 이미지위를 이동할때마다 디버그창에 색상이 표시됩니다. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long)..

2015.08.04