关于VB.net动态控件问题
动态创建一个窗体怎样在这个窗体中创建动态控件(比如按钮)又怎样写这些控件的事件窗体是动态添加的,2楼的只有动态控件的写法啊。我的意思是本来工程里面有一个可见的窗体F1,然...
动态创建一个窗体怎样在这个窗体中创建动态控件(比如按钮)又怎样写这些控件的事件
窗体是动态添加的,2楼的只有动态控件的写法啊。我的意思是本来工程里面有一个可见的窗体F1,然后再动态创建一个窗体F2…再在这个动态窗体上创建动态控件,用addcontrols前面应该用F2还是F1? 展开
窗体是动态添加的,2楼的只有动态控件的写法啊。我的意思是本来工程里面有一个可见的窗体F1,然后再动态创建一个窗体F2…再在这个动态窗体上创建动态控件,用addcontrols前面应该用F2还是F1? 展开
展开全部
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bt As New Button
Me.Controls.Add(bt)
AddHandler bt.Click, AddressOf bt_Click
End Sub
手动添加如下 也可以是其他事件 :
Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("asasdsadad")
End Sub
'-----------------------------
原理是一样的,Button1为动态创建F2
Dim F2 As Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
F2 = New Form
F2.Owner = Me
F2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim bt As New Button
F2.Controls.Add(bt)
AddHandler bt.Click, AddressOf bt_Click
End Sub
Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("asasdsadad")
End Sub
Dim bt As New Button
Me.Controls.Add(bt)
AddHandler bt.Click, AddressOf bt_Click
End Sub
手动添加如下 也可以是其他事件 :
Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("asasdsadad")
End Sub
'-----------------------------
原理是一样的,Button1为动态创建F2
Dim F2 As Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
F2 = New Form
F2.Owner = Me
F2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim bt As New Button
F2.Controls.Add(bt)
AddHandler bt.Click, AddressOf bt_Click
End Sub
Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("asasdsadad")
End Sub
微测检测5.10
2023-05-10 广告
2023-05-10 广告
您好!建议咨 深圳市微测检测有限公司,已建立起十余个专业实验室,企业通过微测检测就可以获得一站式的测试与认 证解决方案;(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量),认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询