问:超级列表框增加一个表项,就在D盘建一个文件夹,修改表项标题,文件夹也自动修改,文件夹的名字始终跟表项标题一样。这个代码怎么写。
答:
界面 和 效果
代码:
.版本 2
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
超级列表框1.插入表项 (超级列表框1.取表项数 () + 1, 编辑框1.内容, , , , )
创建目录 (“D:/” + 编辑框1.内容)
.子程序 _超级列表框1_右键单击表项
弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.子程序 _添加_被选择
编辑框1.获取焦点 ()
.子程序 _超级列表框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 临时变量, 文本型
输入框 (“输入要修改的文件名称:”, , , 临时变量, #输入文本)
文件更名 (“D:/” + 超级列表框1.取标题 (超级列表框1.现行选中项, 0), “D:/” + 临时变量)
超级列表框1.置标题 (超级列表框1.现行选中项, 0, 临时变量)
.子程序 __启动窗口_创建完毕
打开指定网址 (“www.chzuhu.com”)
注意事项
注意使用了超级列表框和输入框一些系统核心支持库,要全选支持库
可以在司考添加开始启动就读取目录显示在列表框
新闻热点
疑难解答