16,717
社区成员
发帖
与我相关
我的任务
分享
'实例化
Dim UserContrl_1 As New UserContrl
'添加
Controls.Add(UserContrl_1)
'设置属性
With UserContrl_1
.Location = New Point(X, Y)
.Name="1"
End With
'添加事件
AddHandler UserContrl_1.DoubleClick, AddressOf UserContrl_1_DoubleClick
'实例化
Dim UserContrl_1 As New UserContrl
'添加
Controls.Add(UserContrl_1)
'设置属性
With ImageSensor(Index)
.Location = New Point(X, Y)
.Name="1"
End With
'添加事件
AddHandler UserContrl_1.DoubleClick, AddressOf UserContrl_1_DoubleClick