关于VB.net的一个问题！

[zhanghming]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
TextBox1.Clear()
End Sub
上面这个代码怎么对输入的内容不会清除，如果要让输入的内容直接清除应该怎么做？

[Paradise_heida]

Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
TextBox2.Clear()
End Sub

[chenyuming2004]

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
TextBox1.Clear()
e.Handled = True
End Sub

e.Handled = True
加上这一句后，效果就非常好了。

[liuhelh]

chenyuming2004(一切从2004开始) 中的textbox1.clear 其实呢并没有起作用，真正起作用的是
e.handled=true 如果不加任何限制的使用该语句那么textbox 中不能输入任何字符。该语句常常用来对输入的字符进行有效性检验。
如确保用户输入的是数字。
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Char.IsDigit(e.KeyChar) Then
e.Handled = True
Wrong = True

Else
e.Handled = False
End If
End Sub
不太清楚你的意图，大概你是想如果textbox1一得到焦点就让textbox1 清空？
你可以这样写;
Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.Enter
TextBox1.Clear()
End Sub
如仍有不明白之处请发邮件到[e-mail] 或发消息

[liuhelh]

邮箱写错了 是 [e-mail] 呵呵

[liuhelh]

另
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Char.IsDigit(e.KeyChar) Then
e.Handled = True
Wrong = True 请将Wrong=True 去掉，这是我程序中的一段代码，我忘了删这句了

Else
e.Handled = False
End If
End Sub

[samllfish555]

清空
textbox1.text=""
用这句代替你那句就可以了！
最简单的方法！