Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Как бы создать титры с Label'ом?


Автор: Jr13san 7.11.2008, 15:37
Привет всем, кто на форуме.
У меня возникла проблемка с Label'ом

На форме имеется label1 и Timer1
У Timer1 - интервал = 10
У Label1 - BackStyle = 0
Введите примерно строк 10 в Label1

Вот код:

Код

Private Sub Timer1_Timer()
Label1.Top = Label1.Top - 7
End Sub


По идее Label1 должен двигаться вверх... Он то двигается, а текст, содержащийся в нём не очень корректно движется.
Если попробовать создать Picture1, а на неё поместить тот же Label1 и заставить двигаться Picture1, то Label1 будет двигаться вместе с ней и текст тоже будет двигаться корректно, НО фон формы будет закрываться Picture1, а этого мне не нужно.
Вопрос в том, как бы мне заставить перемещать Label(прозрачный), но с корректным перемешением текста в нём.
Примерно как в титрах.
Кто знает, помогите пожалуйста.

Автор: Akina 7.11.2008, 16:08
Код

Label1.RePaint
DoEvents()

Автор: Jr13san 7.11.2008, 16:33
ок, попробую.

Автор: neic 7.11.2008, 16:34
Akina, эмм...я даже сам решил проверить. Не работает твой код.
Мож с другой среды взял?

Автор: JusTalionis 7.11.2008, 20:09
Jr13san, попробовал предложенную задачу. Label медленно перемещался вверх с мерцанием текста, потому что текст постоянно перерисовывался. А что ты хотел? - как еще можно передвинуть текст иначе, чем перерисовав его на другом месте?..
А если ты хочешь плавного перемещения, надо делать настоящую анимацию, например сделать прозрачный анимированный GIF.
Но, должен заметить, что VB анимацию делает очень коряво, по крайней мере мне не удалось достигнуть результатов лучше чем "посредственные".
Об анимации вопрос поднимался здесь: http://forum.vingrad.ru/forum/topic-142799.html


Автор: Jr13san 9.11.2008, 11:06
Внимание: ПРОВЕРЬТЕ ДАННЫЙ АРХИВ НА НАЛИЧИЕ ВИРУСОВ В НЁМ!
Перед отправкой я проверил на вирусы, антивирусник не нашёл вирусов. Не знаю что покажет у вас на наличие вирусов. У меня база вирусов не обновлённая, но 2008г.

Инфо:
В данном архиве находится исходник для просмотра работы титров в различных режимах.

Я уже писал в чём проблема, но я неудачно написал проблему и соврал с некоторыми контролами...
Поэтому напишу ещё раз:

1. Запустите проект
По стандарту на форме в Picture1 загружается рисунок. Даны несколько кнопок.

2. Нажмите на кнопку с названием: "Титры с меткой, но с постоянным обновлением"
Пойдут титры, но не такие, какие мне бы хотелось видеть. Этот вид титров вроде бы нормальный, но он постоянно обновляется, примерно также как и обновляется монитор, если открыть, к примеру, блокнот и посмотреть на монитор боковой частью глаза.
Незнаю почему в label1 идёт обновление, а в textbox'e нет такого сильного обновления.
Может быть это вызвано наличием оперативной памяти.
Нашёл пример формы в виде текста, но там текст какой-то корявый.
Остался один выход - создать собственный контрол.
Может есть какие - нибудь другие способы создания титров?
Кто знает, пишите.

Автор: ВикторZX 9.11.2008, 23:37
всем двойки!

Автор: Jr13san 11.11.2008, 12:59
посмотрим что там у нас...

Автор: Jr13san 13.11.2008, 15:30
ВикторZX,

всё работает как надо..
В исходнике разобрался..
Спасибо за помошь.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)