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

你如何在visual basic中逐字显示？

1 个答案: