Встроенные рисунки

Panfik
Дата: 30.09.2005 15:12:01
Можно ли программно обратиться ко встроенным или же внедренным рисункам?
Сделать что-то типа Кнопка.Picture = бла-бла-бла
укеукеукеукеукеуке
Дата: 30.09.2005 15:29:45
Panfik
Можно ли программно обратиться ко встроенным или же внедренным рисункам?
Сделать что-то типа Кнопка.Picture = бла-бла-бла


а вы пробовали?
Думающий
Дата: 30.09.2005 15:37:17
укеукеукеукеукеуке

а вы пробовали?

А чего пробовать? Ты путь знаешь?
4321
Дата: 30.09.2005 15:48:26
Panfik
Сделать что-то типа Кнопка.Picture = бла-бла-бла
могабыть не ф тему, но вот так у меня пашеть.
Private Sub btnTest_Click()
On Error GoTo Err_btnTest_Click


    Me.btnDel.PictureData = Me.btnSave.PictureData

Exit_btnTest_Click:
    Exit Sub

Err_btnTest_Click:
    MsgBox Err.Description
    Resume Exit_btnTest_Click
    
End Sub
D mde тоже. Оба - внедрённые.
Если знать путь к иконке, то должно кааца работать и (из Хелпа)
btnShowLogo.Picture = "c:\Windows\Winlogo.bmp".
Panfik
Дата: 30.09.2005 16:47:15
Дело в том, что внедренные рисунки хранятся где-то в самой БД, а мне надо периодически скрывать и отображать рисунок на кнопке и при этом не хочется обращаться к внешнему файлу с рисунком.
4321
Дата: 30.09.2005 17:48:59
Panfik
Дело в том, что внедренные рисунки хранятся где-то в самой БД, а мне надо периодически скрывать и отображать рисунок на кнопке и при этом не хочется обращаться к внешнему файлу с рисунком.
что вам помешало воспользоваться PictureData (см.скрипт)

Уточняю. Если вам нужно только прятать и "вытаскивать наружу" рисунок, можете воспользоваться статич.переменной или рисунком невидимого объекта:
Private Sub btnTest_Click()
On Error GoTo Err_btnTest_Click
Static cnt As Boolean
Static x
    cnt = Not cnt
    Select Case cnt
    Case False
        Me.btnDel.PictureData = x   'Me.btnHidden.PictureData
    Case True
        'Me.btnHidden.PictureData = Me.btnDel.PictureData
        x = Me.btnDel.PictureData
        Me.btnDel.Picture = ""
        Me.btnDel.Caption = ""
    End Select

Exit_btnTest_Click:
    Exit Sub

Err_btnTest_Click:
    MsgBox Err.Description
    Resume Exit_btnTest_Click
    
End Sub