Конференция VBStreets

**Otto-77** » 11.12.2004 (Сб) 23:32

Подскажите пожалуйсто как из ImageList`а вывести картинки на форму, несколько одновременно.
Заранее благодарю!!!

**xolod** » 12.12.2004 (Вс) 0:31

А метод Draw уже не катит :wink:

?

**xolod** » 12.12.2004 (Вс) 0:33

....

и причем здесь visual basic for application

**Otto-77** » 12.12.2004 (Вс) 0:43

xolod писал(а):А метод Draw уже не катит ?

Да пробывал че то не получается!!!
Если бы можно было бы примерчик маленький, Вы бы меня просто спасли!!!!

**xolod** » 12.12.2004 (Вс) 1:25

хм.. там же четыре параметра всего интуитивно понятных

ладно, держи пример

**Otto-77** » 12.12.2004 (Вс) 1:50

Огромное спасибо, но я это делаю на VBA!!!
Я также делал как и в вашем примере, но почему-то не рисует и все, ошибку не выдает!!!

**xolod** » 12.12.2004 (Вс) 12:10

А.. ясно. Дык там же у формы не только hdc, у нее hwnd узнать нельзя. Рисовать, ясное дело так не получиться :wink:

**Otto-77** » 12.12.2004 (Вс) 12:17

xolod писал(а):А.. ясно. Дык там же у формы не только hdc, у нее hwnd узнать нельзя. Рисовать, ясное дело так не получиться

Так а что же делать????
Подскажите пожалуйсто!!!!
Ну очень нужно!!!!!

**GSerg** » 12.12.2004 (Вс) 12:24

private hwnd as long

private sub userform_initialize
me.caption=cstr(rnd*1000)
hwnd=findwindow(vbnullstring,me.caption)
me.caption="real caption"
end sub

**Otto-77** » 12.12.2004 (Вс) 12:39

Огромное спасибо, дескриптор находит все нормуль, но все равно не рисует!!! :cry:

**GSerg** » 12.12.2004 (Вс) 17:15

Код в студию...

**Otto-77** » 13.12.2004 (Пн) 2:43

GSerg писал(а):Код в студию...

Вот код, жмеш на баттон и ничего не происходит!!!

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public hwnd As Long

Private Sub UserForm_Initialize()
Me.Caption = CStr(Rnd * 1000)
hwnd = FindWindow(vbNullString, Me.Caption)
Me.Caption = "real caption"
End Sub

Private Sub Cmd_draw_Click()
ImageList1.ListImages(1).Draw hwnd, 100, 100, imlTransparent
End Sub

Помогите плиз!!!

**GSerg** » 13.12.2004 (Пн) 4:14

Дык вместо hwnd нуно getdc(hwnd)...

**Otto-77** » 13.12.2004 (Пн) 18:31

Спасибо, но все равно не работает. У меня уже и надежды нет! :cry:

**xolod** » 13.12.2004 (Пн) 19:29

Не надо ля-ля.. Вот форма, подключи ее к VBA'шному проекту и увидишь, что все работает :wink:

**Otto-77** » 13.12.2004 (Пн) 22:59

Огромное, приогромное Вам спасибо!!!!
Я так и не понял почему оно не работало!!!!
Код был идентичен!!!!
И пока я не скопировал с Вашей формы Imagelist, оно так и не работало!!!
Может в свойствах что-то не так было???

Конференция VBStreets

Отображение на форме картинок из ImageList!!!

Отображение на форме картинок из ImageList!!!

Кто сейчас на конференции