任何人都可以在vb.net中增强我的代码吗?
Private Sub btnload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnspeak.Click
Dim str As String = Trim(txttext.Text)
Dim stringfilter As String
Dim ringpath As String
Dim words As String()
Dim wordsingle As String
If Len(str) = 0 Then
MsgBox("please enter the text.")
Exit Sub
End If
stringfilter = "*.mp3"
words = str.Split(New Char() {" "c})
For Each wordsingle In words
MsgBox(wordsingle)
ringpath = "d:\voices\" + wordsingle + ".mp3"
mpplayer.URL = (ringpath)
Next
End Sub