'TextChanged事件 If e.Sender.Text <> "" Then If Right(e.Sender.Text,1) = "." Then Audio.Play(ProjectPath & "\sound\点.wav",AudioPlayMode.Background) Else Audio.Play(ProjectPath & "\sound\" & Right(e.Sender.Text,1) & ".wav",AudioPlayMode.Background) End If End If