VPF::бегущая строка - Форум программистов

Гость_DieseL

Дата 23.12.2004, 18:14 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Нужна прогу на MS VB ? Там нужно сделать бегущую строку в текстовом окне, нужно что бы была возможность изменять скорость бега строки, шрифт, цвет букв.
Насколько это трудомко?

boevik

Дата 23.12.2004, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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

Несложно, делается при помощи таймера и лабела.

--------------------

Никогда не говори никогда

Gannibal

Дата 23.12.2004, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

типа такого чёто smile

Код


Dim strText As String

Private Sub Command1_Click()
 strText = String(30, " ") + "bla bla bla"
 Timer1.Interval = 100
 Timer1.Enabled = True
End Sub

Private Sub Form_Load()
 Command1.Caption = "Scroll Text"
End Sub

Private Sub Timer1_Timer()
 strText = Mid(strText, 2) & Left(strText, 1)
 Text1 = strText
End Sub

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

cardinal

Дата 23.12.2004, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Цитата

Насколько это трудомко?

ИМХО это не трудоемко (см. сообщение M.E.G.U.S'а). Но вот если ты хочешь буквы разными цветами расскрасить, то smile

Я не знаю вообще как это сделать.

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Naghual

Дата 23.12.2004, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

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

Ну было бы желание и понимание конечного результата!

--------------------

Я желаю всем Счастья!

Gannibal

Дата 24.12.2004, 01:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

ну если хочешь менят и цвет и фон то я думаю это тоже непроблема, я бы код дал но у меня ВБ щас на компе нету smile

а мысль такова создай ещё например одно текстовое поле в котором ты будешь например задавать размер шрифта а на само текстовое поле кде будет вывадиться бегущий текст сделай так например у тебя поле где выводится текст называется Text1 а поле с размером Text2 тогда пиши

Код


Private Sub Command1_Click()
Text1.FontSize=Text2.Text  'вот здесь ты присваеваеш значение размера шрифта к полю с именем Text1
strText = String(30, " ") + "bla bla bla"
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Может будет работать! Но незнаю и немогу проверить // извините

Это сообщение отредактировал(а) M.E.G.U.S - 24.12.2004, 01:41

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Gannibal

Дата 24.12.2004, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

так вот написал впринципе ничего такого сложного цвет букв меняется размер тоже вот шрифты незнаыу как.. если только вручную название писать зделал работает ;) :Д так вот же код

Код


Dim strText As String
Private Sub Command1_Click()
Text1.FontSize = Text2.Text 'размер шрифта берётся из ткстового поля два
Text1.ForeColor = RGB(Text2.Text, Text3.Text, Text4.Text) 'из текстовых полей 3, 4 и 5 берётся номера 
                                                     'которые  представляют цвет шрифта типа красный, зелёный, синий

Text1.Font = Text6.Text 'ну а отсюда имя шрифта которы хотите использовать из текстового поля 6
strText = String(30, " ") + "bla bla"
Timer1.Interval = Text7.Text 'а здесь из 7 текстового поля берётя скорость чем еньше число тем быстрее крутится 
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Command1.Caption = "bla bla"
End Sub
Private Sub Timer1_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Text1 = strText
End Sub

вот вам код улутшил кстати, шрифты можно выбирать уже прогу скачаете там же кде и передетим smile

:Д смотрите.. на код, и делайте всё что можете smile

Код


Dim strText As String

Private Sub Command1_Click()
Text1.FontSize = Text2.Text
Text1.ForeColor = RGB(Text2.Text, Text3.Text, Text4.Text)
strText = String(30, " ") + "bla bla"
Timer1.Interval = Text7.Text
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
       ' определить количество экранных шрифтов. 
        For I = 0 To Screen.FontCount - 1
                ' засунуть все шрифты в листбокс. 
                cboFont.AddItem Screen.Fonts(I)
        Next I
End Sub

Private Sub Timer1_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Text1 = strText
End Sub

Private Sub cboFont_Click()
        ' сделать выбранный FontName шрифтом combobox 
        cboFont.FontName = cboFont.Text
        Text1.Font = cboFont.Text
End Sub

а здесь прогу стяните сами ;) тута!!

Это сообщение отредактировал(а) M.E.G.U.S - 3.4.2005, 18:15

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

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