vb.net中两个RichTextbox的滚动条如何联动?
来源:百度知道 编辑:UC知道 时间:2024/05/31 05:59:48
这个例子我以前见过,曾经尝试着该成vb.net的,但是不行。vb.net的RichTextBox里没有Scroll的方法。
难题啊!我回答不了,分数别浪费,给我吧o(∩_∩)o...
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.Ha