|
|
|
Forum Member
 
участник
Last Login: 22.02.2008 15:20
Сообщ.: 44,
Visits: 108
|
|
Пытаюсь кнопкой добавить фотку вставить фотку,msoFileDialogFilePicker - тут выдает Compile error. Брал из базы Борей к себе в форму. Вроде везде все поменял под себя, говорит нет библиотеки..
Кто подскажет что можно сделать? Спасибо.
|
|
|
|
|
Forum Member
участник
Last Login: 22.02.2008 15:20
Сообщ.: 44,
Visits: 108
|
|
А вот сам код:
Sub getFileName()
' Для выбора имени файла с фотографией текущего сотрудника
' используется стандартное окно открытия файла Office.
' Если пользователь указывает файл, его содержимое
' отображается в элементе управления ImageFrame.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
^^^^^^^^^^^^^^ - вот тут показывает....
.Title = "Выбор фотографии документа"
.Filters.Add "Все файлы", "*.*"
.Filters.Add "JPEG", "*.jpg"
.Filters.Add "Рисунки", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Имя].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
| Подключите библиотеку Microsoft Office 11.0 Object Library или воспользуйтесь тем, что константа msoFileDialogFilePicker=3.
|
|
|
|
|
Forum Member
участник
Last Login: 22.02.2008 15:20
Сообщ.: 44,
Visits: 108
|
|
| Подскажите плиз по-подробнее, как это сделать. Спасибо.
|
|
|
|
|
Forum Member
участник
Last Login: 22.02.2008 15:20
Сообщ.: 44,
Visits: 108
|
|
Вообщем у меня в списке VB есть только библиотека MS Office library 10.0. Я ее подключил, установил по списку 3-й. Теперь бьет ошибку тут:
fileName = Trim(.SelectedItems.Item(1))
^^^^^^^^^^^^^^^^^^ - вот тут!
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Имя].SetFocus
Me![ImagePath].Visible = False
Почему? Не подскажете....? Спасибо.
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
Зайдите в редактор VB (например, Alt+F11). Меню: Tools->References. В списке найдите нужную библиотеку, поставте "галочку", нажмите Ok.
Или вместо msoFileDialogFilePicker пропишите 3. Но это, в отличии от предыдущего, не гарантирует, что где-то дальше Вы не напоретесь на сообщение об отсутствии иного объекта рассматриваемой библиотеки.
|
|
|
|
|
Forum Member
участник
Last Login: 22.02.2008 15:20
Сообщ.: 44,
Visits: 108
|
|
С этим я разобрался. Спасибо. Все работает, но картинка не отображается. Пробовал и bmp и jpg не отображается и в поле не прописывается. Поле для фокуса на форме есть. Вот тут не могу понять как же ее отобразить. Проверил код Борея и свой. Все одинаково, за исключением моих полей...... Что могет быть?
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
Не видя кода, врядли, что можно посоветовать.
Посмотрите здесь, может по другому организуете работу с фото.
|
|
|
|
|
Forum Member
| | | |