怎样判断TextBox只要包含<#>m01<#>或<#>m02<#>或<#>m03<#>或<#>m04<#>或<#>m05<#>或<#>m06<#>或<#>m07<#>或<#>m08<#>或<#>m09<#>或<#>m10<#>这些信息当中其一就不做任何操作，否则就响应！请各位赐教，谢谢！

Private Function Check_Str(ByVal strTemp As String) As Boolean
Check_Str = InStr(1, strTemp, "<#>m01<#>") Or InStr(1, strTemp, ""<#>m02#>") '......
End Function

Private Sub Command1_Click()
If Check_Str(Text1) Then
'有<#>的代码
Else
'没有<#>的代码
End If
End Sub

[此贴子已经被作者于2006-11-14 10:49:26编辑过]