你可以去编写Validating事件
Dim str As String = "张三,李四,王二"If ("," & str & ",").Contains("," & e.Sender.Text & ",") = False Then msgbox("必须在集合内")
e.Cancel = trueEnd If