VPF::При клике на Картинке, она полым размером

Edd

Дата 25.12.2006, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 23.3.2006

Репутация: нет
Всего: 1

Создана форма, в записях БД есть OLE Object в котором хранится каринка (Bitmap Image), на этой форме показана картинка уменьшенная (zoom).
Цель: При нажатии на Картинку, открывается новая форма с полным размером картинки и форма незначительно превышает размеры картинки. (Картинки разных размеров)
Как это реализовать? smile

Akina

Дата 26.12.2006, 00:55 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

А в чем собсно проблема? Делаешь макет такой формы, на нее картинку, по клику загружаешь форму, меняешь источник контрола-пикчербокса, считываешь размеры, ресайзишь картинку и саму форму, и потом отрисовываешь ее... все. Реализуй.

А вот грабли уже показывай. С кодом и описанием зубчиков грабель.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Edd

Дата 26.12.2006, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 23.3.2006

Репутация: нет
Всего: 1

Код


Private Sub Foto_FLink_Click()
    On Error GoTo Err

    If ChildFormIsOpen() Then
        CloseChildForm
    Else
        OpenChildForm
        FilterChildForm
    End If

Click_Exit:
    Exit Sub

Err:
    MsgBox Error$
    Resume Click_Exit

End Sub
Private Sub FilterChildForm()

    If Me.NewRecord Then
        Forms![fullFoto].DataEntry = True
    Else
        Forms![fullFoto].Filter = [Foto_FLink]???????????????
        Forms![fullFoto].FilterOn = True
    End If

End Sub
Private Sub OpenChildForm()

    DoCmd.OpenForm "fullFoto"
    If Not Me.[Foto_FLink] Then Me![Foto_FLink] = True

End Sub
Private Sub CloseChildForm()

    DoCmd.Close acForm, "fullFoto"
    If Me![Foto_FLink] Then Me![Foto_FLink] = False

End Sub
Private Function ChildFormIsOpen()

    ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "fullFoto") And acObjStateOpen) <> False

End Function

Пытаюсь реализовать таким образом, считаю, что проблема в филтре. Что посоветуете?
Ниже код ChildForm

Код


Sub Form_Load()
On Error GoTo Form_Load_Err

Form_Load_Exit:
    Exit Sub

Form_Load_Err:
    MsgBox Error$
    Resume Form_Load_Exit

End Sub
Sub Form_Unload(Cancel As Integer)
On Error GoTo Form_Unload_Err

    If ParentFormIsOpen() Then Forms![5 Foto]!Foto_FLink = False

Form_Unload_Exit:
    Exit Sub

Form_Unload_Err:
    MsgBox Error$
    Resume Form_Unload_Exit

End Sub
Private Function ParentFormIsOpen()

    ParentFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "5 Foto") And acObjStateOpen) <> False

End Function

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »