VB 版 (精华区)

防止用户编辑文本框控件中的内容
    Visual Basic中的文本框控件允许用户在其中键入文本，以便在程序中使用。
相反
，程序员可能会希望显示一些文本但不希望用户编辑该文本。本文介绍了如何创建
只读
的文本框控件的内容。
使一个文本框控件只读
使一个文本框控件只读
    在Visual Basic中，如果文本框控件的MultiLine属性设置为True，文本将会
自动地
换行到下一行。另外，如果文本框控件的ScrollBars属性设置为3-Both（或者
1-Vertic
al，或者2-Horizontal），用户还能够滚动控件中的内容。
    程序员要想实现文本框控件中的文本不可编辑，可将文本框控件中的内容设置
为只
读状态，这可以通过使用Microsoft Windows 应用程序编程接口（API）的
SendMessage
函数来实现。SendMessage函数可以用来发送一个EM_SETREADONLY消息到文本框控
件中，
这将使文本框控件变为只读。
    要在程序中使用该SendMessage函数，需要将如下的声明语句包含在项目的通
用声明
部分中（注意该声明语句需要书写在一行内）：
        Private Declare Function SendMessage Lib "user32" Alias 
"SendMessage
A" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, 
ByVal l
Param 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" 
(ByVa
l 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键来执行样例程序。在文本框控件中键入一些文本，可以使用水平
和垂
直滚动条来滚动文本，还可以改变文本的内容。单击命令按钮，用户仍然可以使用
滚动
条或是光标键来查看文本框控件的内容，但是不能编辑它。