Dim cmbName As new windows.Forms.combobox
With cmbName
.name="用户名称"
.Location = New System.Drawing.Point(404,173)
.Size = New System.Drawing.Size(161,20)
End With
frm.controls.add(cmbName)
name=frm.controls("用户名称")
AddHandler cmbName.Leave,AddressOf 用户名称_Leave
全局代码写:
Public name As windows.Forms.combobox
Public Sub 用户名称_Leave(sender As System.Object, e As System.EventArgs)
end sub
这样子写是可以正常生成窗口和控件,并且执行name 的事件
但是当我把这些代码复制到新的项目中以后
name=frm.controls("用户名称")
就会出错,未设置当对象实例,大概意思就是不能调用全局的
Public name As windows.Forms.combobox