Главная страницаОбратная связьКарта сайта

Бегущая строка (компьютер сам набирает текст)



Private Sub Timer1_Timer()
a1 = Len(t1.Text)
a2 = Len(t2.Text)
If a1 <> a2 Then
t2.Text = Left(t1.Text, a2 + 1)
Else
t2.Text = ""
End If
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Бегущая строка (компьютер сам набирает текст)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info