Scroll Effect

Как да направя scroll ефект на VB6 (да стане нещо както надписите в края на филм); ще го използвам за 'credits dialog'?

Ами направи един GIF файл с надписите, сложи го в един Picture и мести Picture-то нагоре :)

Обекти:
PictureBox
Label (вътре в PictureBox-а)
Timer

Timer.Interval = 50

Код във формата:

Private Sub Form_Load()

  Label1.AutoSize = True

  Label1.Top = Picture1.Height

End Sub



Private Sub Timer1_Timer()

  If Label1.Top <= Label1.Height * -1 Then

    Label1.Top = Picture1.Height

  Else

    Label1.Top = Label1.Top - 30

  End If

End Sub

И по принцип става. По твое усмотрение може да си центрираш текста в този лейбъл, може да му даваш цвят, да стане транспарант, за да се вижда като фон цвета на PictureBox-а, може да промениш стойностите за промяна на позицията на лейбъла, и Interval на таймера, за да се движи по-бързо, или по-бавно, може да го направиш и да минава само по един път, ако в края на Timer_Timer() сложиш един ред Timer1.Enable = False, и други такива.

А ако размениш свойството Top със Left и свойството Height със Width - тогава ще се получи движение отдясно-наляво, т.е. текста да се движи по хоризонтал.

За да променяш текста в този лейбъл: Label1.Caption = "Текст".

"Паре нема - действайте!"

Корекция: За да минава само един път текста - трябва да се направи така:

Private Sub Timer1_Timer()

  If Label1.Top <= Label1.Height * -1 Then

    Label1.Top = Picture1.Height

    Timer1.Enable = False

  Else

    Label1.Top = Label1.Top - 30

  End If

End Sub

И когато искаш да "пуснеш" текста отново - някъде в програмата си пишеш Timer1.Enable = True, и готово. ;о)

Кода на Щирлиц ще ми е от полза за някои от другите ми програми, а иначе скрол ефекта го направих с ХТМЛ на уеб страница и после я зареждам в уеб браузър контролата (вж. "Какво мислите за един ABOUT Dialog?") :)

Не пиша, за да ти отговарям на конкретната тема, а за да ти обърна внимание върху някой точки, над които си струва да се позамислиш малко:

1. Това е клуб Visual Basic и тук би трябвало (поне според мен) да се обсъждат програми, алгоритми и т.н. свързани с VB, а не компилирани приложения (пък макар и писани на VB). А ти до момента не си дал никакъв сорс тук - само някакви линкове към EXE (извинявам се ако бъркам), но търсиш активно помoщта на членовете на клуба. А за да искаш да ти дадът, трябва и ти да даваш.

2. Задаваш въпроси (говоря за конкретната тема), губиш времето на хората (особено Щирлиц гледам, че си е загубил доста от времето). След което казваш. А бе благодаря (всъщност благодаря май не си казал), но аз си реших проблема, използвах еди кво си, направих еди кво си. И се правиш на Велик - вижте еди кво си. Ми аз дори без да съм го погледнал, ще те попитам директно - какво става ако кликнеш с десният бутон на мишката върху уеб браузер контролата? Нищо лично, само питам. Дали пък решението на Щирлиц не е по-добро. А? Или пък ще отвориш нова тема - "Какво да направя, за да не се показва меню, когато кликна с десният бутон на мишката върху уеб браузер контрола"? Но това е един малкото недостатъци на уеб браузера. Има и други, но тях ще си ги спестя. Нека и юзерите на твоята програма (ако изобщо има такива) се посмеят на ABOUT диалога.

3. Говориш за Credits в About диалога. Честно би било да включиш и хората, който ти помогнаха в този клуб. Все пак те ти дадоха доста от кода.

Пиша ти тези неща, не за да се заяждам, но просто не е лошо малко да се позамислиш.

Това е. Нямам намерение повече да си губя времето с теб и твоите проблеми

Бии, за да те уважават!

Споко проГърмист. Аз не съм обидчив. Това, което пиша може да не е най-доброто, но гледам да е максимално приложимо, гъвкаво, и да заема по-малко памет.

В това отношение WEB browser контрола ще има доста да се мъчи, ако трябва да стане компактно, бързо, надеждно.

Не съм изгубил повече от 10 минути по темата. Всъщност мислех да подредя този код в едно мъничко модулче. Което и ще направя де, но трябва да намеря време и за темата Tips'N'Tricks.

1. Кода на Щирлиц е много полезен, защото не иска дппълнителни неща и е бърз, но специално за приложението tweak fx реших да ползвам web browser контролата, защото е много по-лесно с хтмл да се направи ефекта
2. Ако основния ти аргумент срещи тая контрола, е контекстното меню - забрани го с Java Scrip код
3. Тенденцията при UI-a e преминаване към хтмл или подобни техники
4. Версията, която си видял е RC - release candidate, като е готова финалната, ще напиша всички, които са ми помагали :)
5. Постнах направо линк, щото програмата иска много файлове, пък и трябва да се оразмери правилно и така...
6. Ако някой се е почуствал обиден или засегната от предишният ми пост - ИЗВИНЯВАМ СЕ (за някои неща пpoГЪPMИcт все пак е прав :))

Понеже си мисля (ако не е така се извинявам), че аз предизвиках горният ти постинг, взимам отношение по всяка една от точките. Ако не е така моля не си губете времето с понататъшните редове.

1. Съгласен. Наистина WEB браузер контрола е лесен за употреба. Аз например често го използвам за показване на анимирани GIF файлове или Flash.
2. Аз не знам Java Script, така че менюто ако не ми трябва се опитвам да го забраня с код на VB, доколко успявам е друг въпрос. Но за сега не ми е пречило и не съм го забранявал. Обаче за ABOUT диалог мисля, че е по-добре да го няма. Като под забрана на контекстуалното меню разбирам забрана на всички начини за показването му. Не само десен бутон, но и например позициониране на курсора на мишката и след това Shift+F10 и т.н.
3. Мисля, че тук си имал предвид, че тенденцията е преминаване към интернет приложения, така че съм съгласен.
4. Не съм видял никаква версия, но съм съгласен за това, че всеки който е допринесъл поне малко за изграждането на дадено приложение, заслужава уважение.
5. Тук не разбрах точно за какво става въпрос, така че съм "пас".
6. Е тука вече не съм съгласен. Не "за някои неща", а изобщо не съм прав, затова че се набърках (отново) там където не ми е работата.

Бии, за да те уважават!

2.менюто НИКОГА не пречи; ако искаш можш да го забраниш само с НЯКОЛКО реда JScript код
3. НЕ, имам предвид че потребителския интерфейс (UI), или поне част от него е по-добре да се изгради на ХТМЛ или по друг подобен начин:
-по лесно се редактира (особено важи за Ц, Ц++)
-може да се изпълнява код написан на друг език
-оразмерява се автоматично от контролата
-може да се редактира от потребителя
-правят се промени без прекомпилиране
-още многоо...
5. Искам да кажа, че ако бях pаste-нал 100 реда кода например никой нищо нямаше да разбере, по добре направо да стартира програмата, и да каже какво мисли