Visual Basic中的文本框控件允许用户在其中键入文本，以便在程序中使用。
相反，程序员可能会希望显示一些文本但不希望用户编辑该文本。本文介绍了如何创建
只读的文本框控件的内容。
使一个文本框控件只读
在Visual Basic中，如果文本框控件的MultiLine属性设置为True，文本将会自动
地换行到下一行。另外，如果文本框控件的ScrollBars属性设置为3-Both
（或者1-Vertical，或者2-Horizontal），用户还能够滚动控件中的内容。
程序员要想实现文本框控件中的文本不可编辑，可将文本框控件中的内容设置为只
读状态，这可以通过使用Microsoft Windows 应用程序编程接口（API）的SendMessage
函数来实现。SendMessage函数可以用来发送一个EM_SETREADONLY消息到文本框控件中，
这将使文本框控件变为只读。
要在程序中使用该SendMessage函数，需要将如下的声明语句包含在项目的通用声明
部分中（注意该声明语句需要书写在一行内）：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
该SendMessage 函数需要4个参数，如下所示：
hwnd一个长整数值，它包含文本框控件的句柄。
wMsg一个长整数值，它包含被发送的消息，在这个例子里，是EM_SETREADONLY。
wParam一个整数值，如果它为True，则控件被设置只读标记，如果它为False，
则删除控件的只读标记。
lParam一个长整数值，它应该被设置为0（EM_SETREADONLY不使用它）。
在程序运行了此SendMessage函数之后，将返回一个长整数值，指明调用成功
（返回值非0）或是失败（返回值为0）。
样例程序
该程序显示了如何防止用户编辑一个文本框控件中的内容。
1.在Visual Basic 中开始一个新的工程，采用缺省的方法建立Form1。
2.将如下的常量和声明语句添加到Form1的通用声明部分中（注意该声明语句
需要书写在一行内）：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, 
ByVal lParam As Long) As Long
Const WM_USER = &H400
Const EM_SETREADONLY = (WM_USER + 31)
3.在Form1上添加一个文本框控件，采用缺省的方法建立Text1。将其MultiLine
属性设置为True，并且将它的ScrollBars属性设置为3-Both。
4.在Form1上添加一个命令按钮控件，采用缺省的方法建立Command1。
5.将如下的代码添加到Command1的单击事件中：
Private Sub Command1_Click()
Dim RetVal As Long
RetVal = SendMessage(Text1.hwnd, EM_SETREADONLY, True, ByVal 0&)
End Sub
通过按下F5键来执行样例程序。在文本框控件中键入一些文本，可以使用水平和
垂直滚动条来滚动文本，还可以改变文本的内容。单击命令按钮，用户仍然可以使用
滚动条或是光标键来查看文本框控件的内容，但是不能编辑它。