ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Плавное появление картинки на форме
7 сообщений из 7, страница 1 из 1
Плавное появление картинки на форме
    #39443613
Leprotto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leprotto
Участник
Добрый вечер!
Есть форма на которой расположено изображение, которое изначально загорожено белым прямоугольником (типа картинки нет).
Хочу что бы по событию, например, нажатием кнопки, прямоугольник плавно сдвинулся вправо, открыв картинку.
Мои пробный саб слишком быстро сдвигает полоску:
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub Кнопка3_Click()
  Dim i As Integer
  For i = 280 To 6804 'от 0,5 до 12 см от левого края
    Me.poloska.Left = i
  Next i
End Sub


Подскажите, пожалуйста, как сделать плавное смещение.
...
Рейтинг: 0 / 0
24.04.2017, 20:00
| Ответить | Цитировать | Написать  
Плавное появление картинки на форме
    #39443729
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Leprotto,
примерчик
...
Рейтинг: 0 / 0
24.04.2017, 23:58
| Ответить | Цитировать | Написать  
Плавное появление картинки на форме
    #39443887
Leprotto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leprotto
Участник
guest_rusimport, Спасибо большое, но это не то, что мне нужно.
Да и слишком мудрено для моего уровня, не смогу транспонировать под свою задачу.
...
Рейтинг: 0 / 0
25.04.2017, 10:22
| Ответить | Цитировать | Написать  
Плавное появление картинки на форме
    #39443907
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Leprotto, посмотрите еще вариант. Идею схватил здесь на форуме, но не помню у кого
...
Рейтинг: 0 / 0
25.04.2017, 10:49
| Ответить | Цитировать | Написать  
Плавное появление картинки на форме
    #39443958
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Leprotto,

Попробуйте так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Кнопка3_Click()
  Dim i As Integer, _
      j As Long, _
      k As Long
  For i = 1 To (Me.poloska.Width \ 567) * 10
   For j = 1 To 1000000
    k = j
   Next
   Me.poloska.Left = Me.poloska.Left + 0.1 * 567
   DoEvents
  Next
End Sub

Плавность можете подрегулировать - выделено желтым.

А если вот так, то будет не "прямоугольник съезжать", а "шторка открываться":
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Кнопка3_Click()
  Dim i As Integer, _
      j As Long, _
      k As Long
  For i = 1 To (Me.poloska.Width \ 567) * 10
   For j = 1 To 1000000
    k = j
   Next
   Me.poloska.Left = Me.poloska.Left + 0.1 * 567
   On Error Resume Next
    poloska.Width = poloska.Width - 0.1 * 567
    On Error GoTo 0
   DoEvents
  Next
End Sub
...
Рейтинг: 0 / 0
25.04.2017, 11:41
| Ответить | Цитировать | Написать  
Плавное появление картинки на форме
    #39443982
Leprotto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leprotto
Участник
__Michelle, нравиться вариант:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Кнопка3_Click()
  Dim i As Integer, _
      j As Long, _
      k As Long
  For i = 1 To (Me.poloska.Width \ 567) * 10
   For j = 1 To 1000000
    k = j
   Next
   Me.poloska.Left = Me.poloska.Left + 0.1 * 567
   DoEvents
  Next
End Sub


БЛАГОДАРЮ!!!
Единственное, при запуске скрытая картинка становиться видна на долю секунды, а затем идет плавный сдвиг, как я и хотел.
Но этот баг не всегда. Через раз все вообще четко. Не то чтобы это сильно принципиально. Просто у меня была похожая проблема с формой в экселе. Окно формы вообще пропадало. Вылечилось добавлением Me.Repaint сразу после Me.Show. Здесь что-то подобное есть?
...
Рейтинг: 0 / 0
25.04.2017, 12:16
| Ответить | Цитировать | Написать  
Плавное появление картинки на форме
    #39443988
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
LeprottoЕдинственное, при запуске скрытая картинка становиться видна на долю секунды, а затем идет плавный сдвиг, как я и хотел.
Но этот баг не всегда. Через раз все вообще четко.При запуске чего? При нажатии кнопки?
Этого быть не должно.
В чем причина - сказать не могу, не зная всех обстоятельств.
Может, у Вас что-нибудь с последовательностью переходов или еще что.LeprottoНе то чтобы это сильно принципиально. Просто у меня была похожая проблема с формой в экселе. Окно формы вообще пропадало. Вылечилось добавлением Me.Repaint сразу после Me.Show. Здесь что-то подобное есть?Есть ли Me.Repaint?
Да. Могли бы и сами проверить.
Поможет ли?
Не зная причины "бага" (это не баг, это Ваши построения), сказать невозможно.
...
Рейтинг: 0 / 0
25.04.2017, 12:26
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Плавное появление картинки на форме
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39443887&tid=1612516]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 335ms
total:  462ms
созд. / загр.: 462ms
x
x
Закрыть


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