Question

vb问题：上面是richtextbox,下面是listbox,点击垂直滚动条下按钮，实现和上面文字联动。

此功能，用键盘方向键能实现，用鼠标点击却无法实现，为什么？
Private Sub List1_Click() jj = List1.ListIndex 'List1被点击的行号带入变量JJ RichTextBox2.Text = "" For i = 0 To jj RichTextBox2.Text = RichTextBox2.Text & List1.List(i) Next i RichTextBox2.SelStart = Len(RichTextBox2.Text) '光标在最后
End Sub

Answer 1

我的理解是，你点击一行，然后列表框从头到当前的数据全部添加到文本框中。
应该可以的啊。你是不是还有其它的代码？

追问

是的，现在只是这个模块，我想让他实现，点击垂直滚动条下按钮也能从头到当前字符显示。但是没能实现，在这里请教高手