Erhalten Sie die vertikale Bildlaufleiste position als Ganzzahl in vb.net

Ich kenne keinen Weg, dies zu tun, ohne PInvoke. Sie können PInvoke aufrufen GetScrollPos.

Hier ist, wie können Sie es versuchen.

Schritt 1: Erstellen Sie eine benutzerdefinierte RichTextBox-Steuerelement durch die Erweiterung der standard RichTextBox.

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Namespace WindowsFormsApplication1

    Public Class MyRichTextBox
        Inherits RichTextBox
        <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
        Public Shared Function GetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer
        End Function

        <DllImport("user32.dll")> _
        Private Shared Function SetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer
        End Function

        Private Const SB_HORZ As Integer = &H0
        Private Const SB_VERT As Integer = &H1

        ''' <summary>
        ''' Gets and Sets the Horizontal Scroll position of the control.
        ''' </summary>
        Public Property HScrollPos() As Integer
            Get
                Return GetScrollPos(DirectCast(Me.Handle, IntPtr), SB_HORZ)
            End Get
            Set(ByVal value As Integer)
                SetScrollPos(DirectCast(Me.Handle, IntPtr), SB_HORZ, value, True)
            End Set
        End Property

        ''' <summary>
        ''' Gets and Sets the Vertical Scroll position of the control.
        ''' </summary>
        Public Property VScrollPos() As Integer
            Get
                Return GetScrollPos(DirectCast(Me.Handle, IntPtr), SB_VERT)
            End Get
            Set(ByVal value As Integer)
                SetScrollPos(DirectCast(Me.Handle, IntPtr), SB_VERT, value, True)
            End Set
        End Property
    End Class
End Namespace

Diese fügen Sie zwei Eigenschaften, die zu einem standard RichTextBox: HScrollPos und VScrollPos. Diese Eigenschaften können Sie gehen und stellen Sie die horizontalen und vertikalen Scrollbalken-position in Ihrer Kontrolle.

Schritt 2: Erstellen Sie ein test-Formular und versuchen aus Ihrer Kontrolle.

Erstellen Sie eine Winform in das gleiche Projekt wie das benutzerdefinierte Steuerelement. Tropfen Sie das benutzerdefinierte Steuerelement in das test-Formular und fügen Sie eine Schaltfläche auf das Formular. In die form Klicken-Ereignis, fügen Sie folgenden code um Ihre benutzerdefinierten Steuerelements vertikale scroll-position.

Console.WriteLine(myRichTextBox1.VScrollPos)

Ein paar Dinge zu beachten:

1. Wenn Ihr Steuerelement nicht aktuell
   die Anzeige einer vertikalen Bildlaufleiste, die
   Aufruf HScrollPos Absturz Ihr
   Programm. Es gibt ein paar offensichtlich
   Möglichkeiten, um dieses (überprüfen Sie, dass die
   Bildlaufleiste wird angezeigt, bevor
   die überprüfung der Eigenschaft, zu machen, oder die
   vertikale Bildlaufleiste immer sichtbar, etc.).

2. Je nachdem, wie die Kontrolle (und
   möglicherweise-form) - Größe (nicht zu
   erwähnen Sie änderungen in der text-Inhalt
   von der Steuerung), die Einstellung der
   VScrollPos kann zum Absturz Ihres Programms oder
   nicht wieder in die position, die Sie
   bei der VScrollPos Wert war
   gespeichert.

3. Habe ich nie benutzt diesen code. Ich
   dachte deine Frage war
   interessant und hab ein wenig
   Forschung zu kommen mit meiner Antwort.