Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Плавное появление картинки на форме / 7 сообщений из 7, страница 1 из 1
24.04.2017, 20:00
    #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, 23:58
    #39443729
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плавное появление картинки на форме
Leprotto,
примерчик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2017, 10:22
    #39443887
Leprotto
Leprotto
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плавное появление картинки на форме
guest_rusimport, Спасибо большое, но это не то, что мне нужно.
Да и слишком мудрено для моего уровня, не смогу транспонировать под свою задачу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2017, 10:49
    #39443907
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плавное появление картинки на форме
Leprotto, посмотрите еще вариант. Идею схватил здесь на форуме, но не помню у кого
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2017, 11:41
    #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, 12:16
    #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:26
    #39443988
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плавное появление картинки на форме
LeprottoЕдинственное, при запуске скрытая картинка становиться видна на долю секунды, а затем идет плавный сдвиг, как я и хотел.
Но этот баг не всегда. Через раз все вообще четко.При запуске чего? При нажатии кнопки?
Этого быть не должно.
В чем причина - сказать не могу, не зная всех обстоятельств.
Может, у Вас что-нибудь с последовательностью переходов или еще что.LeprottoНе то чтобы это сильно принципиально. Просто у меня была похожая проблема с формой в экселе. Окно формы вообще пропадало. Вылечилось добавлением Me.Repaint сразу после Me.Show. Здесь что-то подобное есть?Есть ли Me.Repaint?
Да. Могли бы и сами проверить.
Поможет ли?
Не зная причины "бага" (это не баг, это Ваши построения), сказать невозможно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Плавное появление картинки на форме / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 486ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1612516]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 349ms
total:  486ms
x
x
Закрыть


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