Question

vb.net中两个RichTextbox的滚动条如何联动？

滚动个RichTextBox空间的滚动条时，另一个也跟着滚动。我曾用用SetScrollPos和GetScrollPos两个API函数实现了联动效果，但是只是滚动条联动，RichTextBox的内容不变，如果知道如何实现，请告知，急！（能实现追加200分）
这个例子我以前见过，曾经尝试着该成vb.net的，但是不行。vb.net的RichTextBox里没有Scroll的方法。

Answer 1

Public Class Form1
Public Declare Function GetScrollPos Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer
Public Declare Function SetScrollPos Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal nBar As Integer, _
ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer
Private Sub RichTextBox1_HScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.HScroll
Dim lngPos As Long
lngPos = GetScrollPos(Me.RichTextBox1.Handle, 0)
SetScrollPos(Me.RichTextBox2.Handle, 0, lngPos, True)
End Sub

Private Sub RichTextBox1_VScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.VScroll
Dim lngPos As Long
lngPos = GetScrollPos(Me.RichTextBox1.Handle, 1)
SetScrollPos(Me.RichTextBox2.Handle, 1, lngPos, True)
End Sub

Private Sub RichTextBox2_HScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox2.HScroll
Dim lngPos As Long
lngPos = GetScrollPos(Me.RichTextBox2.Handle, 0)
SetScrollPos(Me.RichTextBox1.Handle, 0, lngPos, True)
End Sub

Private Sub RichTextBox2_VScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox2.VScroll
Dim lngPos As Long
lngPos = GetScrollPos(Me.RichTextBox2.Handle, 1)
SetScrollPos(Me.RichTextBox1.Handle, 1, lngPos, True)
End Sub
End Class

Answer 2

有喊灶个御返C#的郑拆扮
http://blog.sina.com.cn/s/blog_49458c2701007woh.html

Answer 3

难题啊！我回答不了，分数别浪费，给我吧o(∩_∩)o...