Question

请电脑大神们帮忙写VB代码，/在起始位置和长度的文本框中输入数字后，单机选取按钮时第一个文本框中的

请电脑大神们帮忙写VB代码，/在起始位置和长度的文本框中输入数字后，单机选取按钮时第一个文本框中的相应内容为选中状态，/谢谢了

Answer 1

'设控件text1为文本 text2为开始位置 text3为长度
代码如下：

Private Sub Command1_Click()
'设text1为文本 text2为开始位置 text3为长度
If Len(Text1) = 0 Then MsgBox "文本为空!": Text1.SetFocus: Exit Sub '文本为空
If IsNumeric(Text2) = False Then MsgBox "起始位置不为数字!": Text2.SetFocus: Exit Sub '起始位置不为数字
If IsNumeric(Text3) = False Then MsgBox "长度不为数字!": Text3.SetFocus: Exit Sub '长度不为数字
If Len(Text1) <= CInt(Text2) Then MsgBox "起始位置超过文本长度!": Text2.SetFocus: Exit Sub '起始位置超过文本长度
If (Len(Text1) - CInt(Text2)) < CInt(Text3) Then Text3 = Format(Len(Text1) - CInt(Text2), "0") '总长度超长时，自动设置为最长长度
'上面的都是防止错误，下面才是主要的
Text1.SelStart = Format(Text2, 0) '文本起始位置
Text1.SelLength = Format(Text3, 0) '设置选取的文本长度
Text1.SetFocus    '设置焦点
End Sub

Answer 2

我理解你是想输入起始位置和长度将第一个文本框中字选蓝(选取状态) 那么我设备选取的控件为Text1 ,起始位置的文本框为Text2,长度文本框为Text3,选取按钮为Command1.代码如下
'注释:本例没有处理起始位置和长度文本框中填写非数字的异常处理,这部分内容请自行解决
Private Sub Command1_Click()
Text1.SelStart=Cint(Text2.Text) '注释:选取的起始位置

'注释:下面是为了防止填写长度超过Text1中的内容长度,这是选到Text1中内容的结尾就结束
Text1.SelLength=IIF(CInt(Text3.Text)+Cint(Text2.Text)>Len(Text1.Text),Len(Text1.Text)- Cint(Text2.Text),CInt(Text3.Text)) '注释:选取的长度

Call Text1.SetFocus '注释:获取焦点(效果为局部选蓝,至于是否是蓝色,自己去设置属性)

End Sub