请问，在textBox中怎样才能使DELETE键输入无效？

Question

在KeyDown中处理
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then KeyCode = 0
End Sub

Answer 1

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = 46 Then
         KeyCode = 0
     End If
End Sub

Answer 2

在VB中好象没有办法控制Ctrl 、Alt和Delete

Answer 3

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 46 Then
        KeyCode = 0
    End If
End Sub 

Answer 4

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
   KeyCode = 20
End If
End Sub

Answer 5

在KeyPress事件中能实现吗？谢谢了！

Answer 6

  如果是只读的话  sendmessage(text1.hwnd,em_setreadonly,true,byval &0)  恢复客读写
  sendmessage(text1.hwnd,em_setreadonly,false,byval &0)

Answer 7

   应该是在Keypress里加入判断是否加入了Delete这个按键，方法同楼上朋友所说的