Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Точка Пикча или Волшебный Ящик / 6 сообщений из 6, страница 1 из 1
12.08.2003, 01:04
    #32233436
Albert Gor
Albert Gor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Точка Пикча или Волшебный Ящик
Есть на форме контрол.
Тип контрола - Image.

Он показывает картинки. Разные. Имена файлов в таблице хранятся.
Пользователь выбирает картинку из списка. Процедура реагирует. Какое-никакое, а событие. Свойству Picture присваивается строковое значение, содержащее полный путь к файлу.
И все работает. Картинки сменяют друг друга. А вот пользователь недоволен. Спрашивает, чудак: а нельзя ли убрать это маленькое диалоговое окошечко. Почему, говорит, я должен щелкать по кнопке OK, чтобы перейти к следующей картинке?
Так работает
Код: plaintext
1.
MsgBox ""
imgP.Picture = strFile

А так - нет
Код: plaintext
1.
' MsgBox "" '
imgP.Picture = strFile

Не обновляет картинку. Пишет
Код: plaintext
Error  2001 : You canceled the previous operation.

Думается мне, надо что-нибудь интересное на этом ящике написать. Например добавить кнопку Cancel и выводить словесное описание картинки и спрашивать, понятно ли без просмотра, что картинка стОящая. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2003, 07:23
    #32233483
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Точка Пикча или Волшебный Ящик
А подробнее можно? Как и что.
Есть у меня такая формочка с пикчей в ней подчиненная ленточная с таблицей имен файлов и названиями. Шоркаемся по ней - меняются картинки и ничего не требуют и MsgBox не нужны.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2003, 09:09
    #32233530
Albert Gor
Albert Gor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Точка Пикча или Волшебный Ящик
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Form_Current()
On Error GoTo Er
' GetPathBE() & "\" & gcFolderPicture & "\" & gcFolderLinked  возвращает '
' имя папки где файлы лежат  '
  Dim strFile As String
  If Not IsNull(Me.MePict_Name) Then
    strFile = GetPathBE() &  "\"  & gcFolderPicture &  "\"  & gcFolderLinked &  "\"  & Me.MePict_Name
    If Len(Dir(strFile)) =  0  Then
      MsgBox  "Linked Picture is absent or not accessible" , vbExclamation,  "File not found" 
    Else
      MsgBox ""
      Form_frmInd.imgPict.Picture = strFile
    End If
  End If
Ex:
Exit Sub
Er:
  ' ErrorLog Me.Name, "Form_Current", Err.number, Err.Description '
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2003, 01:59
    #32234779
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Точка Пикча или Волшебный Ящик
Ничего криминального, аналогичная конструкция у меня работает и без MsgBox, причина, вероятно не здесь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2003, 02:32
    #32234781
vdimas
vdimas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Точка Пикча или Волшебный Ящик
попробуй сначала туда Null или пустую строку присвоить, и только потом - свою.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2003, 14:03
    #32235367
Ой Вэй
Ой Вэй
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Точка Пикча или Волшебный Ящик
Попробуй вызвать Repaint.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Точка Пикча или Волшебный Ящик / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 297ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1679938]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 53ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 189ms
total:  297ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]