2010-03-10 75 views

回答

0
Public Class ZTextBox 
Inherits System.Windows.Forms.TextBox 
Public Event ZTextChanged(ByVal sender As Object, ByVal e As System.EventArgs) 

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 
    MyBase.OnPaint(e) 

    'Add your custom paint code here 
End Sub 

Private Sub ZTextBox_TextChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.TextChanged 
    If Me.Text.Length > 3 Then 
     RaiseEvent ZTextChanged(sender, e) 
    End If 
End Sub End Class 

,你可以用你的表格下面

Private Sub ZTextBox1_ZTextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ZTextBox1.ZTextChanged 
    MsgBox(1) 
End Sub 
0

我想你会需要一个自定义控件,它继承了自定义事件的文本框控件,在内部事件中执行检查,并在看到合适的时候触发自定义事件。

相关问题