Картинку в массив

[minigun]

Почему не получается переташить из имеющийся картинки через массив в другую картинку? Какой должен быть тип массива? Или этот вопрос слишком глуп, чтобы на него отвечать?? ;) Или это просто не возможно? Посоветуйте пожалуйсто, как сделать.

Dim img(10) As Я идиот! Убейте меня, кто-нибудь!?

Private Sub Form_Load()
img(0) = Image1.Picture
End Sub

Private Sub Command1_Click()
Image2.Picture = img(0)
End Sub

[ANDLL]

IPicture\IPictureDisp.

[GM]

Или StdPicture

[Faust]

2All: Человек же ясно выразился: ему нужен массив.
2minigun: API-функции CreateDIBSection, GetDIBits и SetDIBitsToDevice ждут тебя!
ЗЫ. Если ещё не скачал, то обязательно скачай полезную прогу API-Guide. В ней в примерах разобран принцип работы с DIBits'ами. А ещё поиск по форуму (по вышеперечисленным ключевым словам) рулит!

[Cryonyx]

Зачем так мудрить?

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


Dim pct(10) As Picture
Dim i As Integer
For i = 0 To 10
    Set pct(i) = Me.Picture
Next i
Picture1.Picture = pct(5)


[minigun]

Всем большое спасибо, разобраля! А спосибо в двойне Cryonyx,
Что и требовалось доказать, записываем в img(0) картинку и перекидываем ее через массив в другую,(пустую) картинку!

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

Dim img(10) As Picture

Private Sub Command1_Click()
Image2.Picture = img(0)
End Sub

Private Sub Form_Load()
Set img(0) = Image1.Picture
End Sub


[GSerg]

Во извращенцы...

Когда спрашивают про картинку в массив, имеют в виду передачу картинки по сети.

Теперь объясните, во-первых, зачем здесь массив, а во-вторых, вообще зачем промежуточная стадия... Чё, слабо сразу присвоить image1.picture=image2.picture?

[Cryonyx]

2 GSerg
В образовательных целях