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"(b yval hwnd as long, byval wmsg as long, byva l wparam as integer, byvallparam as long) as long
该sendmessage函数需要4个参数,如下所示:
？hwnd 一个长整数值,它包含文本框控件的句柄。
.wmsg 一个长整数值,它包含被发送的消息,在这个例子里,是em_ setreadonly。
？wparam 一个整数值,如果它为true,则控件被设置只读标记,如 果它为false,则删除控件的只读标记。
？lparam 一个长整数值,它应该被设置为0(em_setreadonly不使 用它)。
在程序运行了此sendmessage函数之后,将返回一个长整数值,指 明调用成功(返回值非0)或是失败(返回值为0)。
样例程序
该程序显示了如何防止用户编辑一个文本框控件中的内容。
1.在visual basic中开始一个新的工程,采用缺省的方法建立for m1。
2.将如下的常量和声明语句添加到form1的通用声明部分中(注意 该声明语句需
要书写在一行内):
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byva l wparam as integer, byval lpara mas long) as long
const wm_user = &h400
const em_setreadonly = (wm_user + 31)
3.在form1上添加一个文本框控 采用缺省的方法建立text1。 将其multiline属性
设置为true,并且将它的scrollbars属性设置为3-both。
4.在form1上添加一个命令按钮控件,采用缺省的方法建立comman d1。
5.将如下的代码添加到command1的单击事件中:
private sub command1_click()
dim retval as long
retval = sendmessage(text1.hwnd, em_setreadonly, true, b yval 0&)
end sub
通过按下f5键来执行样例程序。在文本框控件中键入一些文本, 可以使用水平和垂直流动条来滚动文本,还可以改变文本的内容。单 击命令按钮,用户仍然可以使用流动条或是光标键来查看文本框控件 的内容,但是不能编辑它。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
