哪位高手能帮帮忙,看看DHTMl Edit控件的问题

假设你的HTML页面表单代码如下：
<form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser">
  <p>请填写下面表单注册（*项为必添项）</p>
  <p>*姓名<input type="text" name="Name" size="20"></p>
  <p>*昵称<input type="text" name="NickName" size="20"></p>
  <p>电子邮件<input type="text" name="EMail" size="20"></p>
  <p>*密码<input type="text" name="Password" size="20"></p>
  <p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>使页面中的Text只读的方法如下：
Option ExplicitPrivate Sub Command1_Click()
    WebBrowser1.Navigate "e:\edit1.html"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim vDoc, vTag
    Dim i As Integer
      
    Set vDoc = WebBrowser1.Document
'    List1.Clear
    For i = 0 To vDoc.All.length - 1
        If UCase(vDoc.All(i).tagName) = "INPUT" Then
            Set vTag = vDoc.All(i)
            If vTag.Type = "text" Or vTag.Type = "password" Then
'                List1.AddItem vTag.Name
                Select Case vTag.Name
                    Case "Name"
                        vTag.Value = "IMGod"
                        vTag.ReadOnly = True
                    Case "NickName"
                        vTag.Value = "IMGod"
                        vTag.ReadOnly = True
                    Case "Password"
                        vTag.Value = "IMGodpass"
                        vTag.ReadOnly = True
                    Case "EMail"
                        vTag.Value = "[email protected]"
                        vTag.ReadOnly = True
                End Select
            ElseIf vTag.Type = "submit" Then
                'vTag.Click
            End If
        End If
    Next i
End Sub

解决方案 »

  1.   

    如果你是要在页面中不让用户输入的话：<HEAD>
    <SCRIPT>function checkKey()
    {
        event.returnValue=false;
    }
    </SCRIPT>
    </HEAD>
    <BODY>
    <BR>
        <INPUT TYPE=text NAME=txtOutput onkeydown="checkKey()" value ="你无法输入">
    </BODY>
      

  2.   

    是使用的DHTML Edit控件，它不但可以输入，还可以删除和移动某个元素，现在我想控制他的按键事件和鼠标事件。
      

  3.   

    没太明白，试试这个：
    <INPUT TYPE=text NAME=txtOutput readonly=true>
      

  4.   

    在DHTMLEdit控件的onkeypress事件中用如下方法：Private Sub DHTMLEdit1_onkeypress(KeyAscii As Integer)
        If KeyAscii > 32 And KeyAscii < 127 Then
            Exit Sub
        End If
    End Sub