VB,在窗体上添加两个文本框text1和text2.要求在文本框Text中输入字符时，限输入15字符，其余在text2显示
3个回答
展开全部
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
if len(text1.text)>15 then
text2.text =text2.text & right(text1.text,1)
text1.text=left(text1.text,15)
end if
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
text有一个MaxLength属性 调整它就行
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
