<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" scrollbars="0" papervisible="false">
<sheet name="sheet1" visible="false">
<text name="text1" origin="146,66" bounds="8,24,144,76" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="
当图形移动的时候执行。
"/>
<text name="text2" origin="10,18" bounds="8,8,54,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="OnMove"/>
<text name="text3" origin="232,136" bounds="8,92,198,168" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" text="
Private Function OnMove(Sender)
End Function

参数Sender是图形自身。
"/>
<text name="text4" origin="28,84" bounds="8,76,51,92" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="语法："/>
<text name="text5" origin="70,176" bounds="8,168,161,184" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="Visual Graph脚本示例："/>
<text name="text6" origin="130,258" bounds="8,184,252,296" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" text="
下面例子中，限制图形只能在原点右侧移动。

published function OnMove(Sender)
  if Sender.Left &lt; 0 then
    Sender.Left = 0
  end if
end function
"/>
</sheet>
</vg>
