Бегущая строка

[LexBondAgent007]

Прив всем!
Ну все облазил! Нигде не нашел... Единственно что выяснил - что это как то можно сделать через RunString... Я об этом первый раз слышу. Пробовал сам сделать - LABEL двигать... но не вышло - так как LABEL дальше "своего экрана" не растягивается (вобщем вы поняли )
Пожалуйсто подскажите как сделать бегущую строку на VB... Желательно самую простенькую...

[n-soft]

сделай привязку по координатам...........затем сделай простое приращение к иксу....и твой лейбл ...побежит..))

[LexBondAgent007]

Так это первое (ну и единственное) что я попытался сделать (самостоятельно) ... У меня строка бегущая оЧЧень длинная - а LABEL только растягивается на 1024 пикселей (т.е. на размер экрана). Тем самым нехватает места! Так что это вариант отпадает

[n-soft]

сделай.....
label.left=label.left+X
все это в цикле.....как дойдет до конца экрана....сделай переход....(тоесть постав условие)

[Andrey Fedorov]

Кстати, а на хороший примерчик бегущей строки с использованием DirectX ни у кого ссылочки не имеется?

[Sebas]

лучше через апи(DrawText по-моему), чистый ВБ лагать будет(((

[tyomitch]

Sebas, не будет, если не через весь экран строка.
LexBondAgent007, на vbrussian.com был пример - посмотри.

[Sebas]

Sebas, не будет, если не через весь экран строка.
LexBondAgent007, на vbrussian.com был пример - посмотри.

У меня была через половину, рисовал тупов пиктуру, устраивает)))
http://ugar.gamecity.ru/screens/cl1.jpg

[LexBondAgent007]

лучше через апи(DrawText по-моему), чистый ВБ лагать будет(((

Как? Но мне желательно чтоб не лагало!

сделай.....
label.left=label.left+X
все это в цикле.....как дойдет до конца экрана....сделай переход....(тоесть постав условие)

Мне тады пидется 12 лейбелов создавать...

LexBondAgent007, на vbrussian.com был пример - посмотри.

Не нашел

Мож исходник кто нибудь сделает? plz

[Sebas]

Код: Выделить всё


Public Declare Function TextOut& Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long)


Private Sub Timer2_Timer()
Static CounterRun As Long, TextLen As Long
On Error Resume Next
'áåãóùàÿ ñòðîêà

            If TextLen = 0 Then
                    TextLen = Me.Picture1.TextWidth(RunText) / 15
                    CounterRun = Me.Picture1.Width / 15
                End If
           
            Me.Picture1.Cls
            TextOut Me.Picture1.hdc, CounterRun, 0, RunText, Len(RunText)
            DoEvents

            CounterRun = CounterRun - 1
            If TextLen < -CounterRun Then _
                CounterRun = Me.Picture1.Width / 15
End Sub

[alibek]

Sebas, у тебя черная полоска будет. Очистку кто будет делать?
В API-Guide был пример очень гладкого вертикального скроллинга, лучше так сделать.

[CodeName33]

Можно и обычный Print на PictureBox'e использовать - не потеря в скорости будет не заметна...

[skord]

Не нашел

Не найти такого - анреал
Поиск рулит

[Sebas]

Sebas, у тебя черная полоска будет. Очистку кто будет делать?
В API-Guide был пример очень гладкого вертикального скроллинга, лучше так сделать.

О, даж заработало сразу! Это из проекта выдрано, кучу кода убрал...

[LexBondAgent007]

ОХ МЛИН! Да тут все гараздо проще оказалось... я на лейбел поставил АВТОСАЙЗ - и лейбел автоматически растянулся в одну ДЛИИИИИИИИИННУЮ строчку Ну а дальше сделал как и сначала планировал...

n-soft,Andrey Fedorov,Sebas,tyomitch,alibek,CodeName33,skord - ПАСИБА ЗА ПОМОЩЬ!

(Вроде никого не забыл )