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

Panfik

Дата: 30.09.2005 15:12:01

Можно ли программно обратиться ко встроенным или же внедренным рисункам?
Сделать что-то типа Кнопка.Picture = бла-бла-бла

укеукеукеукеукеуке

Дата: 30.09.2005 15:29:45

Panfik

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

Думающий

Дата: 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