Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Бегущая полоска Добавлено: 01.04.09 17:16  

Автор вопроса:  Sergey
Как сделать в VB6 бегущую полоску?

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1 		Добавлено: 01.04.09 18:23
всмысле полоску? строку?

Ответить

Номер ответа: 2
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #2 		Добавлено: 01.04.09 18:30
Поставь таймер:
  1. Private Sub Command1_Click() ' При нажатии на кнопку включается Timer1 и Timer3
  2. Timer1.Enabled = True
  3. Timer3.Enabled = True
  4. End Sub
  5.  
  6. Private Sub Timer1_Timer()
  7. Shape1.Left = Shape1.Left + 25 ' Каждую мл Shape1 будет сдвигаться вправо на 25
  8. End Sub
  9.  
  10. Private Sub Timer2_Timer()
  11. Shape1.Left = Shape1.Left - 25 ' Каждую мл Shape1 будет сдвигаться влево на 25
  12. End Sub
  13.  
  14. Private Sub Timer3_Timer()
  15. If Shape1.Left <= -400 Then 'Если Shape1.Left <= -400(отскок от левой стенке) то
  16. Timer1.Enabled = True ' Timer1 включается
  17. Timer2.Enabled = False ' Timer2 выключается
  18. End If
  19. If Shape1.Left >= 4000 Then 'Если Shape1.Left <= -400(отскок от правой стенке) то
  20. Timer2.Enabled = True ' Timer2 включается
  21. Timer1.Enabled = False ' Timer1 выключается
  22. End If
  23.  
  24. End Sub

Ответить

Номер ответа: 3
Автор ответа:
 Andrey



Вопросов: 1
Ответов: 8
  Профиль | | #3 Добавлено: 01.04.09 19:06
На VB6 лучше таким не заниматся - выглядеть будет отвратительно.

Ответить

Номер ответа: 4
Автор ответа:
 SergeyZuzic



ICQ: 474690219 

Вопросов: 5
Ответов: 155
  Web-сайт: vsedlysita.narod.ru
 Профиль | | #4 		Добавлено: 01.04.09 20:18
Dim X
Private Sub Timer1_Timer()
Form1.WindowState = 2
Form1.AutoRedraw = True
Form1.ScaleMode = 3
Cls
X = X + 5
If X > 1000 Then X = -120
CurrentX = X
CurrentY = 10
Print "Я бегущая строка"
End Sub

Ответить

Номер ответа: 5
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #5 		Добавлено: 01.04.09 23:20
Если тебе юзер кнтроль_И в стиле табло как в аэропротав подойдут могу скинуть несколько вариантов.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам