主题：控件事件代码编辑

 这个事件的定义不同。要这样。

Public Sub TextValidate(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
    msgbox(1)
End Sub

-----------

Dim ct As System.Windows.Forms.Textbox = e.Form.Controls("TextBox1").basecontrol
AddHandler ct.Validating, AddressOf textvalidate

全代码如下，我不是用control.add添加控件的，而是创建，用的是creat

 

If e.Form.ExistControl(e.Form.Controls("Tab").SelectedIndex & "_" & e.Sender.name & "_1") Then
    MessageBox.Show("控件存在")
Else
    Dim ctl(4) As String '定义数组用于生成控件操作
    Dim ssis As Integer = e.Form.Controls("xd1").text '定义相对位置变量
    '    Dim ssco As Color  = e.Form.Controls("4").MouseOverBackColor '定义生成控件颜色
    Dim ssco As Color  = e.Sender.MouseOverBackColor '定义生成控件颜色
    '    Dim fnt As New Font(e.Sender.Font.Name,e.Sender.Font.Size,e.Sender.Font.Style)
    Dim fnt As New Font("Segoe UI Symbol",9)
   
    '动作代码控件生成
    Dim txt1 As WinForm.TextBox
    For x3 As Integer = 1 To 3
        '动作代码控件生成
        'Dim txt1 As WinForm.TextBox
        txt1 = e.Form.CreateControl(e.Form.Controls("Tab").SelectedIndex & "_" & e.Sender.Name & "_" & x3, ControlTypeEnum.TextBox)
        e.Form.Controls("Tab").SelectedPage.AddControl(txt1)
        With e.Form.Controls(txt1.Name)
            .Left = 6 + (x3 - 1) * 60
            .Top = e.Sender.Top - 149
            .Height = 21
            .Width = 40
            .BackColor = ssco
            .Font = fnt
            If x3 = 1 Then
                .text = e.Sender.Text '动作代码
                .Enabled = False
            Else
                .text = 0
                .Enabled = True
            End If
        End With
    Next
    AddHandler txt1.KeyUp, AddressOf TextValidate
End If

这里我换成keyup也是一样，系统提示keyup不是txtbox事件

 不同的事件，有不同的定义方式。看11楼。

http://msdn.microsoft.com/zh-cn/library/system.windows.forms.textbox_events%28v=vs.80%29.aspx

谢谢，我再试下