VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 防止文本控件中的部分滚动
发表评论(0)作者:, 平台:, 阅读:8521, 日期:2000-03-12
防止文本控件中的部分滚动

谭 翁

Windows API的SendMessage函数可以用来向VisualBasic控件中发送消息,例

如向文本框控件上发送消息。本文介绍如何利用该函数防止文本框控件中的部分文

本滚动,即该控件中不能滚动的部分不能被用户看见。

发送消息到文本框控件

Visual Basic中的文本框控件就是一个最小化的字处理程序。当该文本控件的

MultiLine属性被设置为True的时候,则文本可以自动换行;当在文本框控件中键

入了许多文本时,控件中的文本会向上滚动。这时文本就变得看不到了,但这些文

本实际上仍然在控件中——它们并没有被删除。

Windows API的SendMessage函数可以用来防止文本框控件中的文本滚动因而超

出我们的视线。当创建该文本框控件时,它的客户区域格式化为一个矩形(该区域

就是键入文本的地方),可以给该控件发送EM_SETRECTNP消息,对该矩形区域进行

限制,以在文本框的客户区域中指定一个特定区域。

在下面的样例程序中,我们希望文本控件的后一半原封不动地保持完整,即不

希望文本滚动而超出视线。可以从文本框控件的Height属性中提取出它的高度,并

将该值除以2,得到该文本框控件后一半的坐标。然后将该结果传递给SendMessage

函数,告诉EM_SETRECTNP防止该矩形区域滚动。

有些程序员可能会希望使用EM_SETRECT消息代替EM_SETRECTNP消息。但是,使

用EM_SETRECT消息会停止Windows对该格式化矩形区域中的文本的重新绘制,导致

文本框控件中的文本会看不到。

 

样例程序

该程序显示了如何临时冻结一个文本框控件中的特定部分,该部分包含的文本

不能滚动,因而不会超出视线之外。

1.在VisualBasic中开始一个新的工程,采用缺省的方法建立Form1。

2.将如下常量和声明语句添加到Form1的通用声明部分中(注意该声明语句需

要书写在一行内):

Private Declare Function SendMessage Lib "User"

(ByVal hWnd As Integer, ByVal wMsg As Integer,

ByVal wParam As Integer, lParam As Any) As Long

Const WM_USER = &H400

Const EM_SETRECTNP = WM_USER + 4

Const EM_SETRECT = WM_USER + 3

对于32位环境下使用Visual Basic5.0的用户,需要将如下声明语句添加到

Form1的通用声明部分中:

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

Const EM_SETRECTNP = &HB4

Const EM_SETRECT = &HB3

3.将如下代码添加到Form1的Form_Load事件中:

Private Sub Form_Load()

Text1.Text = " 这 是 我 们 希 望 显 示 出 来 的 第 一 段"

Text1.Text = Text1.Text & " 它 位 于 文 本 框 控 件 中"

Text1.Text = Text1.Text & Chr$(13) & Chr$(10) & " 这 是 第 二 段, 我 们

"

Text1.Text = Text1.Text & " 希 望 将 之 冻 结 以 使 文 本 不 能 滚 动 "

End Sub

4. 将如下代码添加到Form1的Click事件中:

Private Sub Form_Click()

Dim R As RECT

Dim X As Long

ScaleMode = 3

R.Left = 0

R.Top = 0

R.Right = Text1.Width

R.Bottom = Text1.Height / 2

X = SendMessage(Text1.hWnd, EM_SETRECTNP, 0, R)

End Sub

5.创建一个新的模块。采用缺省的方法建立Module1.Bas。

6.将如下TYPE结构添加到Module1.Bas中:

Type RECT

Left As Integer

Top As Integer

Right As Integer

Bottom As Integer

End Type

对于32位环境下使用Visual Basic 5.0的用户,需要将如下TYPE结构添加到

Module1.Bas中:

Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

7.在Form1上添加一个文本框控件,采用缺省的方法建立Text1,将其

MultiLine属性设置为True。

按下F5来执行该程序,我们可以看到文本框显示在Form1上。在窗体上单击一

次鼠标,将新的文本键入到该文本框控件中。这时我们可以注意到,当我们在文本

框控件的开头处键入新的文本时,在文本框控件下半部分的文本不会滚动。

如果我们将EM_SETRECT消息替代EM_SETRECTNP消息发送给文本框,再次运行该

程序,这时我们会发现,文本框的下半部分显示不出来,尽管实际上文本仍然是存

储在控件中的。