Как картинку сделать черно-белой?

[arechemist]

Как картинку сделать черно-белой?

[kazah_]

Я тут на сайте Vbnet.ru часто тусуюсь... Так вот, там сейчас, чуть ли не тема сайта эта ч\б картинка. Зайди прямо главной увидешь ссылку!
http:\\www.vbnet.ru

[GSerg]

Не знаю, че там на vbnet... Но есть функция CopyImage, и у неё можно указать флаг, который сделает копию чёрно-белой...

[arechemist]

GSerg
расскажи поподробнее...

[GSerg]

Код: Выделить всё

Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal imageType As Long, ByVal newWidth As Long, ByVal newHeight As Long, ByVal lFlags As Long) As Long

· hinst
Identifies an instance of the module that contains the image to be copied.

· uType
Specifies the type of image to be copied. This parameter can be one of the following values:
IMAGE_BITMAP
Copies a bitmap.
IMAGE_CURSOR
Copies a cursor.
IMAGE_ICON
Copies an icon.

· cxDesired
Specifies the desired width, in pixels, of the image.

· cyDesired
Specifies the desired height, in pixels, of the image.

· fuFlags
Specifies a combination of the following values:
LR_COPYDELETEORG
Deletes the original image after creating the copy.
LR_COPYRETURNORG
Creates an exact copy of the image, ignoring the cxDesired and cyDesired parameters.
LR_MONOCHROME
Creates a new monochrome image.
LR_COPYFROMRESOURCE
Tries to reload an icon or cursor resource from the original resource file rather than simply copying the current image. This is useful for creating a different-sized copy when the resource file contains multiple sizes of the resource. Without this flag, CopyImage stretches the original image to the new size. If this flag is set, CopyImage uses the size in the resource file closest to the desired size.

This will succeed only if hImage was loaded by LoadIcon or LoadCursor, or by LoadImage with the LR_SHARED flag.