ник: Силblч
скажем дружно - нахрен нужно 
сабкласиснг нахринг
Private Sub Form_Timer()
Dim rtb As RichTextBox
Dim sci As SCROLLINFO
Dim ret As Long
Set rtb = Me.RTF24.Object
sci.cbSize = Len(sci)
sci.fMask = SIF_TRACKPOS Or SIF_RANGE Or SIF_PAGE
ret = GetScrollInfo(rtb.hwnd, 1, sci)
If ret > 0 Then
'Debug.Print sci.nPos, sci.nTrackPos
If cScroll <> sci.nTrackPos Then
DrawLines Me.picLines.Object
cScroll = sci.nTrackPos
End If
End If
Set rtb = Nothing
End Sub
|
ставим таймер интервал 1
и все
скроллинг пойман и синхронизирован
правда еще не знаю чем это мне чревато и вылезет ли боком?
