'方法如下:Private Sub Text1_Change() If Len(Text1) >= 10 Then Text1 = Left(Text1, 10) End IfEnd Sub
textbox的 maxlength 属性设置为10
MAXlength ba 好像 设成10就可以了