Bonjour,
Pour une appli WinForm, sous VS 2015 Community, je développe une classe basé sur RichTextBox, pour créer une sorte de dictionnaire. Bien.
Voici un bout de code :
Imports System.Windows.Forms
Imports System.Drawing
Public Class MyClass
Inherits RichTextBox
Private Dico() as String= {.......}
Public Sub New(ByVal nom As String)
'- 1 -- Initialiser les propriétés du RichTextBox (MyBase)
DetectUrls = False
Dock = DockStyle.Fill
Font = New Font("Consolas", 10.2!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
Location = New Point(0, 0)
Name = "Froid"
ScrollBars = RichTextBoxScrollBars.Vertical
TabIndex = 0
'- 2 -- Remplir texte de la RichTextBox
Text = ""
For Each mot In Dico
Text += mot + vbCrLf
Next
End Sub
Private Sub HandleScroll(ByVal sender As [Object], ByVal e As EventArgs) Handles MyBase.VScroll
Try
Dim rtb As RichTextBox = sender
Catch ex As Exception
End Try
End Sub
End Class
Le New initialise les paramètres de la RichTextBox. Ok. La liste défile bien à l'écran grace à la VScrollBar.
La question : comment retrouver la position de la VScrollBar
lorsqu'elle se déplace ?
L'événement MyBase.VScroll se déclenche bien mais ne comporte pas les éléments nécessaires... je ne vois pas où les trouver dans ces conditions. Autre événement, par exemple
Scroll, mais comment le saisir sans avoir déclaré explicitement la scrollbar ?
Merci de votre aide
Cordialement
Alain
