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

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


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

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

Угу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 10:22
    #39525622
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
час58, что "угу"? Я тебе уже ответил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 10:23
    #39525625
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
Я ответил на это :
[/quot]Сам с собой?[/quot]
угу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 10:24
    #39525627
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
Панург,
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 10:29
    #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:31
    #39525633
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
забыл
Код: vbnet
1.
If not CStr(Nz(Form("N").BTN.PictureData)) = CStr(Me.imag.PictureData) Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 10:34
    #39525635
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
опять... (вот что значит не в IDE пишешь!)
Панургзабыл
Код: vbnet
1.
If not CStr(Nz(Forms("N").BTN.PictureData)) = CStr(Me.imag.PictureData) Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 10:39
    #39525640
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
Панург,

Ясно.
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 12:26
    #39525715
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
час58,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 12:30
    #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, 13:08
    #39525753
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
sdkuа чё не таквопросы надо читать полностью
час58Не хотелось бы использовать для этих целей - доп файлы с рисунками.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2017, 21:19
    #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
| Ответить | Цитировать | Написать  
26.09.2017, 11:45
    #39526269
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
Вакшуль Сергей,

:-)
да. MS Access -2007
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2017, 12:02
    #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, 13:38
    #39526404
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
час58,
насчет ссылки на форму см. 20819902 -буковка "s"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2017, 13:57
    #39526421
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
sdku,

и с буковкой и без буковки пробовал
И с кавычками и без....
ни фига картинки с другой формы не перебрасываются на кнопку на другой форме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2017, 14:45
    #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, 18:13
    #39526671
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить кнопке, изображения с элемента управления рисунок
76kd983,

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

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


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