ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Точка Пикча или Волшебный Ящик
6 сообщений из 6, страница 1 из 1
Точка Пикча или Волшебный Ящик
    #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, 01:04
| Ответить | Цитировать | Написать  
Точка Пикча или Волшебный Ящик
    #32233483
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
А подробнее можно? Как и что.
Есть у меня такая формочка с пикчей в ней подчиненная ленточная с таблицей имен файлов и названиями. Шоркаемся по ней - меняются картинки и ничего не требуют и MsgBox не нужны.
...
Рейтинг: 0 / 0
12.08.2003, 07:23
| Ответить | Цитировать | Написать  
Точка Пикча или Волшебный Ящик
    #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
12.08.2003, 09:09
| Ответить | Цитировать | Написать  
Точка Пикча или Волшебный Ящик
    #32234779
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Ничего криминального, аналогичная конструкция у меня работает и без MsgBox, причина, вероятно не здесь.
...
Рейтинг: 0 / 0
13.08.2003, 01:59
| Ответить | Цитировать | Написать  
Точка Пикча или Волшебный Ящик
    #32234781
Фотография vdimas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdimas
Участник
попробуй сначала туда Null или пустую строку присвоить, и только потом - свою.
...
Рейтинг: 0 / 0
13.08.2003, 02:32
| Ответить | Цитировать | Написать  
Точка Пикча или Волшебный Ящик
    #32235367
Ой Вэй
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ой Вэй
Участник
Попробуй вызвать Repaint.
...
Рейтинг: 0 / 0
13.08.2003, 14:03
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Точка Пикча или Волшебный Ящик
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1679938]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 80ms
get topic data:
 10ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 229ms
total:  411ms
созд. / загр.: 411ms
x
x
Закрыть


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