Rem 界面一个编辑框一个按钮，我希望单击按钮时能把编辑框中我选择的内容显示出来。要怎么改着代码？

Question

Option Explicit
Dim strtmp As StringPrivate Sub Command1_Click()
    strtmp = Mid(Text1, Text1.SelStart, Text1.SelLength)
    MsgBox strtmp
End Sub
Rem 界面一个编辑框一个按钮，我希望单击按钮时能把编辑框中我选择的内容显示出来。要怎么改着代码？

Answer 1

Private Sub Command1_Click()
    MsgBox Text1.SelText
End Sub

Answer 2

因为 mid 函数的第二个参数 要求从1开始，而不能为零，当选中第一个字符时候SelStart为0，程序会报错，选其它字符的时候会出现一个字符的偏差
在selstart 后面＋1就可以了Private Sub Command1_Click()
    strtmp = Mid(Text1, Text1.SelStart+1, Text1.SelLength)
    MsgBox strtmp
End Sub
不过还是 MsgBox Text1.SelText  比较简便直观