Сэмулировать нажатие на клавиши полосы прокрутки Textbox-a - VB
Формулировка задачи:
Хотелось бы узнать поподробнее, как при нажатии на мои клавиши 'вверх' и 'вниз' сэмулировать нажатие на соответсвующие клавиши полосы прокрутки в Multiline Textbox-e? Просьба Comanche ответить как объявить и послать через API SendMessage сообщение EM_SCROLL текстбоксу в виде кусочка кода, если можно. А так подскажите кто вообще знает ответ на этот вопрос. Заранее спасибо.
Решение задачи: «Сэмулировать нажатие на клавиши полосы прокрутки Textbox-a»
textual
Листинг программы
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const WM_VSCROLL = &H115 Private Const SB_LINEDOWN = 1 Private Const SB_LINEUP = 0 Private Sub Command1_Click() ' Кнопка 'Up' SendMessage Text1.hwnd, WM_VSCROLL, SB_LINEUP, 0 End Sub Private Sub Command2_Click() ' Кнопка 'Down' SendMessage Text1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0 End Sub Private Sub Form_Load() Dim i As Integer ' Подготовка формы: Me.ScaleMode = 1 Me.Height = 3000 Me.Width = 3200 With Text1 .Left = 500 .Top = 250 .Height = 430 .Width = 2000 End With With Command1 .Height = 500 .Width = 1000 .Top = 900 .Left = 1000 .Caption = 'Up' End With With Command2 .Height = 500 .Width = 1000 .Top = 1700 .Left = 1000 .Caption = 'Down' End With ' Заполняем каким-то текстом: Text1.Text = '' For i = 65 To 85 Text1.Text = Text1.Text + String(5, Chr(i)) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д