Dim e =args(0)
vars("px") = e.X
vars("py") = e.Y
forms("atbset").Controls("pnl_cz_" & vars("childcknamectl") & "_" & vars("childcknamectl")).BaseControl.Refresh
下面是单选的
If e.Button = MouseButtons.Left Then
If e.sender.Name.StartsWith("test") Then
Vars("kjsize")=e.sender.Name
vars("x") =e.x
vars("y") =e.y
Functions.Execute("za_nb_drawlabel",e)
End If
If e.sender.name.StartsWith("draw-label-") Then
vars("mdlable")=e.sender.name
vars("lx") = e.x
vars("ly") = e.Y
End If
End If