<?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,192,76" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="
当文字单元得到输入焦点时执行。
"/>
<text name="text2" origin="10,18" bounds="8,8,61,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="OnEnter"/>
<text name="text3" origin="232,136" bounds="8,92,204,168" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" text="
private function OnEnter(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="178,306" bounds="8,184,360,332" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" text="
下面的例子，当文字单元得到焦点设为绿色，失去焦点变成红色。

published function OnEnter( Sender )
　Sender.Pattern=1
　Sender.BackColor = $FF00
end function

published function OnExit( Sender )
　Sender.Pattern=1
　Sender.BackColor=$FF
end function">
<programe>
<!--
published function OnEnter(Sender)
Sender.Pattern = 1
Sender.BackColor = $FF00
end function
-->
</programe>
</text>
<text name="text6" origin="70,176" bounds="8,168,161,184" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="Visual Graph脚本示例："/>
<text name="text7" origin="64,348" bounds="8,336,120,360" backcolor="$FF" pattern="1" border="15" fontname="宋体" fontsize="12" fontstyle="1" fontcolor="$FFFF" readonly="false" text="Test1">
<programe>
<!--
published function OnEnter(Sender)
Sender.Pattern = 1
Sender.BackColor = $FF00
end function
published function OnExit(Sender)
Sender.Pattern = 1
Sender.BackColor = $FF
end function
-->
</programe>
</text>
<text name="text8" origin="64,372" bounds="8,360,120,384" backcolor="$FF" pattern="1" border="15" fontname="宋体" fontsize="12" fontstyle="1" fontcolor="$FFFF" readonly="false" text="Test2">
<programe>
<!--
published function OnEnter(Sender)
Sender.Pattern = 1
Sender.BackColor = $FF00
end function
published function OnExit(Sender)
Sender.Pattern = 1
Sender.BackColor = $FF
end function
-->
</programe>
</text>
</sheet>
</vg>
