Проблема с ImageList+PictureBox

[Шурик]

Здраствуйте....
Вопрос такой: у меня есть ImageList в котором находится пара картинок и мне нужно их отабразить в PictureBox, НО одновременно и с разными координатами. Как можно такое сотворить???

[Oldman]

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

PictureBox.Print ListImages(1).Picture, X1,Y1
PictureBox.Print ListImages(2).Picture, X2,Y2


где X1 и Y1 - координаты первой картинки, X2 и Y2 - соответственно второй.

[Шурик]

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

PictureBox.Print ListImages(1).Picture, X1,Y1
PictureBox.Print ListImages(2).Picture, X2,Y2


где X1 и Y1 - координаты первой картинки, X2 и Y2 - соответственно второй.

Не работает!!!!(((((( Во-первых:
PictureBox.Print ListImages(1).Picture, X1,Y1 выдает ошибку!!
но это понятно почему
Во-вторых:
Добовляю PictureBox.Print PICTURELIST1.ListImages(1).Picture, X1,Y1
работет, но ничего не происходит!!
В третьих: причем здесь Print????

[Шурик]

Может все-таки кто-нибудь знает?Я идиот! Убейте меня, кто-нибудь!??

[Demonx]

Всё просто:

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

Dim Style As ImageDrawConstants, x As Long, y As Long
x = 100
y = 100
Style = imlTransparent
ImageList1.ListImages(1).Draw Picture1.hDC, x, y, Style


[Шурик]

Все почти работает!!!
Но отображается не верно!
Может это стиль другой нужно???
Да и какие стили в данном случае существуют???

[Demonx]

Есть ещё... imlNormal, imlFocus, imlSelected ну и imlTransparent

[Amed]

Код Oldman'а верен, но только отчасти: не Print, a PaintPicture

[Шурик]

Всем спасибо!! Теперь все работает!!!!
Отабражение происходило не правильно в XP, а в МЕ у меня все нормально!! Странно!!!

[Oldman]

В третьих: причем здесь Print????

Сорри, бес попутал... Не print, а правильно было написать вот так:
PictureBox.PaintPicture ListImages(1).Picture, X1,Y1

Еще раз сорри...