Question

vb从第8个字符开始选定9个字符

Answer 1

Mid(字符串，第几个字符开始，使用几个字符)

例如
1:Mid("123456789",1,8)
2:Mid("123456789",8)
结果

1:12345678
2:89

例如
字符串：【计算机系2015级3班】
字符串：【机电系2015级1班】
需求结果是
2015年几班，前面的不要，那么你现在不清楚需要从第几个字符开始截取。

方法
InStr(第几个开始搜索，搜索目标，搜索值)

例如
1：Instr(1,"计算机系2015级3班","2015")
2：Instr(1,"机电系2015级1班","2015")
结果
1:5（发现2015在第5个字符串开始被搜到）
2:4（发现2015在第4个字符串开始被搜到）

综合起来

Mid("计算机系2015级3班",Instr(1,"计算机系2015级3班","2015"))
结果
2015级3班

例如
Mid("计算机系2015级3班",1,Instr(1,"计算机系2015级3班","2015")-1)
结果
计算机系

希望对你有所帮助！

Answer 2

vb选中文件框中的内容：

selstart从哪里开始选择即设置选定的起始位置

SelLength 设置选定的长度

Private Sub Command1_Click()
    Dim x As Long
    x = Len(Text1.Text)
    If x < 8 Then MsgBox "输入的字符不足8个": Exit Sub
    Text1.SelStart = 8
    Text1.SelLength = 9
    Text1.SetFocus
End Sub

Answer 3

Private Sub Command1_Click()
Text2.Text = ""
If Len(Text1.Text) >= 8 Then
Text2.Text = Mid(Text1.Text, 8, 9)
Else
Text2.Text = "错误，原字符串长度不足，至少要要8个字符！"
End If
End Sub

Answer 4

'在VB中，创建文本框text1，并输入内容
Private Sub Form_Click()
If Len(Text1.Text) >= 9 Then
Text1.SelStart = 8
Text1.SelLength = 1
Else
Print "文本框长度不够"
End If
End Sub

Answer 5

Private Sub Command1_Click()
If Len(Text1.Text) < 17 Then
    MsgBox "你输入的字符必须大于17个字符！", 16, "提示！"
    Exit Sub
End If
Text2.Text = Right(Left((Text1.Text), 17), 9)
End Sub

太简单了。