Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/TextBox. Прокрутка колесиком мыши. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
TextBox. Прокрутка колесиком мыши.
ZetMenChavo Дата: Среда, 06.11.2024, 20:10 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Всем здравстуйте)
Возникла необходимость сделать возможным прокрутку текста в TextBox, т.к. целиком текст не помещался. Сначала нашел инфу про свойство ScrollBars, но не один из четырех параметров не давал нужного эффекта, лишь появлялись ползунки для прокрутки через ЛКМ.
Потом подумал "может это через процедуры событий делается?". Создал все доступные для TextBox события, но не одно не отреагировало на колесико мыши.
Вся надежда на вас

[vba]
Код
Private Sub TextBox1_AfterUpdate()
    Debug.Print "TextBox1_AfterUpdate  " & Timer
End Sub
Private Sub TextBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Debug.Print "TextBox1_BeforeDragOver  " & Timer
End Sub
Private Sub TextBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Debug.Print "TextBox1_BeforeDropOrPaste  " & Timer
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_BeforeUpdate  " & Timer
End Sub
Private Sub TextBox1_Change()
    Debug.Print "TextBox1_Change  " & Timer
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_DblClick  " & Timer
End Sub
Private Sub TextBox1_DropButtonClick()
    Debug.Print "TextBox1_DropButtonClick  " & Timer
End Sub
Private Sub TextBox1_Enter()
    Debug.Print "TextBox1_Enter  " & Timer
End Sub
Private Sub TextBox1_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_Error  " & Timer
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_Exit  " & Timer
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "TextBox1_KeyDown  " & Timer
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Debug.Print "TextBox1_KeyPress  " & Timer
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "TextBox1_KeyUp  " & Timer
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseDown  " & Timer
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseMove  " & Timer
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseUp  " & Timer
End Sub
[/vba]
 
Ответить
СообщениеВсем здравстуйте)
Возникла необходимость сделать возможным прокрутку текста в TextBox, т.к. целиком текст не помещался. Сначала нашел инфу про свойство ScrollBars, но не один из четырех параметров не давал нужного эффекта, лишь появлялись ползунки для прокрутки через ЛКМ.
Потом подумал "может это через процедуры событий делается?". Создал все доступные для TextBox события, но не одно не отреагировало на колесико мыши.
Вся надежда на вас

[vba]
Код
Private Sub TextBox1_AfterUpdate()
    Debug.Print "TextBox1_AfterUpdate  " & Timer
End Sub
Private Sub TextBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Debug.Print "TextBox1_BeforeDragOver  " & Timer
End Sub
Private Sub TextBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Debug.Print "TextBox1_BeforeDropOrPaste  " & Timer
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_BeforeUpdate  " & Timer
End Sub
Private Sub TextBox1_Change()
    Debug.Print "TextBox1_Change  " & Timer
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_DblClick  " & Timer
End Sub
Private Sub TextBox1_DropButtonClick()
    Debug.Print "TextBox1_DropButtonClick  " & Timer
End Sub
Private Sub TextBox1_Enter()
    Debug.Print "TextBox1_Enter  " & Timer
End Sub
Private Sub TextBox1_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_Error  " & Timer
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Debug.Print "TextBox1_Exit  " & Timer
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "TextBox1_KeyDown  " & Timer
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Debug.Print "TextBox1_KeyPress  " & Timer
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "TextBox1_KeyUp  " & Timer
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseDown  " & Timer
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseMove  " & Timer
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "TextBox1_MouseUp  " & Timer
End Sub
[/vba]

Автор - ZetMenChavo
Дата добавления - 06.11.2024 в 20:10
MikeVol Дата: Среда, 06.11.2024, 21:34 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 378
Репутация: 81 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
ZetMenChavo, Доброго времени суток. Может не то что вам надо но вариант рабочмй из данной теміы. Пробуйте, а может я вас не правильно понял. Удачи.
К сообщению приложен файл: 06_11_2024_exw_textbox_prokrut.xls (103.0 Kb)


Ученик.
Одесса - Украина
 
Ответить
СообщениеZetMenChavo, Доброго времени суток. Может не то что вам надо но вариант рабочмй из данной теміы. Пробуйте, а может я вас не правильно понял. Удачи.

Автор - MikeVol
Дата добавления - 06.11.2024 в 21:34
ZetMenChavo Дата: Среда, 06.11.2024, 22:28 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, MikeVol. Код, что в самом начале той темы, выдал ошибку, а с моим уровнем знаний я не только без понятия что не так в нём, но даже примерный принцид его действия не понимаю. А на файл надстройки в virustotal выдало 10 срабатываний. Не знаю насколько надежны те антивирусники, но не хочется рисковать ради бональной прокрутки колесиком.
Может кому способ попроще известен, так что ещё подожду варианты.
 
Ответить
СообщениеЗдравствуйте, MikeVol. Код, что в самом начале той темы, выдал ошибку, а с моим уровнем знаний я не только без понятия что не так в нём, но даже примерный принцид его действия не понимаю. А на файл надстройки в virustotal выдало 10 срабатываний. Не знаю насколько надежны те антивирусники, но не хочется рисковать ради бональной прокрутки колесиком.
Может кому способ попроще известен, так что ещё подожду варианты.

Автор - ZetMenChavo
Дата добавления - 06.11.2024 в 22:28
MikeVol Дата: Среда, 06.11.2024, 22:48 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 378
Репутация: 81 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
ZetMenChavo, мой файл что приложил я посмотрели? Вроде бы работает прокрутка в TextBox-е.


Ученик.
Одесса - Украина
 
Ответить
СообщениеZetMenChavo, мой файл что приложил я посмотрели? Вроде бы работает прокрутка в TextBox-е.

Автор - MikeVol
Дата добавления - 06.11.2024 в 22:48
ZetMenChavo Дата: Четверг, 07.11.2024, 20:47 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
MikeVol, тоже ошибку выдает.
 
Ответить
СообщениеMikeVol, тоже ошибку выдает.

Автор - ZetMenChavo
Дата добавления - 07.11.2024 в 20:47
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!