主题：[求助]求窗口空间排版代码

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