Рисование в VB библиотекой на Си

[Arcanoid]

С Наступившим!.. (а кого-то ещё только с Наступающим)

Вопросец такой:

Программа на VB6 использует ф-ию из собст..но-ручно написанной DLL на VC++6.
Как сделать так, чтобы из этой самой DLL рисовать с помощью GDI в VB-шном PictureBox-е (при AutoRedraw-е этого box-а = TRUE)? А точнее сказать, как и какие нужно передавать аргументы функции в DLL, какие параметры PictureBox-а использовать...

Например, мне надо нарисовать прямоугольник в невидимой части PictureBox-а, шобы потом, когда эта часть станет видимой нарисованный прямоуг-к тоже был виден.

Приведите пожалуйста пример кода, кто знает как это сделать...
Заранее спасибо!

[GSerg]

А чё так извращённо? Почему не сразу рисовать в VB?

[_Мика_]

А зачем через DLL?? Можно через стандартные фун-ции!

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

Picture1.Line (1, 1) - (10, 10), b(bf)


b-это просто прямоуголбник
bf-закрашеннфй прямоугольник

[Amed]

Ну вот надо так человеку, значит...

[Arcanoid]

Более простой способ будет более медленным.

Мне нужно попиксельно обабатывать изображение, как массив байтов, а чтение/запись всего изображения методами Point и Pset растянется ... сами наверное знаете на сколько !! ))).

Ну или как в таком случае в Vb получить прямой доступ к диб-секции PictureBox-а или stdpicure?

[Amed]

The GetBitmapBits function copies the bitmap bits of a specified bitmap into a buffer.

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

'Create a new project, add a command button and a picture box to the project, load a picture into the picture box.
'Paste this code into Form1
Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Dim PicBits() As Byte, PicInfo As BITMAP
Dim Cnt As Long, BytesPerLine as Long
Private Sub Command1_Click()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Get information (such as height and width) about the picturebox
    GetObject Picture1.Image, Len(PicInfo), PicInfo
    'reallocate storage space
    BytesPerLine = (PicInfo.bmWidth * 3 + 3) And &HFFFFFFFC
    ReDim PicBits(1 To BytesPerLine * PicInfo.bmHeight * 3) As Byte
    'Copy the bitmapbits to the array
    GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
    'Invert the bits
    For Cnt = 1 To UBound(PicBits)
        PicBits(Cnt) = 255 - PicBits(Cnt)
    Next Cnt
    'Set the bits back to the picture
    SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
    'refresh
    Picture1.Refresh
End Sub


[tyomitch]

Как сделать так, чтобы из этой самой DLL рисовать с помощью GDI в VB-шном PictureBox-е (при AutoRedraw-е этого box-а = TRUE)? А точнее сказать, как и какие нужно передавать аргументы функции в DLL, какие параметры PictureBox-а использовать...

Просто передавать Picture.hDC должно быть достаточно.
Но вполне согласен, что при прямой работе с пикселами на VB скорость, скорее всего, будет не хуже.

[_Мика_]

Ну тогда

SetPixel
GetPixel

[tyomitch]

Ну тогда

SetPixel
GetPixel

Да зачем они? Скопировать картинку в массив байт, и работать с ними напрямую...

[Arcanoid]

Благодарю всех за помощь!