vb 符串 截取函数 急急急!!

来源：百度知道 编辑：UC知道 时间：2024/06/18 15:47:00
在TXT文本框中有X个字符,用鼠标选取从文本框中的N字符开始选取M个字符.
求 函数:
1返回N的位置;
2返回选取的M个字符长度;
3返回N到M之间所选取的字符的函数

Print Text1.SelLength, Text1.SelStart, Text1.SelText
有不明白的Q我1546985245

添加一个Text,直接选取即可测试:

Private Sub Form_Load()
Text1.Text = ""
For i = 0 To 25
Text1.Text = Text1.Text & Chr(65 + i)
Next i
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim N As Integer
Dim M As Integer
Dim N_M As String
N = Text1.SelStart
M = Text1.SelLength
N_M = Mid(Text1.Text, N + 1, M)
If M <> 0 Then
MsgBox "The value of N: " & N & vbCrLf & "The value of M: " & M & vbCrLf & "The string between N and M :" & N_M
End If
End Sub

MARK
写代码中
===========================================================
新建一个text1控件，把下面的代码赋值进去，然后在里面选中字符串即可
Private Sub Text1_Click()
MsgBox "你选中的第一个字符是第" & Text1.SelStart + 1 & "个字