组合框1加入项目("绿钻")
组合框1加入项目("蓝钻")
组合框1加入项目("红钻")
或是直接点组合框,右键。添加项目还是用数组和循环语句吧,这样,再复杂的工程语句也会简单许多
版本 2
程序集 窗口程序集1
程序集变量 数组, 文本型, , "0"
子程序 __启动窗口_创建完毕
局部变量 i, 整数型
数组 = { “风”, “火”, “雷”, “电” }
计次循环首 (取数组成员数 (数组), i)
组合框1加入项目 (数组 [i], )
组合框2加入项目 (数组 [i], )
计次循环尾 ()
子程序 _组合框1_列表项被选择
局部变量 i, 整数型
组合框2清空 ()
计次循环首 (取数组成员数 (数组), i)
如果真 (i = 组合框1现行选中项 + 1)
到循环尾 ()
如果真结束
组合框2加入项目 (数组 [i], )
计次循环尾 ()版本 2 程序集 窗口程序集1 子程序 __启动窗口_创建完毕 组合框1加入项目 (“音乐”, ) 组合框1加入项目 (“视频”, ) 组合框1加入项目 (“邮箱”, ) 子程序 _组合框1_列表项被选择 如果 (组合框1现行选中项 = 0) 组合框2清空 () 组合框2加入项目 (“QQ163”, ) 组合框2加入项目 (“QQ音乐”, ) 组合框2加入项目 (“百度音乐”, ) ' 组合框2现行选中项 = 0'加不加看你喜好,就是组合框2选中第一个的意思 否则 如果结束 如果 (组合框1现行选中项 = 1) 组合框2清空 () 组合框2加入项目 (“土豆”, ) 组合框2加入项目 (“优酷”, ) 组合框2加入项目 (“XX视频等等”, ) ' 组合框2现行选中项 = 0 否则 如果结束 如果 (组合框1现行选中项 = 2) 组合框2清空 () 组合框2加入项目 (“163”, ) 组合框2加入项目 (“QQ邮箱”, ) ' 组合框2现行选中项 = 0 否则 如果结束 代码跟楼上差不多,但是如果你的组合框的文本不是固定加入,那就要自己判断现行选中项的文本了,有时好还要计次慢慢一个一个判断版本 2
子程序 _按钮1_被单击
判断开始 (编辑框1内容 ≠ 到文本 (到整数 (组合框1内容) + 1))
编辑框1内容 = “”
默认
判断结束
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)