在Visual Basic中,可以通过程序使文本框控件中的内容进行滚
动,而不用等待用户单击滚动条控件。通过使用Windows API的SendMe
ssage函数,可以将一个或多个滚动消息发送给系统,由此来实现上述 功能。
在文本框控件中滚动
在下面的样例程序中,连接到Left命令按钮上的代码将文本框中 的内容向左移动一个字符的位置。当用户单击了文本框控件上的水平
滚动条时,该消息被发送到窗口。然而,在这个程序中,是在用户单击 命令按钮时发送该消息。
要控制滚动行为的方向,必须告诉SendMessage函数将一个WM_HSC
ROLL消息发送到文本框控件中,并在wParam参数中指定方向参数。下 面是可以在wParam参数中指定的有效设置:
SB_LEFT
往左边移动较多部分
SB_RIGHT
往右边移动较多部分
SB_LINELEFT
往左边移动一个单元
SB_LINERIGHT 往右边移动一个单元
可见,要将文本框中的文本向左移动一个字符,可以将wParam参数 设置为SB_LINELEF
T;要将文本框中的内容向右移动一个字符,则将wP aram参数设置为SB_LINERIGHT,等等。
样例程序
该程序显示了如何使用SendMessage函数来滚动文本框控件中的 内容。
1.在Visual
Basic中开始一个新的工程,采用缺省的方法建立For m1。
2.将如下常量和声明语句添加到Form1的通用声明部分中(注意该
声明语句需要书写在一行内):
Private Declare Function SendMessage Lib "user32" Alias
"SendMessageA"(B yVal hwnd As Long, ByVal wMsg As Long, ByVa l wParam As
Integer, ByVal lParam As Long) As Long
Const SB_LINERIGHT = 1
Const
SB_LINELEFT = 0
Const WM_HSCROLL = &H114
3.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。
将其MultiLine属性设置为True,ScroolBars属性设置为3-Both。
4.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comman d1。
将其Caption属性设置为"左"。
5.将如下代码添加到Command1的单击事件中:
Private Sub Command1_Click()
Dim
X As Long
X = SendMessage(Text1.hwnd, WM_HSCROLL, SB_LINELEFT, ByV al
0&)
End Sub
6.在Form1上添加第二个命令按钮控件,采用缺省的方法建立Comm and2,将其Caption
属性设置为"右"。 r> 7.将如下代码添加到Command2的单击事件中:
Private Sub Command2_Click()
Dim X As Long
X = SendMessage(Text1.hwnd, WM_HSCROLL, SB_LINERIGHT,
By Val 0&)
End Sub
按下F5键来执行该程序。在文本框控件中键入一些文本。
单击左命令按钮,文本将被往左滚动一个字符。单击右命令按 钮,文本将被往右滚动一个字符的位置。
|
