Иконка формы - проблема?

[Oldman]

Как можно программно (не в дизайнере) поменять иконку?

Есть Form1 с ImageList = pict с набором иконок.
Фокус .Icon = Form1.DefInstance.pict.Images.Item(7).Clone ошибки при компиляции не показывает, но при попытке выполнить эту строку возникает ошибка.
Иконку для кнопки - проблем нет:
S_Sort.Image = Form1.DefInstance.pict.Images.Item(1) - все работает, а иконкой формы - лажа
Помогите, плиз...

[Oldman]

И тишина... Что, совсем никак?
Что ж за ЁПРСТ?

[Lobo]

На кнопку можно поставить любую картинку, а на форму - только icon. Может, там у тебя в ImageList не тот формат?

[eZeus]

Попробуй воспользоваться System.Drawing.ImageFormatConverter

[Oldman]

А для особо тупых поподробней можно?
Ненавижу этот "новый" MSDN - ни примеров, ни хрена!!! Сам черт ногу сломит...
Куча ссылок по кругу ходят, а толку никакого АБСОЛЮТНО!!!!

[Lobo]

Так всё-таки, какой у тебя формат картики в ImageList ?

[Oldman]

Формат стандартный - иконки взяты из набора иконок в VB6:
16х16 пикселей, 16 бит цвет...
Я уже и копию формы созавал, и копию иконки и как я только не извращался... Даже в умных книжках этого нет...
Как говорится в одном анекдоте про женский половой орган из 5 букв: "...Или жоппа с двумя "п" или очко с мягким знаком"

[Lobo]

Исследовал я этот вопрос...
ImageList.Images.Item имеет тип Image, а тебе надо Icon. Так просто конвертнуть не удаётся. Преобразовываем в Bitmap:

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

Dim bmp as System.Drawing.Bitmap = _
        CType(ImageListIcon.Images(0), _
        System.Drawing.Bitmap)

Берём от него handle:

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

Dim ptr as IntPtr = bmp.GetHicon

Создаём новую иконку:

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

Me.Icon = Me.Icon.FromHandle(ptr)

И дело сделано!

[Oldman]

Ёперный театр! Две недели упорных поисков и мытарств увенчались успехом!!!!

"Размеры моей благодарности не будут иметь границ в пределах разумного!!!!" (с) С.Альтов.

И все так просто (когда знаешь ) - а ведь метода .FromHandle() и .GetHicon нет в списке доступных методов для объекта Bitmap... Я бы и не догадался...

Еще раз ОГРОМНЫЙ СЕНКС!!!

[brigval]

Исследовал я этот вопрос...

Мне тоже пригодился Ваш совет. Огромное спасибо!
[Viper] :: А ничего, что прошло больше 7 лет? Зачем некрофилию разводить?