跳到主要内容

Form.ComboBox 下拉框

介绍

QUI界面的下拉框控件

属性

基本属性数据类型读写类型说明
Name标识符不可读写名称, 仅开发时可修改, 任意有效的标识符, 表示代码中使用该控件的名称
Visible布尔型可读可写显示, 返回或设置该控件是否可以被看到
Enabled布尔型可读可写有效, 返回或设置该控件是否响应用户生成事件
List字符串可读可写选项列表, 返回或设置控件的列表内容, 每个内容以 |
隔开
位置属性数据类型读写类型说明
Left整数型可读可写左边, 返回或设置该控件的左边缘与容器左边缘之间的距离
Top整数型可读可写上边, 返回或设置该控件的顶边缘与容器顶边缘之间的距离
Width整数型可读可写宽度, 返回或设置该控件的宽度
Height整数型可读可写高度, 返回或设置该控件的高度
ZOrder整数型可读可写显示顺序, 返回或设置该控件的显示顺序
外观属性数据类型读写类型说明
Appearance整数型可读可写外形, 返回或设置该控件的外观显示造型, 0:直角, 1:圆角
ColorScheme整数型可读可写配色方案, 返回或设置该控件的颜色配置方案, 0:红, 1:橙, 2:黄, 3:绿, 4:青, 5:蓝, 6:紫, 7:自定义
TextColor字符串可读可写文字颜色, 返回或设置该控件的文本和图形的前景色, 格式为十六进制的"BBGGRR"
BackColor字符串可读可写背景颜色, 返回或设置该控件的文本和图形的背景色, 格式为十六进制的"BBGGRR"
NormalColor字符串可读可写正常颜色, 返回或设置该控件在正常情况下所显示的颜色, 格式为十六进制的"BBGGRR"
OverColor字符串可读可写经过颜色, 返回或设置该控件在鼠标滑过或停留时所显示的颜色, 格式为十六进制的"BBGGRR"
FocusColor字符串可读可写焦点颜色, 返回或设置该控件在获得焦点时所显示的颜色, 格式为十六进制的"BBGGRR"
IconColor字符串可读可写图标颜色, 返回或设置该控件的图片标识显示颜色, 格式为十六进制的"BBGGRR"
其他属性数据类型读写类型说明
Font字体对象不可读写字体, 仅开发时可修改, 用于显示字体的设置
ListIndex整数型可读可写初始选项, 返回或设置该控件的选项列表中索引值
隐藏属性数据类型读写类型说明
Hwnd整数型只读句柄, 返回控件的句柄

方法

事件

事件名称参数返回说明
SelectChange改变选择事件, 当用户改变控件的列表索引值时触发本事件

示例

//首先 在界面上放1个“下拉框控件”和1个“输入框控件”。   
//其次 复制以下脚本进行调试:

//首先加载下拉框内容
Event Form1.Load
Form1.ComboBox1.List = "new1|new2|new3|new4|new5"
End Event
//输入框文本内容显示下拉框选中的内容
Event Form1.ComboBox1.SelectChange
Dim 索引
索引 = Split(Form1.ComboBox1.List,"|")
Form1.InputBox1.Text = 索引(Form1.ComboBox1.ListIndex)
End Event
//高级例子: 多级联动
//首先 在界面上放2个“下拉框控件”。
//其次 复制以下脚本进行调试:

Event Form1.Load
//初始化下拉框的值, 对第一个下拉框赋值各个省份

Dim 省份数组(33)
省份数组(0) = "北京市"
省份数组(1) = "天津市"
省份数组(2) = "上海市"
省份数组(3) = "重庆市"
省份数组(4) = "河北省"
省份数组(5) = "河南省"
省份数组(6) = "云南省"
省份数组(7) = "辽宁省"
省份数组(8) = "黑龙江省"
省份数组(9) = "湖南省"
省份数组(10) = "安徽省"
省份数组(11) = "山东省"
省份数组(12) = "新疆维吾尔自治区"
省份数组(13) = "江苏省"
省份数组(14) = "浙江省"
省份数组(15) = "江西省"
省份数组(16) = "湖北省"
省份数组(17) = "广西壮族"
省份数组(18) = "甘肃省"
省份数组(19) = "山西省"
省份数组(20) = "内蒙古自治区"
省份数组(21) = "陕西省"
省份数组(22) = "吉林省"
省份数组(23) = "福建省"
省份数组(24) = "贵州省"
省份数组(25) = "广东省"
省份数组(26) = "青海省"
省份数组(27) = "西藏"
省份数组(28) = "四川省"
省份数组(29) = "宁夏回族"
省份数组(30) = "海南省"
省份数组(31) = "台湾省"
省份数组(32) = "香港特别行政区"
省份数组(33) = "澳门特别行政区"
Form1.ComboBox1.List = Join(省份数组, "|")
Form1.ComboBox1.ListIndex = -1
End Event
Event Form1.ComboBox1.SelectChange
//第一个下拉框触发改变事件, 执行第二个下拉框的内容赋值

