VBNet - Форум - GetBitmapBits

Вопрос: GetBitmapBits Добавлено: 16.03.03 08:57

Автор вопроса: Диман | Web-сайт: www.dimon1int.narod.ru | ICQ: 224590251

В функции GetBitmapBits мне непонятен последний параметр As Any. Прочитал, что это обозначает массив байтов, но если я пишу в вызове функции, скажем, arrA() (ну типа массив), барсик на меня матерится. Люди, обьясните плз, что делать ???

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 16.03.03 14:30

А если arrA() as Byte ?

Ответить

Номер ответа: 2 Автор ответа: Диман ICQ: 224590251 Вопросов: 29 Ответов: 64	Web-сайт: www.dimon1int.narod.ru Профиль \| \| #2	Добавлено: 16.03.03 15:34
	Он у меня и так Byte... Ответить

Номер ответа: 3
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #3

Добавлено: 16.03.03 16:55

Источник: http://www.vb.kiev.ua/ref/w32api/showdoc.php?f=getbitmapbits

Функция GetBitmapBits
Описание : Функция GetBitmapBits копирует биты, из указанного растрового изображения, в буфер.
Операционная система : Windows NT 3.1 или выше; Windows 95 или выше
Библиотека : GDI32.dll
'Установите на форме кнопку и PictureBox' в PictureBox загрузите картину.Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd TypePrivate Declare Function GetObject Lib "gdi32" _ Alias "GetObjectA" _ (ByVal hObject As Long, _ ByVal nCount As Long, _ lpObject As Any) As LongPrivate Declare Function GetBitmapBits Lib "gdi32" _ (ByVal hBitmap As Long, _ ByVal dwCount As Long, _ lpBits As Any) As LongPrivate Declare Function SetBitmapBits Lib "gdi32" _ (ByVal hBitmap As Long, _ ByVal dwCount As Long, _ lpBits As Any) As LongDim PicBits() As ByteDim PicInfo As BITMAPDim Cnt As LongPrivate Sub Command1_Click() GetObject Picture1.Image, Len(PicInfo), PicInfo ReDim PicBits(1 To PicInfo.bmWidth *PicInfo.bmHeight *3) As Byte GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1) For Cnt = 1 To UBound(PicBits) PicBits(Cnt) = 255 - PicBits(Cnt) Next Cnt SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1) Picture1.RefreshEnd Sub

Ответить

Номер ответа: 4
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #4

Добавлено: 16.03.03 17:32

Пример с того же сайта

http://www.vb.kiev.ua/code/graph/Using_GetBitmap_SetBitmap.zip

Ответить

Страница: 1 |