Używam Visual Basic 2002 .net.
Na formie znajduje się Richtextbox z transparentnym tłem, pod którym znajduje się obrazek, z tego powodu instrukcją:
richtextbox.scrollbars= none
usuwam oba scrollbary rtb, gdyż źle się zachowują (znikają lub migotają) na przeźroczystym tle.
Dodaję więc osobnego Vscrollbara, problem mam z oprogramowaniem komunikatów EndScroll i Thumbtrack lub Thumbposition, nie wiem co zrobić żeby przesuwając suwak scrollbara przewijać zawartość rtb do odpowiedniej linii i zachować tę pozycję po zakończeniu przewijania czyli po wywołaniu komunikatu endscroll.
Oto kod:
Private Declare Auto Function SendMessage Lib "user32" Alias "SendMessage" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Const WM_VSCROLL = &H115
Private Sub VScrollBar1_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
etype = e.Type
If etype = ScrollEventType.EndScroll Then
'TUTAJ COŚ
End If
If etype = ScrollEventType.ThumbTrack Then
'TUTAJ COŚ
Else
'Ta instrukcja obsługuje prawidłowo przewijanie rtb w górę w dół o linię i o stronę:
SendMessage(RichTextBox1.Handle, WM_VSCROLL, etype, 0)
End If
End Sub