注册 登录
编程论坛 VB.NET论坛

定义了一个临时的子窗体 想在里面添加一个BUTTON控件

ywjfeidao 发布于 2010-07-23 00:48, 632 次点击
我自己定义了一个临时的子窗体 想在里面添加一个BUTTON控件 但做出来的实际效果是控件在外面的那个子窗体上 求那位高手帮忙解决下 谢谢
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim zz As New Form
        zz = New Form
        Call aa()
        zz.Show()
    End Sub
    Public Sub aa()
        Dim b9 As System.Windows.Forms.Button
        b9 = New System.Windows.Forms.Button
        b9.Text = "按钮"
        Me.Controls.Add(b9)
        AddHandler b9.Click, AddressOf Me.ak
    End Sub

    Private Sub ak(ByVal sender As System.Object, ByVal e As System.EventArgs)
        me.Text = "第一个button按钮调用过程"
    End Sub
1 回复
#2
不说也罢2010-07-23 12:45
程序代码:


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim zz As New Form
        Call aa(zz)
        zz.Show()
    End Sub
    Public Sub aa(ByVal TheForm As Form)
        Dim b9 As New System.Windows.Forms.Button
        b9.Text = "按钮"
        TheForm.Controls.Add(b9)
        AddHandler b9.Click, AddressOf Me.ak
    End Sub

    Private Sub ak(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CType(sender, Button).Parent.Text = "第一个button按钮调用过程"
    End Sub


1