Dim 城市数组(33), 当前城市列表
城市数组(0) = Array("东城区","西城区","崇文区","宣武区","朝阳区","丰台区","石景山区","海淀区","门头沟区","房山区","通州区","顺义区","昌平区","大兴 区","怀柔区","平谷区","密云县","延庆县")
城市数组(1) = Array("和平区","河东区","河西区","南开区","河北区","红桥区","塘沽区","汉沽区","大港区","东丽区","西青区","津南区","北辰区","武清区","宝坻区","宁河县","静海县","蓟县")
城市数组(2) = Array("黄浦区","卢湾区","徐汇区","长宁区","静安区","普陀区","闸北区","虹口区","杨浦区","闵行区","宝山区","嘉定区","浦东新区","金山区","松江区","青浦区","南汇区","奉贤区","崇明县")
城市数组(3) = Array("万州区","涪陵区","渝中区","大渡口区","江北区","沙坪坝区","九龙坡区","南岸区","北碚区","万盛区","双桥区","渝北区","巴南区","黔江区","长寿区","江津区","合川区","永川区","南川区","綦江县","潼南县","铜梁县","大足县","荣昌县","璧山县","梁平县","城口县","丰都县","垫江县","武隆县","忠县","开县","云阳县","奉节县","巫山县","巫溪县","石柱土家族自治县","秀山土家族苗族自治县","酉阳土家族苗族自治县","彭水苗族土家族自治县")
城市数组(4) = Array("石家庄市","唐山市","秦皇岛市","邯郸市","邢台市","保定市","张家口市","承德市","沧州市","廊坊市","衡水市")
城市数组(5) = Array("郑州市","开封市","洛阳市","平顶山市","安阳市","鹤壁市","新乡市","焦作市","济源市","濮阳市","许昌市","漯河市","三门峡市","南阳市","商丘市","信阳市","周口市","驻马店市")
城市数组(6) = Array("昆明市","曲靖市","玉溪市","保山市","昭通市","丽江市","思茅市","临沧市","楚雄彝族自治州","红河哈尼族彝族自治州","文山壮族苗族自治州","西双版纳傣族自治州","大理白族自治州","德宏傣族景颇族自治州","怒江傈僳族自治州","迪庆藏族自治州")
城市数组(7) = Array("沈阳市","大连市","鞍山市","抚顺市","本溪市","丹东市","锦州市","营口市","阜新市","辽阳市","盘锦市","铁岭市","朝阳市","葫芦岛市")
城市数组(8) = Array("哈尔滨市","齐齐哈尔市","鸡西市","鹤岗市","双鸭山市","大庆市","伊春市","佳木斯市","七台河市","牡丹江市","黑河市","绥化市","大兴安岭地区")
城市数组(9) = Array("长沙市","株洲市","湘潭市","衡阳市","邵阳市","岳阳市","常德市","张家界市","益阳市","郴州市","永州市","怀化市","娄底市","湘西土家族苗族自治州")
城市数组(10) = Array("合肥市","芜湖市","蚌埠市","淮南市","马鞍山市","淮北市","铜陵市","安庆市","黄山市","滁州市","阜阳市","宿州市","巢湖市","六安市","亳州市","池州","宣城市")
城市数组(11) = Array("济南市","青岛市","淄博市","枣庄市","东营市","烟台市","潍坊市","济宁市","泰安市","威海市","日照市","莱芜市","临沂市","德州市","聊城市","滨州市","菏泽市")
城市数组(12) = Array("乌鲁木齐市","克拉玛依市","吐鲁番地区","哈密地区","昌吉回族自治州","博尔塔拉蒙古自治州","巴音郭楞蒙古自治州","阿克苏地区","克孜勒苏柯尔克孜自治州","喀什地区","和田地区","伊犁哈萨克自治州","塔城地区","阿勒泰地区","石河子市","阿拉尔市","图木舒克市","五家渠市")
城市数组(13) = Array("南京市","无锡市","徐州市","常州市","苏州市","南通市","连云港市","淮安市","盐城市","扬州市","镇江市","泰州市","宿迁市")
城市数组(14) = Array("杭州市","宁波市","温州市","嘉兴市","湖州市","绍兴市","金华市","衢州市","舟山市","台州市","丽水市")
城市数组(15) = Array("南昌市","景德镇市","萍乡市","九江市","新余市","鹰潭市","赣州市","吉安市","宜春市","抚州市","上饶市")
城市数组(16) = Array("武汉市","黄石市","十堰市","宜昌市","襄樊市","鄂州市","荆门市","孝感市","荆州市","黄冈市","咸宁市","随州市","恩施土家族苗族自治州","仙桃市","潜江市","天门市","神农架林区")
城市数组(17) = Array("南宁市","柳州市","桂林市","梧州市","北海市","防城港市","钦州市","贵港市","玉林市","百色市","贺州市","河池市","来宾市","崇左市")
城市数组(18) = Array("兰州市","嘉峪关市","金昌市","白银市","天水市","武威市","张掖市","平凉市","酒泉市","庆阳市","定西市","陇南市","临夏回族自治州","甘南藏族自治州")
城市数组(19) = Array("太原市","大同市","阳泉市","长治市","晋城市","朔州市","晋中市","运城市","忻州市","临汾市","吕梁市")
城市数组(20) = Array("呼和浩特市","包头市","乌海市","赤峰市","通辽市","鄂尔多斯市","呼伦贝尔市","巴彦淖尔市","乌兰察布市","兴安盟","锡林郭勒盟","阿拉善盟")
城市数组(21) = Array("西安市","铜川市","宝鸡市","咸阳市","渭南市","延安市","汉中市","榆林市","安康市","商洛市")
城市数组(22) = Array("长春市","吉林市","四平市","辽源市","通化市","白山市","松原市","白城市","延边朝鲜族自治州")
城市数组(23) = Array("福州市","厦门市","莆田市","三明市","泉州市","漳州市","南平市","龙岩市","宁德市")
城市数组(24) = Array("贵阳市","六盘水市","遵义市","安顺市","铜仁地区","黔西南布依族苗族自治州","毕节地区","黔东南苗族侗族自治州","黔南布依族苗族自治州")
城市数组(25) = Array("广州市","韶关市","深圳市","珠海市","汕头市","佛山市","江门市","湛江市","茂名市","肇庆市","惠州市","梅州市","汕尾市","河源市","阳江市","清远市","东莞市","中山市","潮州市","揭阳市","云浮市")
城市数组(26) = Array("西宁市","海东地区","海北藏族自治州","黄南藏族自治州","海南藏族自治州","果洛藏族自治州","玉树藏族自治州","海西蒙古族藏族自治州")
城市数组(27) = Array("拉萨市","昌都地区","山南地区","日喀则地市","那曲地区","阿里地区","林芝地区")
城市数组(28) = Array("成都市","自贡市","攀枝花市","泸州市","德阳市","绵阳市","广元市","遂宁市","内江市","乐山市","南充市","眉山市","宜宾市","广安市","达州市","雅安市","巴中市","资阳市","阿坝藏族羌族自治州","甘孜藏族自治州","凉山彝族自治州")
城市数组(29) = Array("银川市","石嘴山市","吴忠市","固原市","中卫市")
城市数组(30) = Array("海口市","三亚市","五指山市","琼海市","儋州市","文昌市","万宁市","东方市","定安县","屯昌县","澄迈县","临高县","白沙黎族自治县","昌江黎族自治县","乐东黎族自治县","陵水黎族自治县","保亭黎族苗族自治县","琼中黎族苗族自治县")
城市数组(31) = Array("台北市","高雄市","基隆市","台中市","台南市","新竹市","嘉义市")
城市数组(32) = Array("中西区","湾仔区","东区","南区","油尖旺区","深水埗区","九龙城区","黄大仙区","观塘区","荃湾区","葵青区","沙田区","西贡区","大埔区","北区","元朗区","屯门区","离岛区")
城市数组(33) = Array("澳门")

当前城市列表 = Join(城市数组(Form1.ComboBox1.ListIndex), "|")
Form1.ComboBox2.List = 当前城市列表
Form1.ComboBox2.ListIndex = -1
End Event

备注

  • 绘制QUI界面与控件方法如下
    • 点击按键精灵编辑器左边的 界面 按钮
    • 点击 设置界面 按钮后, 脚本界面将由QUI接管
    • 点击 控件列表 中的控件, 在中间窗体上按住鼠标左键并移动鼠标后松开, 即可放入对应控件
    • 右上方的 窗体 可增加新的界面窗口
    • 窗体和控件的可以自由拉伸调整大小
    • 右边的 属性 栏可选择对应控件与修改属性
    • 右下方有个 点击这里选择控件的响应事件 下拉框, 可自动生成事件代码