0

如果你玩过游戏，你可能会明白我的意思。单词是如何逐个字母拼写出来的，而不是像口袋妖怪或其他游戏一样显示整个文本。

这就是我到目前为止所拥有的：

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()

它运行，但由于“System.Threading.Thread.Sleep(1000)”，form1 根本没有出现。我尝试使用它作为延迟它的一种方式，但这显然不起作用。

如果可以的话，您还可以告诉我如何在其中插入中断或其他内容，以便当用户按下某个键时，文本会完全加载并且玩家可以继续前进。我对此感到迷茫。

任何帮助都将是一个惊人的！我的教科书和互联网的其余部分都没有帮助

4

1 回答 1

0

我最好的镜头是这样的：

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
于 2016-03-17T05:39:39.443 回答