📄 m56.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=9>
<div align=center class=H1> 防止文本控件中的部分滚动</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=76>
<p align="left"> <br>
</font> Windows API的SendMessage函数可以用来向Visual
Basic控件中发送消息,例如向文本框控件上发送消息。本文介绍如何利用该函数防止文本框控件中的部分文本滚动,即该控件中不能滚动的部分不能被用户看见。<br>
<br>
<font
color=#cc9900> 发送消息到文本框控件</font> </span></p>
<p align="left"><span class="unnamed1">Visual Basic中的文本框控件就是一个最小化的字处理程序。当该文本控件的ultiLine属性被设置为True时,则文本可以自动换行;当在文本框控件中键入了许多文本时,控件中的文本会向上滚动。这时文本就变得看不到了,但这些文本实际上仍然在控件中——它们并没有被删除。</span></p>
<p align="left"> <br>
Windows API的SendMessage函数可以用来防止文本框控件中的文本滚动而超出我们的视线。当创建该文本框控件时,它的客户区域格式化为一个矩形(该区域就是键入文本的地方),可以给该控件发送EM_SETRECTNP消息,对该矩形区域进行限制,以在文本框的客户区域中指定一个特定区域。</span></p>
<p align="left"> <br>
在下面的样例程序中,我们希望文本控件的后一半原封不动地保持完整,即不希望文本滚动而超出视线。可以从文本框控件的Height属性中提取出它的高度,并将该值除以2,得到该文本框控件后一半的坐标。然后将该结果传递给SendMessage函数,告诉EM_SETRECTNP防止该矩形区域滚动。</span></p>
<p align="left"> <br>
有些程序员可能会希望使用EM_SETRECT消息代替EM_SETRECTNP消息。但是,使用EM_SETRECT消息会停止Windows对该格式化矩形区域中的文本的重新绘制,导致文本框控件中的文本看不到。</span></p>
<p align="left"> <font color=#cc9900>样例程序</font> </span></p>
<p align="left"> 该程序显示了如何临时冻结一个文本框控件中的特定部分,该部分包含的文本不能滚动,因而不会超出视线之外,如下图所示。<br>
1.在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。<br>
2.将如下常量和声明语句添加到Form1的通用声明部分中(注意该声明语句需要书写在一行内):<br>
Private Declare Function SendMessage Lib "User" (ByVal hWnd As Integer,
ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long<br>
Const WM_USER = &H400<br>
Const EM_SETRECTNP = WM_USER + 4<br>
Const EM_SETRECT = WM_USER + 3<br>
对于32位环境下使用Visual Basic 5.0的用户,需要将如下声明语句添加到Form1的通用声明部分中:<br>
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<br>
Const EM_SETRECTNP = &HB4<br>
Const EM_SETRECT = &HB3<br>
3.将如下代码添加到Form1的Form_Load事件中:<br>
Private Sub Form_Load()<br>
Text1.Text = "这是我们希望显示出来的第一段"<br>
Text1.Text = Text1.Text & "它位于文本框控件中"<br>
Text1.Text = Text1.Text & Chr$(13) & Chr$(10) & "这是第二段,我们"<br>
Text1.Text = Text1.Text & "希望将之冻结以使文本不能滚动 "<br>
End Sub<br>
4.将如下代码添加到Form1的Click事件中:<br>
Private Sub Form_Click()<br>
Dim R As RECT<br>
Dim X As Long<br>
ScaleMode = 3<br>
R.Left = 0<br>
R.Top = 0<br>
R.Right = Text1.Width<br>
R.Bottom = Text1.Height / 2<br>
X = SendMessage(Text1.hWnd, EM_SETRECTNP, 0, R)<br>
End Sub<br>
5.创建一个新的模块,采用缺省的方法建立Module1.Bas。<br>
6.将如下TYPE结构添加到Module1.Bas中:<br>
Type RECT<br>
Left As Integer<br>
Top As Integer<br>
Right As Integer<br>
Bottom As Integer<br>
End Type<br>
对于32位环境下使用Visual Basic 5.0的用户,需要将如下TYPE结构添加到Module1<br>
.Bas中:<br>
Type RECT<br>
Left As Long<br>
Top As Long<br>
Right As Long<br>
Bottom As Long<br>
End Type<br>
7.在Form1上添加一个文本框控件,采用缺省的方法建立Text1,将其MultiLine属性设置为True。<br>
按下F5来执行该程序,我们可以看到文本框显示在Form1上。在窗体上单击一次鼠标,将新的文本键入到该文本框控件中</span></p>
<p align="left"><span class="unnamed1">这时我们可以注意到,当我们在文本框控件的开头处键入新的文本时,在文本框控件下半部分的文本不会滚动。<br>
如果我们将EM_SETRECT消息替代EM_SETRECTNP消息发送给文本框,再次运行该程序,这时我们会发现,文本框的下半部分显示不出来,尽管实际上文本仍然是存储在控件中的。
</span> </p>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -