VB.net中的字符串标记

Question

当我运行此程序时，tokenize按钮不起作用 我不知道为什么？ 有什么变化吗？

Private Sub Tokenize_Click()       
    Dim tok As New Tokenizer      
    Dim s As String      

    tok.init txString.Text  
    lsTokens.Clear          
    s = tok.nextToken       

    While Len(s)>0        
        lsTokens.AddItem s    
        s = tok.nextToken     
    Wend
End Sub

Answer 1

＆＃39;你在代码的第一行末尾错过了（句柄）（改变它如下）：

Private Sub Tokenize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tokenize.Click