100分在线求解

Question

兄弟正在做一个触摸屏查询系统，表格和文本的滚动条太小，不方便操作，有没有可以用代码控制窗体中控件的滚动条的代码。最好详细点。

Answer 1

sendmessage
具体你最好找找，我不太熟悉

Answer 2

Public Const SB_LINEDOWN = 1
Public Const SB_LINEUP = 0
配合sendmessage试试

Answer 3

Option ExplicitPrivate Const EM_SCROLL = &HB5 '以行或页为单位，卷动TexBox
Private Const SB_LINEUP = 0 '上卷一行
Private Const SB_LINEDOWN = 1 '下卷一行
Private Const SB_PAGEUP = 2 '上卷一页
Private Const SB_PAGEDOWN = 3 '下卷一页
Private Const EM_LINESCROLL = &HB6 '以行为单位，卷动TexBox
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
SendMessage Text1.hwnd, EM_SCROLL, SB_PAGEUP, ByVal 0& '上卷一页
Case 1
SendMessage Text1.hwnd, EM_SCROLL, SB_LINEUP, ByVal 0& '上卷一行
Case 2
SendMessage Text1.hwnd, EM_SCROLL, SB_LINEDOWN, ByVal 0& '下卷一行
Case 3
SendMessage Text1.hwnd, EM_SCROLL, SB_PAGEDOWN, ByVal 0& '下卷一页
Case 4
'Text1.text用来输入水平方向行数的TextBox,Text2.text:用来输入垂直方向行数的TextBox
'因为lParam采用"As Any"的定义方式，所以我们传入是一定要将参数强制设置成Long类型
SendMessage Text1.hwnd, EM_LINESCROLL, Val(Text1.Text), ByVal CLng(Val(Text2.Text))
End Select
End Sub