|
|
 |
防止用户编辑文本框控件中的内容 |
热 ★★★★ |
|
防止用户编辑文本框控件中的内容 |
|
作者：闵涛 文章来源：闵涛的学习笔记 点击数：630 更新时间：2009/4/23 14:57:52  |
|
|
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键来执行样例程序。在文本框控件中键入一些文本, 可以使用水平和垂直流动条来滚动文本,还可以改变文本的内容。单
击命令按钮,用户仍然可以使用流动条或是光标键来查看文本框控件 的内容,但是不能编辑它。
没有相关教程
|
|
| 教程录入：mintao 责任编辑：mintao |
|
|
上一篇教程： 防止文本控件中的部分滚动
下一篇教程： 几种常见数据库比较 |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
|
 |
同类栏目 |
 |
|
赞助链接 |
|
|
500 - 内部服务器错误。
|
|
|
|
|
|
