richtextbox1怎么才能选中多行?
richtextbox1怎么才能选中多行?一点击“>>”按钮,可以将选中的项目显示到另外的richtextbox?
并将刚才选中的项目从richtextbox1删除 --------------------编程问答-------------------- 这种应用,干吗还用 xxTextBox ?
这些东西都只能连续选择。
用 ListBox 不是更方便吗!
--------------------编程问答-------------------- 是啊,ListBox 挺好的 --------------------编程问答-------------------- 是吗我试试
谢谢了 --------------------编程问答-------------------- VB没怎么用过 --------------------编程问答--------------------
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
补充:VB , 网络编程