Private Sub Text1_Change()
If Len(Text1) > 15 Then
Text2 = Mid(Text1, 16) & Text2
Text1 = Left(Text1, 15)
End If
End Sub
在text的change事件中写：
if len(text1.text)>15 then
text2.text =text2.text & right(text1.text,1)
text1.text=left(text1.text,15)
end if
text有一个MaxLength属性 调整它就行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024