Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
ms Access 2007
На форме лежит кнопка, а рядом два рисунка.
Пытаюсь поочерёдно класть на кнопку с элементов типа РИСУНОК - их изображения.
Me!BTN.Picture = Me!Picture1.Picture
Пока что кладут на меня, не более того.
------------------------------------------------------------------------
Не хотелось бы использовать для этих целей - доп файлы с рисунками.
Решаема ли задача?
------------------------------------------------------------------------
СПС
25 сен 17, 09:24    [20819719]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
час58,

Ты рисунок выбрал формата JPG
А нужен формат BMP
Так что поменяй формат и будет тебе щастье.
25 сен 17, 09:38    [20819742]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
час58,
Возможно.
Но вот такой вариант - не прокатывает
Form_N!BTN.Picture = Me!imag.Picture
Это я пытаюсь присвоить кнопке картинку, находясь на другой форме.
Как быть в таком случае?
25 сен 17, 09:51    [20819786]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
час58,
А что пишет Access?
а вот что
Введенное выражение содержит ссылку на объект, который закрыт или не существует.
25 сен 17, 09:52    [20819793]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3323
час58
Form_N!BTN
!!!!...


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


час58
формат BMP
Сам с собой?
25 сен 17, 09:58    [20819815]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
Панург,

Угу
25 сен 17, 10:19    [20819857]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3323
час58, что "угу"? Я тебе уже ответил.
25 сен 17, 10:22    [20819865]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
Я ответил на это :
[/quot]Сам с собой?[/quot]
угу.
25 сен 17, 10:23    [20819873]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
Панург,
Спасибо.
25 сен 17, 10:24    [20819875]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3323
час58
находясь на другой форме.

Form("N").BTN.PictureData = Me!imag.PictureData
в общем случае

в частном...
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
25 сен 17, 10:29    [20819892]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3323
забыл
If not CStr(Nz(Form("N").BTN.PictureData)) = CStr(Me.imag.PictureData) Then
25 сен 17, 10:31    [20819895]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3323
опять... (вот что значит не в IDE пишешь!)
Панург
забыл
If not CStr(Nz(Forms("N").BTN.PictureData)) = CStr(Me.imag.PictureData) Then
25 сен 17, 10:34    [20819902]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
Панург,

Ясно.
Спасибо.
25 сен 17, 10:39    [20819913]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 4668
час58,
25 сен 17, 12:26    [20820286]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 4668
час58,
а чё не так (рисунок *.bmp или *.ico)
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
25 сен 17, 12:30    [20820301]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3323
sdku
а чё не так
вопросы надо читать полностью
час58
Не хотелось бы использовать для этих целей - доп файлы с рисунками.
25 сен 17, 13:08    [20820430]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
Вакшуль Сергей
Member

Откуда: Харьков
Сообщений: 378
час58,

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

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

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


никогда не слышали голос Гетца? :)
25 сен 17, 21:19    [20821918]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
Вакшуль Сергей,

:-)
да. MS Access -2007
26 сен 17, 11:45    [20823246]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
Странно .
После вставки кода типа
Form("N").BTN.PictureData = Me!imag.PictureData

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

Form_FRM!BTN.Picture = Form_FRM!Рисунок1.Picture
26 сен 17, 12:02    [20823317]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 4668
час58,
насчет ссылки на форму см.20819902-буковка "s"
26 сен 17, 13:38    [20823713]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
sdku,

и с буковкой и без буковки пробовал
И с кавычками и без....
ни фига картинки с другой формы не перебрасываются на кнопку на другой форме.
26 сен 17, 13:57    [20823811]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
76kd983
Guest
час58,
PictureData для кнопки воспримет нормально только (по крайней мере для Access с версиями до 2007) данные картинки в формате DIB. Если там EMF - не воспримет. Проверять можно по первому байту: 40 - DIB, 14 - EMF. Грубо говоря
If Asc(Left$(Forms("Форма").Рисунок.PictureData, 1)) = 40 Then ...
26 сен 17, 14:45    [20824031]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
76kd983,

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

Ситуация на данный момент стабильная.
С рисунков, лежащих рядом с кнопкой - переброс стабилен из любого места программы.
а картинки из рисунков с другой формы не перебрасываются на кнопку на другой форме.
26 сен 17, 18:13    [20824754]     Ответить | Цитировать Сообщить модератору
 Re: Присвоить кнопке, изображения с элемента управления рисунок  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1314
После перезагрузки приложения.
Переброс картинки перестаёт работать.
26 сен 17, 18:18    [20824766]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить