Картинка через переменную

[Santa]

Как через переменную передать картинку, почемуто не получается:

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

Dim picTrans As PictureBox
Picture2.Picture = picTrans.Picture
picTrans.Picture = Picture1.Picture

выдаёт "Object variable or With block variable not set (Error 91)", а кчему сет прикрутить не пойму?

[GSerg]

pictrans пустая (неужто не заметил?)

[Santa]

Она же переменная. Один пикчер пустой другой с картинкой, через эту переменную и надо передать картинку. А Set picTrans = New ???.

[GSerg]

Ты объявил переменную не как StdPicture, не как IPictureDisp, а как PictureBox.
Значит, ты собирался работать с пикчербоксом (а не с картинкой).
Поэтому ты должен сначала присвоить переменной один из существующих пикчербоксов.
А если бы ты собирался работать с картинкой, ты бы объявил переменную как StdPicture или как IPictureDisp. Но даже в этом случае первая команда у тебя вызвала бы ту же самую ошибку по той же самой причине.

[Santa]

А так тоже не помогло:

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

Dim picTrans As StdPicture
Picture2.Picture = picTrans
picTrans = Picture1.Picture

и как же всётаки передать?

[GSerg]

Но даже в этом случае первая команда у тебя вызвала бы ту же самую ошибку по той же самой причине.

Лучше скажи словами, что тебе надо. А то я начинаю сильно подозревать.

[EUGY]

Dim picTrans As StdPicture ' это объект

Set picTrans = Picture1.Picture

Set Picture2.Picture = picTrans

[tyomitch]

А нафига здесь вообще промежуточная переменная?

[Santa]

А то я начинаю сильно подозревать.

Интересно вчём???

На форме есть пикчербокс и несколько кнопок, модуль с переменной куда должна попасть картинка, кнопка старт тык и картинка из файла на диске в пеменную, а к другим кнопкам свои функции, одна "Call RedPicture" картинка покраснела. Чтобы не посылать "Call RedPicture(Picture1)" один раз посылается "Call LoadPicture(Picture1)", а все остальные без Picture1.

[EUGY]

А нафига здесь вообще промежуточная переменная?

может для взаимообмена?