TopPicLogo TopPicText

Текстовое Поле (TextBox) - Вертикальная прокрутка колесом мышки (простенько-через перемещение курсора)

Вешаеться на событие On Mouse Wheel Формы
Считаеться что: БОЛЬШОЙ текст только в одном поле: "txtText"

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
'es - 06.12.2012
'Прокрутка многострочного TextBox-а колесом мыши через перемещение курсора
'--------------------------------------------------------------------
Dim i As Integer
Dim x As Integer

On Error GoTo Form_MouseWheelErr

'Проверка на то что курсор стоит в нужном поле
    If Me.ActiveControl.name <> "txtText" Then GoTo Form_MouseWheelBye
    
    'Обработка направления перехода
        Select Case Count
            Case Is < 0 'Прокрутка ВВЕРХ
                x = Count * -1
                For i = 1 To x
                    SendKeys "{UP}"
                Next i
                
            Case Is > 0 'Прокрутка ВНИЗ
                x = Count
                For i = 1 To x
                    SendKeys "{DOWN}"
                Next i
        End Select
 
Form_MouseWheelBye:
    Exit Sub

Form_MouseWheelErr:
    'MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in procedure Form_MouseWheel of VBA Document Form_Movies00Set", vbCritical, "Error!"
    Resume Form_MouseWheelBye
End Sub
Назад ToTop
L.E. 23.05.2014
Рейтинг@Mail.ru