<?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,264,76" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="
文字单元和页面均有此事件，键入字符时执行。
"/>
<text name="text2" origin="10,18" bounds="8,8,82,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="OnKeyPress"/>
<text name="text3" origin="322,136" bounds="8,92,666,348" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" text="
private function OnKeyPress(Sender,Char)
end function

第一个参数Sender代表文字单元或页面本身。

第二个参数Char是键入字符的Asc码。

当文字单元含有焦点（Focused属性为True），而且Enabled=True时，允许在文字单元内键入字符。键入字符前执行该事件。

注意：这里的Char值是可以修改的。比如下面的Visual Graph脚本程序把键入的小写字母变成大写：

private function OnKeyPress( Sender, Char )

if Char &gt;= asc( &apos;a&apos; ) and Char &lt;= asc(&apos;z&apos;) then

Char = Char - asc( &apos;a&apos; ) + asc( &apos;A&apos; ) 

end if

end function"/>
<text name="text4" origin="28,84" bounds="8,76,51,92" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="语法："/>
</sheet>
</vg>
