Как сделать, чтобы текст выводился поочередно буква за буквой через определенный промежуток времени? - VB
Формулировка задачи:
Еще раз доброго времени суток! Задача такая: есть текст, который нужно выводить плавно, буква за буквой (такой эффект многие наверняка видели в играх или фильмах). Наваял, к примеру, такой код:
Работать то работает, но только если текст в файле выглядит так:
П
р
и
в
е
т
!
(т.е. вертикально). Можно забить и сказать, что главное - работает. Но, наверняка есть точно такое же решение, если бы текст был одной строкой и считывался просто по одному символу по таймеру. Может кто сталкивался? Помогите, пожалуйста! Заранее спасибо!
Решение задачи: «Как сделать, чтобы текст выводился поочередно буква за буквой через определенный промежуток времени?»
textual
Листинг программы
Option Explicit Dim N, CF As String Private Sub Form_Load() Dim File As String File = App.Path & "\test.txt" Open File For Binary As #1 CF = Input(FileLen(File), 1) Close #1 End Sub Private Sub Комманда1_Click() Часы1.Interval = 100 Часы1.Enabled = True End Sub Private Sub Часы1_Timer() Cls N = N + 1 If N = Len(CF) Then N = 1 Print Left(CF, N) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д