杭州交通信息网胶质性脑瘤能活多久:VB TEXT显示问题!!
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/03 02:26:41
VB中建了TEXT(1)和TEXT(2)两个文本框.规定TEXT(1)只能输入10个汉字,向TEXT(1)中贴入20字的内容让不能显示的后10个字自动贴到TEXT(2)中,该怎样写代码?
Private Sub Text_Change(Index As Integer)
Dim strText As String
Select Case Index
Case 1
strText = Text(1).Text
If Len(strText) > 10 Then _
Text(2).Text = Right(strText, Len(strText) - 10): _
Text(1).Text = Left(strText, 10)
Case 2
'这里输入对text(2)文本变化进行的操作
End Select
End Sub
在这里还有一个输入中英文的问题以及在已输入的10个字中间插入之后的处理的问题需要完善，不知这段代码能不能符合你的需要了
编写TEXT(1)的ONCHANAGE()事件，当字数达到10的时候设置TEXT(2)获取输入焦点，不知道你说的是vb6还是VB.NET，我给思路代码不会写了。