LoadPicture

[iolaus]

команда:

LoadPicture("temp.gif")

загрузит картинку например в picturebox

но у меня картинка уже есть и содежжится в текстовой переменной picbuf

как можно обойтись без:

fNum = FreeFile
Open "temp.gif" For Binary As fNum
Put #fNum, 1, picbuf
Close fNum
Picturebox1.picture = LoadPicture("temp.gif")

а сразу (ну всмысле с какимито преобразованиями запихнуть картинку в picturebox???

[basicom]

А свойство Picture не подходит?

[iolaus]

нет для этого и предуман
loadpicture

он возвращает какието 9-10 значные цифры а в моей переменное текст картинки%) длинной где-то 430 символов!!! и как это связать я не знаю...%(

[basicom]

я имел ввиду "в ручную" запихнуть картинки или с помощью PictureClip

[iolaus]

а что такое PictureClip???

так я и спрашиваю как её вручную запихнуть????

[GoGosha]

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

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 GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Dim bmp As BITMAP

Private Sub Form_Load()
    GetObjectAPI Picture1.Picture, Len(bmp), bmp 'mask
End Sub



bmp.bmBits - ссылка на начало данных о пикселях(кажд. пиксель- 3 байта)
Просто записываешь туда байты. Описание GIF`а ищи в инете