发送消息到文本框控件
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 LongConst WM_USER = &H400Const EM_SETRECTNP = WM_USER 4Const EM_SETRECT = WM_USER 3
对于32位环境下使用Visual Basic5.0的用户，需要将如下声明语句添加到Form1的通用声明部分中：
Private Declare Function SendMessage Lib "user32"Alias "SendMessageA" (ByVal hwnd As Long, ByValwMsg As Long, ByVal wParam As Long, lParam As y) As LongConst EM_SETRECTNP = &HB4Const 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 RECTDim X As LongScaleMode = 3R.Left = 0R.Top = 0R.Right = Text1.WidthR.Bottom = Text1.Height / 2X = SendMessage(Text1.hWnd, EM_SETRECTNP, 0, R)End Sub
5.创建一个新的模块。采用缺省的方法建立Module1.Bas。
6.将如下TYPE结构添加到Module1.Bas中：
Type RECTLeft As IntegerTop As IntegerRight As IntegerBottom As IntegerEnd Type
对于32位环境下使用Visual Basic 5.0的用户，需要将如下TYPE结构添加到Module1.Bas中：
Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd Type
7.在Form1上添加一个文本框控件，采用缺省的方法建立Text1，将其MultiLine属性设置为True。
按下F5来执行该程序，我们可以看到文本框显示在Form1上。在窗体上单击一次鼠标，将新的文本键入到该文本框控件中。这时我们可以注意到，当我们在文本框控件的开头处键入新的文本时，在文本框控件下半部分的文本不会滚动。
如果我们将EM_SETRECT消息替代EM_SETRECTNP消息发送给文本框，再次运行该程序，这时我们会发现，文本框的下半部分显示不出来，尽管实际上文本仍然是存储在控件中的。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
