📄 控制.tbl
字号:
192,16,2
192,32,2
</points>
</line>
<line name="Line6" origin="24,200" linecolor="$80000015">
<points>
210,16,6
210,32,2
192,32,2
</points>
</line>
<line name="Line7" origin="25,201" linecolor="$80000014">
<points>
209,17,6
193,17,2
193,31,2
</points>
</line>
<line name="Line8" origin="25,201" linecolor="$80000010">
<points>
209,17,6
209,31,2
193,31,2
</points>
</line>
<shape name="Rect2" bounds="194,18,208,30" origin="200,25" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="24,203" backcolor="$0" pattern="1">
<points>
203,24,6
200,27,2
200,21,3
</points>
</line>
</elliment>
<programe>
Private Function OnResize(Sender)
if Width < 36 then Width = 36end ifElliment1.Left=Left;Elliment1.Top=TopElliment3.Left=Elliment1.Left+Elliment1.WidthElliment3.Top=TopElliment2.Left=Left+Width-Elliment2.WidthElliment2.Top=TopLine1.SetBounds( Elliment3.Left, Elliment3.Top, Width - Elliment1.Width - Elliment2.Width, Line1.Height )
End Function
</programe>
</sheet>
<sheet name="VScrollBar" bounds="16,0,32,132">
<shape name="Line1" bounds="16,18,32,112" origin="64,28" linetype="0" backcolor="$80000000" frontcolor="$80000014" pattern="8"/>
<elliment name="Elliment3" bounds="16,18,32,36" origin="24,27">
<line name="Line5" origin="24,26" linecolor="$80000016">
<points>
16,36,6
16,18,2
32,18,2
</points>
</line>
<line name="Line6" origin="24,26" linecolor="$80000015">
<points>
16,36,6
32,36,2
32,18,2
</points>
</line>
<line name="Line7" origin="25,27" linecolor="$80000014">
<points>
17,35,6
17,19,2
31,19,2
</points>
</line>
<line name="Line8" origin="25,27" linecolor="$80000010">
<points>
17,35,6
31,35,2
31,19,2
</points>
</line>
<shape name="Rect2" bounds="18,20,30,34" origin="24,27" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
</elliment>
<elliment name="Elliment1" bounds="16,114,32,132" origin="24,123">
<line name="Line5" origin="24,122" linecolor="$80000016">
<points>
16,132,6
16,114,2
32,114,2
</points>
</line>
<line name="Line6" origin="24,122" linecolor="$80000015">
<points>
16,132,6
32,132,2
32,114,2
</points>
</line>
<line name="Line7" origin="25,123" linecolor="$80000014">
<points>
17,131,6
17,115,2
31,115,2
</points>
</line>
<line name="Line8" origin="25,123" linecolor="$80000010">
<points>
17,131,6
31,131,2
31,115,2
</points>
</line>
<shape name="Rect2" bounds="18,116,30,130" origin="24,123" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="24,125" backcolor="$0" pattern="1">
<points>
24,125,6
27,122,2
21,122,3
</points>
</line>
</elliment>
<elliment name="Elliment2" bounds="16,0,32,18" origin="24,9">
<line name="Line5" origin="24,8" linecolor="$80000016">
<points>
16,18,6
16,0,2
32,0,2
</points>
</line>
<line name="Line6" origin="24,8" linecolor="$80000015">
<points>
16,18,6
32,18,2
32,0,2
</points>
</line>
<line name="Line7" origin="25,9" linecolor="$80000014">
<points>
17,17,6
17,1,2
31,1,2
</points>
</line>
<line name="Line8" origin="25,9" linecolor="$80000010">
<points>
17,17,6
31,17,2
31,1,2
</points>
</line>
<shape name="Rect2" bounds="18,2,30,16" origin="24,9" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="24,8" backcolor="$0" pattern="1">
<points>
24,8,6
27,11,2
21,11,3
</points>
</line>
</elliment>
<programe>
Private Function OnResize(Sender)
if Height < 36 then Height = 36end ifElliment2.Left=LeftElliment2.Top=TopElliment1.Left=LeftElliment1.Top=Top+Height-Elliment1.HeightElliment3.Left=LeftLine1.SetBounds( Left, Top+Elliment2.Height, Line1.Width, Height - Elliment1.Height - Elliment2.Height )
End Function
</programe>
</sheet>
<sheet name="ListBox" bounds="16,16,144,140">
<elliment name="Edit1" type="Edit" bounds="16,16,128,140" origin="77,25.5" label="Text1">
<line name="Line1" origin="143,33">
<points>
16,140,6
16,16,2
128,16,2
</points>
</line>
<line name="Line2" origin="144,32" linecolor="$FFFFFF">
<points>
16,140,6
128,140,2
128,16,2
</points>
</line>
<shape name="Rect1" bounds="17,17,127,139" origin="144,36" linecolor="$8000000F" pattern="1"/>
<text name="Text1" bounds="17,17,127,139" origin="60,24" border="$0" fontname="宋体" fontsize="12" textalign="0"/>
<programe>
Private Function OnResize(Sender)
Line1.SetBounds( Left, Top, Width, Height )Line2.SetBounds( Left, Top, Width, Height )Rect1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )Text1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
End Function
</programe>
</elliment>
<elliment name="VScrollBar1" type="VScrollBar" bounds="128,16,144,140" origin="136,82">
<shape name="Line1" bounds="128,34,144,122" origin="176,44" linetype="0" backcolor="$80000000" frontcolor="$80000014" pattern="8"/>
<elliment name="Elliment3" bounds="128,34,144,52" origin="136,43">
<line name="Line5" origin="136,42" linecolor="$80000016">
<points>
128,52,6
128,34,2
144,34,2
</points>
</line>
<line name="Line6" origin="136,42" linecolor="$80000015">
<points>
128,52,6
144,52,2
144,34,2
</points>
</line>
<line name="Line7" origin="137,43" linecolor="$80000014">
<points>
129,51,6
129,35,2
143,35,2
</points>
</line>
<line name="Line8" origin="137,43" linecolor="$80000010">
<points>
129,51,6
143,51,2
143,35,2
</points>
</line>
<shape name="Rect2" bounds="130,36,142,50" origin="136,43" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
</elliment>
<elliment name="Elliment1" bounds="128,122,144,140" origin="136,139">
<line name="Line5" origin="136,130" linecolor="$80000016">
<points>
128,140,6
128,122,2
144,122,2
</points>
</line>
<line name="Line6" origin="136,130" linecolor="$80000015">
<points>
128,140,6
144,140,2
144,122,2
</points>
</line>
<line name="Line7" origin="137,131" linecolor="$80000014">
<points>
129,139,6
129,123,2
143,123,2
</points>
</line>
<line name="Line8" origin="137,131" linecolor="$80000010">
<points>
129,139,6
143,139,2
143,123,2
</points>
</line>
<shape name="Rect2" bounds="130,124,142,138" origin="136,131" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="136,133" backcolor="$0" pattern="1">
<points>
136,133,6
139,130,2
133,130,3
</points>
</line>
</elliment>
<elliment name="Elliment2" bounds="128,16,144,34" origin="136,25">
<line name="Line5" origin="136,24" linecolor="$80000016">
<points>
128,34,6
128,16,2
144,16,2
</points>
</line>
<line name="Line6" origin="136,24" linecolor="$80000015">
<points>
128,34,6
144,34,2
144,16,2
</points>
</line>
<line name="Line7" origin="137,25" linecolor="$80000014">
<points>
129,33,6
129,17,2
143,17,2
</points>
</line>
<line name="Line8" origin="137,25" linecolor="$80000010">
<points>
129,33,6
143,33,2
143,17,2
</points>
</line>
<shape name="Rect2" bounds="130,18,142,32" origin="136,25" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="136,24" backcolor="$0" pattern="1">
<points>
136,24,6
139,27,2
133,27,3
</points>
</line>
</elliment>
<programe>
Private Function OnResize(Sender)
if Height < 36 then Height = 36end ifElliment2.Left=LeftElliment2.Top=TopElliment1.Left=LeftElliment1.Top=Top+Height-Elliment1.HeightElliment3.Left=LeftElliment3.Top=Top+Elliment2.HeightLine1.SetBounds( Left, Top+Elliment2.Height, Line1.Width, Height - Elliment1.Height - Elliment2.Height )
End Function
</programe>
</elliment>
<programe>
Private Function OnResize(Sender)
if Height < 36 then Height = 36end ifEdit1.SetBounds( Left, Top, Width - VScrollBar1.Width, Height )VScrollBar1.SetBounds( Left + Width - VScrollBar1.Width, Top, VScrollBar1.Width, Height )
End Function
</programe>
</sheet>
</vg>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -