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

Private Sub Command1_Click()
strtmp = Mid(Text1, Text1.SelStart, Text1.SelLength)
MsgBox strtmp
End Sub


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

[解决办法]
Private Sub Command1_Click()
MsgBox Text1.SelText
End Sub

[解决办法]
因为 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 比较简便直观