ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите! Ярлык в UserForm (картинка внутри .xls файла)
5 сообщений из 5, страница 1 из 1
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
    #37298866
rubberman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rubberman
Гость
Доброго дня всем!

KL (XL) - спасибо за ссылку на файл Стивена Буллена ( тема ). Наконец то подогнал свою форму под стили.

У меня только не получается прописать ярлык на картинку, вместо загрузки файла иконки.

В форме планирую использовать только 1 иконку, без возможности её замены.
Саму картинку иконки в битовом формате поместил в UserForm1. Её расположение - Me.Image1

Процедура отвечающая за инициализацию UserForm1 выглядит так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub UserForm_Activate()

    Set mclsFormChanger = New CFormChanger

    mclsFormChanger.Modal = True
    mclsFormChanger.ShowCaption = True
    mclsFormChanger.ShowCloseBtn = True
    mclsFormChanger.ShowTaskBarIcon = True
    mclsFormChanger.ShowIcon = True
    mclsFormChanger.ShowMaximizeBtn = False
    mclsFormChanger.ShowMinimizeBtn = True
    mclsFormChanger.Sizeable = False
    mclsFormChanger.ShowSysMenu = True
    mclsFormChanger.SmallCaption = False

    Set mclsFormChanger.Form = Me

End Sub

Как и какую процедуру заставить брать рисунок Image1 из UserForm1 и использовать его в качестве иконки?

Помогите, плиз, очень нужно!

Файл прикрепляю.
...
Рейтинг: 0 / 0
07.06.2011, 14:43
| Ответить | Цитировать | Написать  
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
    #37299835
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
rubberman,

http://www.sql.ru/forum/actualthread.aspx?tid=846212

есть ваша задача, как часть. Только иконка берётся с листа Excel.
Обратите внимание на формат рисунка, не все типы файлов могут быть использованы в качестве иконки.
...
Рейтинг: 0 / 0
08.06.2011, 08:27
| Ответить | Цитировать | Написать  
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
    #37299999
rubberman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rubberman
Гость
Дмит, спасибо!

Какие форматы изображения подходят? Перепрововал вариации с .bmp 4,8,16 бит разрешение брал 12 х 12 (и 16x16)
Выдает ошибку 'Run-time error' Object required на эту строку:
Код: plaintext
    hIcon = pb.Image1.Picture.Handle
Лист и картинка с этим именем есть.

Дмит, если есть время, посмотрите пожалуйста, где моя ошибка. Файл прилагаю.
...
Рейтинг: 0 / 0
08.06.2011, 10:36
| Ответить | Цитировать | Написать  
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
    #37300630
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Обратите внимание, лист имеет свойства Name и (Name). Одно из них это надпись на ярлыке листа, тогда - Worksheets("pb").Cells(...), другое - Лист1.Cells(...).
Картинку в лист вставлять надо через панель элементы управления. Тогда проще находить Handle. Можно и на форму. Я использую файл *.ICO, допустимые размеры посмотрите опытным путём ;)
...
Рейтинг: 0 / 0
08.06.2011, 14:38
| Ответить | Цитировать | Написать  
Помогите! Ярлык в UserForm (картинка внутри .xls файла)
    #37301525
rubberman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rubberman
Гость
Дмит, наиогромнейшее спасибо!!! Вы очень меня выручили!!!

Употел искать по Инету темы про использование картинок, а вы все кратко-отлично-понятно объяснили. Вэри сэнкс!!!
...
Рейтинг: 0 / 0
08.06.2011, 23:54
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите! Ярлык в UserForm (картинка внутри .xls файла)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37300630&tid=2176788]:
 0ms
get settings:
 5ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 146ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 191ms
total:  393ms
созд. / загр.: 393ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]