TextChanged：
Dim str() As String = e.Sender.Text.Split(",")If str.Length > 1 Thene.Sender.Text = str(0) MessageBox.Show("只允许选择一项")End If
加好友 
发短信
Post By：2013/8/28 6:38:00 [只看该作者]
