richtextbox1怎么才能选中多行？

Question

richtextbox1怎么才能选中多行？
一点击“>>”按钮，可以将选中的项目显示到另外的richtextbox？
并将刚才选中的项目从richtextbox1删除

Answer 1

这种应用，干吗还用 xxTextBox ？
这些东西都只能连续选择。
用 ListBox 不是更方便吗！

Answer 2

Option Explicit
Private Sub Command1_Click()
Dim l1 As Long, l2 As Long, l3 As Long
Dim s As String
l1 = RichTextBox1.SelStart
l2 = RichTextBox1.SelLength
l3 = Len(RichTextBox1.Text)
If l1 = 1 Then
s = Mid(RichTextBox1.Text, l2 + 1, l3 - l2)
Else
s = Mid(RichTextBox1.Text, 1, l1) & Mid(RichTextBox1.Text, l1 + l2 + 1, l3 - l2 - l1)
End If
RichTextBox2.Text = RichTextBox1.SelText
RichTextBox1.Text = s
End Sub
Private Sub Form_Load()
RichTextBox1.Text = "中科院IT工程硕士招生与咨询会超经典全" & _
"套java ee教程免费下载！CSDN天津基地java热招中先实习后上岗," & _
"入职年薪5-10万 活动：MVP主管林思琦与网友在线聊天圆满结束 " & _
"5月版主积分及礼品兑换2010年5月CSDN版主考核结果ACCESS自" & _
"定义函数或过程收集整理贴" & _
"richtextbox1怎么才能选中多行？" & _
"一点击“>>”按钮，可以将选中的项目显示到另外的richtextbox？" & _
"并将刚才选中的项目从richtextbox1删除"
End Sub