listbox.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,201,165" borderstyle="1" scrollbars="0" backcolor="$80000005">
<page name="page" bounds="0,0,210,296" visible="false"/>
<sheet name="sheet1">
<KeyManager name="KeyManager1" lib="controls.tbl" bounds="80,96,104,120" origin="92,108" visible="false" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<ListBox name="ListBox1" lib="controls.tbl" bounds="0,0,200,164" origin="112.5,10" Enable="true" Focused="true" itemheight="16" ItemIndex="-1" Items="&apos;&apos;">
<programe>
published function OnClick(Sender)
Close( Sender.ItemIndex + 1 )
end function
</programe>
</ListBox>
<programe>
private function OnKeyDown(Sender,Key)
if Key = 27 then
  Close( 0 )
else if Key = 13 then
  Close( ListBox1.ItemIndex + 1 )
else
  KeyManager1.OnKeyDown( KeyManager1, Key )
end if
end function
</programe>
</sheet>
</vg>