Dim flag1 As Boolean = False Dim flag2 As Boolean = False Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown If flag1 = True Then e.Handled = True Else flag1 = True End If End Sub Private Sub RichTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress If flag2 = True Then e.Handled = True Else flag2 = True End If End Sub Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp flag2 = False flag1 = False End Sub测试可用,不知合不合要求。这个应该看得懂吧,我就不转成C#的了
不过你的表述有问题,标题是不要事件累积,但是内容却要可以连压,按着不放,那不就是要累积事件的效果吗?
Dim flag1 As Boolean = False
Dim flag2 As Boolean = False
Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown If flag1 = True Then
e.Handled = True
Else
flag1 = True
End If
End Sub Private Sub RichTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress If flag2 = True Then
e.Handled = True
Else
flag2 = True
End If
End Sub Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp
flag2 = False
flag1 = False
End Sub测试可用,不知合不合要求。这个应该看得懂吧,我就不转成C#的了