Как вы можете писать буквенное письмо в визуальном базовом?

Question

Если вы играли в игры, вы, возможно, знаете, что я имею в виду. Как слова написаны буквами вместо всего текста, отображаемого как покемон или другая игра.

это то, что я до сих пор:

Dim strTitle As String = " " 
    If IO.File.Exists("npcCraig.txt") = False Then 
     outfile = IO.File.CreateText("save.txt") 
    End If 

    infile = IO.File.OpenText("npcCraig.txt") 
    Do Until infile.Peek = -1 
     strTitle = infile.Read 'reads character or should at least 
     lblTitle.Text = lblTitle.Text + strTitle 
     System.Threading.Thread.Sleep(1000) 
    Loop 
    infile.Close() 
    outfile.Close() 

Он работает, но form1 не появляется на всех из-за «System.Threading.Thread.Sleep (1000)». Я попытался использовать это как способ отсрочить, но это не сработало.

Если вы можете рассказать мне, как положить в него перерыв или что-то в этом роде, чтобы пользователь нажал клавишу, текст полностью загрузился, и игрок может продолжать движение. Я потерял это.

ЛЮБАЯ ПОМОЩЬ ВСЕ БУДЕТ УДИВИТЕЛЬНО !! Мой учебник и остальная часть Интернета не помог

Answer 1

Мой лучший выстрел это:

Public Class Form1 
    Dim M As Integer = 1 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
     Dim T As String = "" + TextBox1.Text 
     Label1.Text = Label1.Text + Mid(T, M, 1) 
     M = M + 1 
    End Sub 
    'You can use any trigger here 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Timer1.Enabled = True 
    End Sub 
End Class