首页 >> 读书频道 >> 电脑 >> 防止用户编辑文本框控件中的内容
 
· VB6中创建资源文件的方
· Visual Basic
· VB的坐标系统综述
· VB网格中输入数据
· VB的OPEN对话框控件
· Visual Basic
· 自动选择 Text 的内
· 自动记录应用软件工作时间
· 调整 Combo 下拉部
· VB6内置的内码转换功能
· 改变 ListIndex
· 用VB编写小型的网络系统
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

防止用户编辑文本框控件中的内容


查看有无更新版本

关键字:VB 2006-9-18

 

   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键来执行样例程序。在文本框控件中键入一些文本,可以使用水平和垂直滚动条来滚动文本,还可以改变文本的内容。单击命令按钮,用户仍然可以使用滚动条或是光标键来查看文本框控件的内容,但是不能编辑它。 

防止用户编辑文本框控件中的内容

[ 1 ]
防止用户编辑文本框控件中的内容 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