listbox.tbl

来自「一个不错的做图软件」· TBL 代码 · 共 33 行

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,201,161" borderstyle="1" scrollbars="0" backcolor="$80000005" paperbounds="0,0,210,296" papervisible="false">
<sheet name="sheet1">
<KeyManager name="KeyManager1" lib="controls.tbl" origin="92,109" bounds="80,97,104,121" visible="false" protect="12" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<ListBox name="ListBox1" lib="controls.tbl" origin="112,10" bounds="0,0,200,160" Enable="true" Focused="false" itemheight="16" ItemIndex="-1" Items="">
<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
private function OnShow(Sender)
Focused = true
ListBox1.Focused = true
end function
-->
</programe>
</sheet>
</vg>