При Form1.Picture = None неправильно стартует программа.

[tyomitch]

Ой, мастера-ломастера... Добрался я-таки домой, к любимому VB

Этот код проверен и работает верно. Архив с ехе-шником, что ли, приаттачить?

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

    Set Picture = PictureFromBits.PictureFromBits(sArr) 'вызов модуля конвертирования массива в картинку
    Width = ScaleX(Picture.Width, vbHimetric, vbTwips)
    Height = ScaleY(Picture.Height, vbHimetric, vbTwips)


Кстати, AutoRedraw = True тоже можно убрать.

[kibernetics]

tyomitch

если можно, прикрутите аттач. не работает так. возращает 0

[tyomitch]

tyomitch

если можно, прикрутите аттач. не работает так. возращает 0

См.

[Konst_One]

похоже, что у автора все-таки проблема в другом
код темыча и мой тоже работают и дают одинаковый результат.
т.ч. Автор ищи проблему у себя.

[kibernetics]

tyomitch
превосходно! работает! именно это я и хотел! вопрос можно закрыть...
благодарю всех. извините, что тут мозги дурил долго...

Konst_One
несмотря на то что код у вас с tyomitchразный, у меня почему-то ваш не работает. может он всё-таки что-то проверяет еще дополнительно... или в самой студии что-то выставлено... хотя, екзешник..
в общем, незнаю. интересно, а у tyomitch ваш код работает или нет?

[tyomitch]

Konst_One
несмотря на то что код у вас с tyomitchразный, у меня почему-то ваш не работает. может он всё-таки что-то проверяет еще дополнительно... или в самой студии что-то выставлено... хотя, екзешник..
в общем, незнаю. интересно, а у tyomitch ваш код работает или нет?

Нет, у tyomitch его код тоже не работает (проверял только ехе-шник).