超级列表框选择问题

lsqiang

我有有一个超级列表框，因数据较多所以建了一个cha询按钮，代码如下，现在有一个问题就是,如果查找到的表项超过显示范围了不会自动上划。比如：我的窗口只能显示10行数据，但是我查到的表项在99行，我希望自动下划到99行位置。

  

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
怪物ID	文本型
怪物名称	文本型
表项数	整数型
i	整数型
找到项目	逻辑型
查找位置	整数型

如果真 (编辑框2.内容 ＝ “指定怪物ID” 且 编辑框3.内容 ＝ “指定怪物名”)
信息框 (“请输入怪物ID或者怪物名称后重试！” ＋ #换行符 ＋ “如果两者都输入优先怪物ID”, #错误图标, , )
返回 ()
怪物ID ＝ 编辑框2.内容
怪物名称 ＝ 编辑框3.内容
找到项目 ＝ 假
超级列表框1.获取焦点 ()
如果 (怪物ID ＝ “指定怪物ID”)
查找位置 ＝ 超级列表框1.查找表项 (怪物名称, 0, 真, 2)
调试输出 (“怪物名称”, 查找位置)
如果真 (查找位置 ≠ -1)
超级列表框1.选择表项 (查找位置)
找到项目 ＝ 真

查找位置 ＝ 超级列表框1.查找表项 (怪物ID, 0, 真, 0)
调试输出 (“怪物ID”, 查找位置)
如果真 (查找位置 ≠ -1)
超级列表框1.选择表项 (查找位置)
找到项目 ＝ 真

如果真 (找到项目 ＝ 假)
信息框 (“未找到怪物信息，请检查输入是否正确！”, #错误图标, , )
返回 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 怪物ID, 文本型<br /> .局部变量 怪物名称, 文本型<br /> .局部变量 表项数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 找到项目, 逻辑型<br /> .局部变量 查找位置, 整数型<br /> <br /> .如果真 (编辑框2.内容 ＝ “指定怪物ID” 且 编辑框3.内容 ＝ “指定怪物名”)<br />     信息框 (“请输入怪物ID或者怪物名称后重试！” ＋ #换行符 ＋ “如果两者都输入优先怪物ID”, #错误图标, , )<br />     返回 ()<br /> .如果真结束<br /> 怪物ID ＝ 编辑框2.内容<br /> 怪物名称 ＝ 编辑框3.内容<br /> 找到项目 ＝ 假<br /> 超级列表框1.获取焦点 ()<br /> <br /> .如果 (怪物ID ＝ “指定怪物ID”)<br />     查找位置 ＝ 超级列表框1.查找表项 (怪物名称, 0, 真, 2)<br />     调试输出 (“怪物名称”, 查找位置)<br />     .如果真 (查找位置 ≠ -1)<br />         超级列表框1.选择表项 (查找位置)<br />         找到项目 ＝ 真<br />     .如果真结束<br /> <br /> .否则<br />     查找位置 ＝ 超级列表框1.查找表项 (怪物ID, 0, 真, 0)<br />     调试输出 (“怪物ID”, 查找位置)<br />     .如果真 (查找位置 ≠ -1)<br />         超级列表框1.选择表项 (查找位置)<br />         找到项目 ＝ 真<br />     .如果真结束<br /> <br /> .如果结束<br /> .如果真 (找到项目 ＝ 假)<br />     信息框 (“未找到怪物信息，请检查输入是否正确！”, #错误图标, , )<br />     返回 ()

BruceJoysky1987

保证显示貌似会直接跳转！

辉仔

给最佳吧