Сэмулировать нажатие на клавиши полосы прокрутки 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы