ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / бегущая строка
9 сообщений из 9, страница 1 из 1
бегущая строка
    #32829511
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
как ее сделать. мне надо, что label прокручивался, как бегущая строка. вод код на Delphi, тут я не знаю, как делать. помогите его правильно переделать.

var b:string; i:integer;
b := 'Вас всех приветствует Windows';
for i := 1 to (Length(b) - 1) do
b := label8.caption[i + 1];
b[Length(b)] := label8.caption[1];
...
Рейтинг: 0 / 0
16.12.2004, 07:55:23
| Ответить | Цитировать | Написать  
бегущая строка
    #32829807
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
вот на скорую руку. Только лучше поискать ocx который это умеет делать.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Private f As Boolean

Private Sub Command1_Click()
    Dim b As String
    Dim i As Integer
    b = "Вас всех приветствует Windows"
    
    Do While f = False
        Label1.Caption = b
        For i =  1  To Len(b) -  1 
            For j =  0  To  50000 
                DoEvents    ' Передает управление другим процессам.
                If f = True Then Exit Sub
            Next
            Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) -  1 )
        Next
    Loop
End Sub

Private Sub Command2_Click()
    f = True
End Sub

Private Sub Form_Load()
    f = False
End Sub
...
Рейтинг: 0 / 0
16.12.2004, 10:57:43
| Ответить | Цитировать | Написать  
бегущая строка
    #32829814
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Вообще то для бегущей строки лучше ActiveX подыскать, но если хочется написать свое:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim k As Long, w As Long
Private Sub Form_Load()
    k = Screen.TwipsPerPixelX
    Do While Me.lblString.Width < Me.picString.Width
        Me.lblString.Caption = Me.lblString.Caption & " "
    Loop
    Me.lblString.Caption = Me.lblString.Caption & Me.lblString.Caption
    Me.lblString.Left = k *  10 
    w = Me.lblString.Width \  2 
    Timer1.Interval =  20 
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    If Me.lblString.Left > -(w) Then
        Me.lblString.Left = Me.lblString.Left - k
    Else
        Me.lblString.Left = -k
    End If
End Sub
На фомре лежит Timer, picString (picturepox), на нем lblString с надписью (свойство Atuosize = True, wordWrap = false)
...
Рейтинг: 0 / 0
16.12.2004, 11:01:18
| Ответить | Цитировать | Написать  
бегущая строка
    #32829855
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
не, это не то. мне бы хотелось точь-в-точь видеть мой тот код на Delphi, но переделанный на Basic (я имею ввиду синтаксис). тот код идеально работает и очень маленький
...
Рейтинг: 0 / 0
16.12.2004, 11:18:00
| Ответить | Цитировать | Написать  
бегущая строка
    #32829883
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marvan
Участник
Настенькатот код идеально работает и очень маленький
нифига он не работает.
...
Рейтинг: 0 / 0
16.12.2004, 11:28:36
| Ответить | Цитировать | Написать  
бегущая строка
    #32829892
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Ну если просто потренироваться, то вот это все
Код: plaintext
1.
2.
for i :=  1  to (Length(b) -  1 ) do
b := label8.caption[i +  1 ];
b[Length(b)] := label8.caption[ 1 ];
Заменится на одну строку:
Код: plaintext
label8 = mid(label8, 2 ) & mid(label8, 1 , 1 )
и не надо переменных: VB очень силен в строках

А все таки зачем такая бегушка, где она "скачет" по символам а не по пикселам?
...
Рейтинг: 0 / 0
16.12.2004, 11:29:34
| Ответить | Цитировать | Написать  
бегущая строка
    #32829956
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
у меня получилось!!!

Private Sub Timer1_Timer()
Dim i As Byte, c As String
For i = 1 To (Len(b) - 1)
b = Right(Label3.Caption, (Len(Label3.Caption) - 1))
c = Left(Label3.Caption, 1)
Next i
Label3.Caption = b + c
End Sub

вот теперь все работает идеально. спасибо всем!!!
...
Рейтинг: 0 / 0
16.12.2004, 11:55:37
| Ответить | Цитировать | Написать  
бегущая строка
    #32830595
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
НастенькаDim i As Byte, c As String
For i = 1 To (Len(b) - 1)
b = Right(Label3.Caption, (Len(Label3.Caption) - 1))
c = Left(Label3.Caption, 1)
Next i
Label3.Caption = b + cПоосторожнее с типом Byte!
Длина строки может превысить 255!
Лучше integer или long.
...
Рейтинг: 0 / 0
16.12.2004, 15:31:46
| Ответить | Цитировать | Написать  
бегущая строка
    #32830633
Один
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Один
Участник
WorobjoffПоосторожнее с типом Byte!
Длина строки может превысить 255!
Лучше integer или long. Да.
Знаю случай, когда система сошла с ума 13 сентября из-за типа Byte
...
Рейтинг: 0 / 0
16.12.2004, 15:44:42
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / бегущая строка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=60&tid=2168434]:
 0ms
get settings:
 6ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 198ms
total:  354ms
созд. / загр.: 354ms
x
x
Закрыть


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