Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как бы создать титры с Label'ом? 
V
    Опции темы
Jr13san
Дата 7.11.2008, 15:37 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



Привет всем, кто на форуме.
У меня возникла проблемка с 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(прозрачный), но с корректным перемешением текста в нём.
Примерно как в титрах.
Кто знает, помогите пожалуйста.

Это сообщение отредактировал(а) Jr13san - 7.11.2008, 15:38
PM MAIL WWW ICQ   Вверх
Akina
Дата 7.11.2008, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Код

Label1.RePaint
DoEvents()



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Jr13san
Дата 7.11.2008, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



ок, попробую.
PM MAIL WWW ICQ   Вверх
neic
Дата 7.11.2008, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7



Akina, эмм...я даже сам решил проверить. Не работает твой код.
Мож с другой среды взял?
PM MAIL WWW ICQ Skype   Вверх
JusTalionis
Дата 7.11.2008, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17



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


PM MAIL   Вверх
Jr13san
Дата 9.11.2008, 11:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



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

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

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

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

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

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  _____.rar 22,43 Kb
PM MAIL WWW ICQ   Вверх
ВикторZX
Дата 9.11.2008, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 8.5.2008

Репутация: нет
Всего: нет



всем двойки!


Присоединённый файл ( Кол-во скачиваний: 21 )
Присоединённый файл  t.rar 13,97 Kb
PM MAIL   Вверх
Jr13san
Дата 11.11.2008, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



посмотрим что там у нас...
PM MAIL WWW ICQ   Вверх
Jr13san
Дата 13.11.2008, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет



ВикторZX,

всё работает как надо..
В исходнике разобрался..
Спасибо за помошь.
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1263 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.