Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > бегущая строка

Автор: Гость_DieseL 23.12.2004, 18:14

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

Автор: boevik 23.12.2004, 18:26

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

Автор: Gannibal 23.12.2004, 20:42

типа такого чёто 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

Цитата

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

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

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

Автор: Naghual 23.12.2004, 23:38

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

Автор: Gannibal 24.12.2004, 01:41

ну если хочешь менят и цвет и фон то я думаю это тоже непроблема, я бы код дал но у меня ВБ щас на компе нету 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

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

Автор: Gannibal 24.12.2004, 20:37

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

Код


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

а здесь прогу стяните сами ;) http://servak.wz.cz/proga.rar