Question

在VB中 怎么把文本框中当前选中的内容打印在窗体上

Answer 1

窗体添加一个Timer控件，代码如下：
Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Text1.SelLength > 0 Then
Cls
Print Mid(Text1, Text1.SelStart + 1, Text1.SelLength)
End If
End Sub

Answer 2

很简单！
Print Text1.SelText
SelText就是这个属性