日期:2014-05-20  浏览次数:21092 次

编程问题
Dim btn1, btn2 As New Button
  Me.Controls.Add(btn1)

  btn1.Top = 680
  btn1.Left = 320
  btn1.Text = "开始读心"
  Me.Controls.Add(btn2)
  btn2.Top = 680
  btn2.Left = 500
  btn2.Text = "重载"
  AddHandler btn1.Click, AddressOf btn1click
  AddHandler btn2.Click, AddressOf btn2click
  End Sub
  Private Sub btn1click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  Dim frm As New PictureBox
  frm.Location = New Point(370, 600)


  frm.Show()
  End Sub
如何让btn1能够行使命令?
怎样编写才对?

------解决方案--------------------
注册事件~