防止用户编辑文本框控件中的内容
谭 翁
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的通用声明部分中(注意该声明语句
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载