ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Присвоить кнопке, изображения с элемента управления рисунок
24 сообщений из 24, страница 1 из 1
Присвоить кнопке, изображения с элемента управления рисунок
    #39525583
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
ms Access 2007
На форме лежит кнопка, а рядом два рисунка.
Пытаюсь поочерёдно класть на кнопку с элементов типа РИСУНОК - их изображения.
Me!BTN.Picture = Me!Picture1.Picture
Пока что кладут на меня, не более того.
------------------------------------------------------------------------
Не хотелось бы использовать для этих целей - доп файлы с рисунками.
Решаема ли задача?
------------------------------------------------------------------------
СПС
...
Рейтинг: 0 / 0
25.09.2017, 09:24
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525589
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
час58,

Ты рисунок выбрал формата JPG
А нужен формат BMP
Так что поменяй формат и будет тебе щастье.
...
Рейтинг: 0 / 0
25.09.2017, 09:38
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525598
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
час58,
Возможно.
Но вот такой вариант - не прокатывает
Form_N!BTN.Picture = Me!imag.Picture
Это я пытаюсь присвоить кнопке картинку, находясь на другой форме.
Как быть в таком случае?
...
Рейтинг: 0 / 0
25.09.2017, 09:51
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525599
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
час58,
А что пишет Access?
а вот что
Введенное выражение содержит ссылку на объект, который закрыт или не существует.
...
Рейтинг: 0 / 0
25.09.2017, 09:52
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525603
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58Form_N!BTN!!!!...


час58Me!BTN.PictureData = Me!imag.PictureData

час58формат BMPСам с собой?
...
Рейтинг: 0 / 0
25.09.2017, 09:58
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525620
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панург,

Угу
...
Рейтинг: 0 / 0
25.09.2017, 10:19
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525622
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58, что "угу"? Я тебе уже ответил.
...
Рейтинг: 0 / 0
25.09.2017, 10:22
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525625
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Я ответил на это :
[/quot]Сам с собой?[/quot]
угу.
...
Рейтинг: 0 / 0
25.09.2017, 10:23
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525627
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панург,
Спасибо.
...
Рейтинг: 0 / 0
25.09.2017, 10:24
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525632
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58находясь на другой форме.
Код: vbnet
1.
Form("N").BTN.PictureData = Me!imag.PictureData

в общем случае

в частном...
Код: vbnet
1.
2.
3.
4.
5.
Private Sub imag_Click()
    If CStr(Nz(Form("N").BTN.PictureData)) = CStr(Me.imag.PictureData) Then
        Form("N").BTN.PictureData = Me.imag.PictureData
    End If
End Sub
...
Рейтинг: 0 / 0
25.09.2017, 10:29
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525633
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
забыл
Код: vbnet
1.
If not CStr(Nz(Form("N").BTN.PictureData)) = CStr(Me.imag.PictureData) Then
...
Рейтинг: 0 / 0
25.09.2017, 10:31
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525635
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
опять... (вот что значит не в IDE пишешь!)
Панургзабыл
Код: vbnet
1.
If not CStr(Nz(Forms("N").BTN.PictureData)) = CStr(Me.imag.PictureData) Then
...
Рейтинг: 0 / 0
25.09.2017, 10:34
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525640
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панург,

Ясно.
Спасибо.
...
Рейтинг: 0 / 0
25.09.2017, 10:39
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525715
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
час58,
...
Рейтинг: 0 / 0
25.09.2017, 12:26
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525719
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
час58,
а чё не так (рисунок *.bmp или *.ico)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Form_Current()
If Me.CurrentRecord Mod 2 = 0 Then  'условие Ваше
        Me.btm0.Picture = Me.ris4.Picture
    Else
        Me.btm0.Picture = Me.ris5.Picture
        End If
End Sub
...
Рейтинг: 0 / 0
25.09.2017, 12:30
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39525753
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdkuа чё не таквопросы надо читать полностью
час58Не хотелось бы использовать для этих целей - доп файлы с рисунками.
...
Рейтинг: 0 / 0
25.09.2017, 13:08
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526000
Вакшуль Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вакшуль Сергей
Участник
час58,

Если у вас 2010-ый Access, то вы можете пользоваться SharedResources.

Ken Getz специально записал ролик:
https://msdn.microsoft.com/en-us/library/office/gg490661(v=office.14).aspx

Код: vbnet
1.
2.
    Me.Кнопка0.PictureType = 2              '- задает тип рисунка "Общее"(Shared)
    Me.Кнопка0.Picture = "ArrowUpGreen"     '- принимает имя рисунка, как указание, что отображать



никогда не слышали голос Гетца? :)
...
Рейтинг: 0 / 0
25.09.2017, 21:19
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526269
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Вакшуль Сергей,

:-)
да. MS Access -2007
...
Рейтинг: 0 / 0
26.09.2017, 11:45
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526297
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Странно .
После вставки кода типа
Код: vbnet
1.
Form("N").BTN.PictureData = Me!imag.PictureData


Перестало работать по всякому.
То есть не работает ни как.
===================
Заработало только, когда по новой принудительно указал местоположение рисунков.
Но только в таком виде, когда и кнопка и рисунок -лежат на одной и той же форме.

Код: vbnet
1.
Form_FRM!BTN.Picture = Form_FRM!Рисунок1.Picture
...
Рейтинг: 0 / 0
26.09.2017, 12:02
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526404
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
час58,
насчет ссылки на форму см. 20819902 -буковка "s"
...
Рейтинг: 0 / 0
26.09.2017, 13:38
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526421
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
sdku,

и с буковкой и без буковки пробовал
И с кавычками и без....
ни фига картинки с другой формы не перебрасываются на кнопку на другой форме.
...
Рейтинг: 0 / 0
26.09.2017, 13:57
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526480
76kd983
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
76kd983
Гость
час58,
PictureData для кнопки воспримет нормально только (по крайней мере для Access с версиями до 2007) данные картинки в формате DIB. Если там EMF - не воспримет. Проверять можно по первому байту: 40 - DIB, 14 - EMF. Грубо говоря
Код: vbnet
1.
If Asc(Left$(Forms("Форма").Рисунок.PictureData, 1)) = 40 Then ...
...
Рейтинг: 0 / 0
26.09.2017, 14:45
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526671
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
76kd983,

фига се тонкости...
Спасибо, что прояснили картину.

Ситуация на данный момент стабильная.
С рисунков, лежащих рядом с кнопкой - переброс стабилен из любого места программы.
а картинки из рисунков с другой формы не перебрасываются на кнопку на другой форме.
...
Рейтинг: 0 / 0
26.09.2017, 18:13
| Ответить | Цитировать | Написать  
Присвоить кнопке, изображения с элемента управления рисунок
    #39526675
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
После перезагрузки приложения.
Переброс картинки перестаёт работать.
...
Рейтинг: 0 / 0
26.09.2017, 18:18
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Присвоить кнопке, изображения с элемента управления рисунок
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39525640&tid=1612064]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 17ms
total:  163ms
созд. / загр.: 163ms
x
x
Закрыть


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