两个Listbox的关联(省名 和 该省城市的对应)
来源:互联网 发布:人人家政软件怎么样 编辑:程序博客网 时间:2024/04/30 17:09
Dim prov As New Collection
Private Sub Form_Load()
prov.Add "北京市,东城,西城,崇文,宣武,朝阳,丰台,石景山,海淀,门头沟,房山,通州,顺义,昌平,大兴,平谷,怀柔,密云,延庆", "北京"
prov.Add "上海市,黄浦,卢湾,徐汇,长宁,静安,普陀,闸北,虹口,杨浦,闵行,宝山,嘉定,浦东,金山,松江,青浦,南汇,奉贤,崇明", "上海"
prov.Add "天津市,和平,东丽,河东,西青,河西,津南,南开,北辰,河北,武清,红挢,塘沽,汉沽,大港,宁河,静海,宝坻,蓟县", "天津"
prov.Add "重庆市,万州,涪陵,渝中,大渡口,江北,沙坪坝,九龙坡,南岸,北碚,万盛,双挢,渝北,巴南,黔江,长寿,綦江,潼南,铜梁,大足,荣昌,壁山,梁平,城口,丰都,垫江,武隆,忠县,开县,云阳,奉节,巫山,巫溪,石柱,秀山,酉阳,彭水,江津,合川,永川,南川", "重庆"
prov.Add "河北省,石家庄,邯郸,邢台,保定,张家口,承德,廊坊,唐山,秦皇岛,沧州,衡水", "河北"
prov.Add "山西省,太原,大同,阳泉,长治,晋城,朔州,吕梁,忻州,晋中,临汾,运城", "山西"
prov.Add "内蒙古自治区,呼和浩特,包头,乌海,赤峰,呼伦贝尔盟,阿拉善盟,哲里木盟,兴安盟,乌兰察布盟,锡林郭勒盟,巴彦淖尔盟,伊克昭盟", "内蒙"
prov.Add "辽宁省,渖阳,大连,鞍山,抚顺,本溪,丹东,锦州,营口,阜新,辽阳,盘锦,铁岭,朝阳,葫芦岛", "辽宁"
prov.Add "黑龙江省,哈尔滨,齐齐哈尔,牡丹江,佳木斯,大庆,绥化,鹤岗,鸡西,黑河,双鸭山,伊春,七台河,大兴安岭", "黑龙"
prov.Add "江苏省,南京,镇江,苏州,南通,扬州,盐城,徐州,连云港,常州,无锡,宿迁,泰州,淮安", "江苏"
prov.Add "浙江省,杭州,宁波,温州,嘉兴,湖州,绍兴,金华,衢州,舟山,台州,丽水", "浙江"
prov.Add "安徽省,合肥,芜湖,蚌埠,马鞍山,淮北,铜陵,安庆,黄山,滁州,宿州,池州,淮南,巢湖,阜阳,六安,宣城,亳州", "安徽"
prov.Add "福建省,福州,厦门,莆田,三明,泉州,漳州,南平,龙岩,宁德", "福建"
prov.Add "江西省,南昌市,景德镇,九江,鹰潭,萍乡,新馀,赣州,吉安,宜春,抚州,上饶", "江西"
prov.Add "山东省,济南,青岛,淄博,枣庄,东营,烟台,潍坊,济宁,泰安,威海,日照,莱芜,临沂,德州,聊城,滨州,菏泽", "山东"
prov.Add "河南省,郑州,开封,洛阳,平顶山,安阳,鹤壁,新乡,焦作,濮阳,许昌,漯河,三门峡,南阳,商丘,信阳,周口,驻马店,济源", "河南"
prov.Add "湖北省,武汉,宜昌,荆州,襄樊,黄石,荆门,黄冈,十堰,恩施,潜江,天门,仙桃,随州,咸宁,孝感,鄂州", "湖北"
prov.Add "湖南省,长沙,常德,株洲,湘潭,衡阳,岳阳,邵阳,益阳,娄底,怀化,郴州,永州,湘西,张家界", "湖南"
prov.Add "广东省,广州,深圳,珠海,汕头,东莞,中山,佛山,韶关,江门,湛江,茂名,肇庆,惠州,梅州,汕尾,河源,阳江,清远,潮州,揭阳,云浮", "广东"
prov.Add "广西壮族自治区,南宁,柳州,桂林,梧州,北海,防城港,钦州,贵港,玉林,南宁地区,柳州地区,贺州,百色,河池", "广西"
prov.Add "海南省,海口,三亚", "海南"
prov.Add "四川省,成都,绵阳,德阳,自贡,攀枝花,广元,内江,乐山,南充,宜宾,广安,达川,雅安,眉山,甘孜,凉山,泸州", "四川"
prov.Add "贵州省,贵阳,六盘水,遵义,安顺,铜仁,黔西南,毕节,黔东南,黔南", "贵州"
prov.Add "云南省,昆明,大理,曲靖,玉溪,昭通,楚雄,红河,文山,思茅,西双版纳,保山,德宏,丽江,怒江,迪庆,临沧", "云南"
prov.Add "西藏自治区,拉萨,日喀则,山南,林芝,昌都,阿里,那曲", "西藏"
prov.Add "陕西省,西安,宝鸡,咸阳,铜川,渭南,延安,榆林,汉中,安康,商洛", "陕西"
prov.Add "甘肃省,兰州,嘉峪关,金昌,白银,天水,酒泉,张掖,武威,定西,陇南,平凉,庆阳,临夏,甘南", "甘肃"
prov.Add "宁夏回族自治区,银川,石嘴山,吴忠,固原", "宁夏"
prov.Add "青海省,西宁,海东,海南,海北,黄南,玉树,果洛,海西", "青海"
prov.Add "新疆,乌鲁木齐,石河子,克拉玛依,伊犁,巴音郭勒,昌吉,克孜勒苏柯尔克孜,博尔塔拉,吐鲁番,哈密,喀什,和田,阿克苏", "新疆"
prov.Add "香港,香港", "香港"
prov.Add "澳门,澳门", "澳门"
prov.Add "台湾省,台北,高雄,台中,台南,屏东,南投,云林,新竹,彰化,苗栗,嘉义,花莲,桃园,宜兰,基隆,台东,金门,马祖,澎湖", "台湾"
Dim temp() As String, i As Integer
For i = 1 To prov.Count
temp = Split(prov(i), ",")
List1.AddItem temp(0)
Next
List1.ListIndex = 0
End Sub
Private Sub List1_Click()
List2.Clear
Dim i As Integer, temp() As String
temp = Split(prov(Left(List1.Text, 2)), ",")
For i = 1 To UBound(temp)
List2.AddItem temp(i)
Next
Erase temp
End Sub
Private Sub Form_Load()
prov.Add "北京市,东城,西城,崇文,宣武,朝阳,丰台,石景山,海淀,门头沟,房山,通州,顺义,昌平,大兴,平谷,怀柔,密云,延庆", "北京"
prov.Add "上海市,黄浦,卢湾,徐汇,长宁,静安,普陀,闸北,虹口,杨浦,闵行,宝山,嘉定,浦东,金山,松江,青浦,南汇,奉贤,崇明", "上海"
prov.Add "天津市,和平,东丽,河东,西青,河西,津南,南开,北辰,河北,武清,红挢,塘沽,汉沽,大港,宁河,静海,宝坻,蓟县", "天津"
prov.Add "重庆市,万州,涪陵,渝中,大渡口,江北,沙坪坝,九龙坡,南岸,北碚,万盛,双挢,渝北,巴南,黔江,长寿,綦江,潼南,铜梁,大足,荣昌,壁山,梁平,城口,丰都,垫江,武隆,忠县,开县,云阳,奉节,巫山,巫溪,石柱,秀山,酉阳,彭水,江津,合川,永川,南川", "重庆"
prov.Add "河北省,石家庄,邯郸,邢台,保定,张家口,承德,廊坊,唐山,秦皇岛,沧州,衡水", "河北"
prov.Add "山西省,太原,大同,阳泉,长治,晋城,朔州,吕梁,忻州,晋中,临汾,运城", "山西"
prov.Add "内蒙古自治区,呼和浩特,包头,乌海,赤峰,呼伦贝尔盟,阿拉善盟,哲里木盟,兴安盟,乌兰察布盟,锡林郭勒盟,巴彦淖尔盟,伊克昭盟", "内蒙"
prov.Add "辽宁省,渖阳,大连,鞍山,抚顺,本溪,丹东,锦州,营口,阜新,辽阳,盘锦,铁岭,朝阳,葫芦岛", "辽宁"
prov.Add "黑龙江省,哈尔滨,齐齐哈尔,牡丹江,佳木斯,大庆,绥化,鹤岗,鸡西,黑河,双鸭山,伊春,七台河,大兴安岭", "黑龙"
prov.Add "江苏省,南京,镇江,苏州,南通,扬州,盐城,徐州,连云港,常州,无锡,宿迁,泰州,淮安", "江苏"
prov.Add "浙江省,杭州,宁波,温州,嘉兴,湖州,绍兴,金华,衢州,舟山,台州,丽水", "浙江"
prov.Add "安徽省,合肥,芜湖,蚌埠,马鞍山,淮北,铜陵,安庆,黄山,滁州,宿州,池州,淮南,巢湖,阜阳,六安,宣城,亳州", "安徽"
prov.Add "福建省,福州,厦门,莆田,三明,泉州,漳州,南平,龙岩,宁德", "福建"
prov.Add "江西省,南昌市,景德镇,九江,鹰潭,萍乡,新馀,赣州,吉安,宜春,抚州,上饶", "江西"
prov.Add "山东省,济南,青岛,淄博,枣庄,东营,烟台,潍坊,济宁,泰安,威海,日照,莱芜,临沂,德州,聊城,滨州,菏泽", "山东"
prov.Add "河南省,郑州,开封,洛阳,平顶山,安阳,鹤壁,新乡,焦作,濮阳,许昌,漯河,三门峡,南阳,商丘,信阳,周口,驻马店,济源", "河南"
prov.Add "湖北省,武汉,宜昌,荆州,襄樊,黄石,荆门,黄冈,十堰,恩施,潜江,天门,仙桃,随州,咸宁,孝感,鄂州", "湖北"
prov.Add "湖南省,长沙,常德,株洲,湘潭,衡阳,岳阳,邵阳,益阳,娄底,怀化,郴州,永州,湘西,张家界", "湖南"
prov.Add "广东省,广州,深圳,珠海,汕头,东莞,中山,佛山,韶关,江门,湛江,茂名,肇庆,惠州,梅州,汕尾,河源,阳江,清远,潮州,揭阳,云浮", "广东"
prov.Add "广西壮族自治区,南宁,柳州,桂林,梧州,北海,防城港,钦州,贵港,玉林,南宁地区,柳州地区,贺州,百色,河池", "广西"
prov.Add "海南省,海口,三亚", "海南"
prov.Add "四川省,成都,绵阳,德阳,自贡,攀枝花,广元,内江,乐山,南充,宜宾,广安,达川,雅安,眉山,甘孜,凉山,泸州", "四川"
prov.Add "贵州省,贵阳,六盘水,遵义,安顺,铜仁,黔西南,毕节,黔东南,黔南", "贵州"
prov.Add "云南省,昆明,大理,曲靖,玉溪,昭通,楚雄,红河,文山,思茅,西双版纳,保山,德宏,丽江,怒江,迪庆,临沧", "云南"
prov.Add "西藏自治区,拉萨,日喀则,山南,林芝,昌都,阿里,那曲", "西藏"
prov.Add "陕西省,西安,宝鸡,咸阳,铜川,渭南,延安,榆林,汉中,安康,商洛", "陕西"
prov.Add "甘肃省,兰州,嘉峪关,金昌,白银,天水,酒泉,张掖,武威,定西,陇南,平凉,庆阳,临夏,甘南", "甘肃"
prov.Add "宁夏回族自治区,银川,石嘴山,吴忠,固原", "宁夏"
prov.Add "青海省,西宁,海东,海南,海北,黄南,玉树,果洛,海西", "青海"
prov.Add "新疆,乌鲁木齐,石河子,克拉玛依,伊犁,巴音郭勒,昌吉,克孜勒苏柯尔克孜,博尔塔拉,吐鲁番,哈密,喀什,和田,阿克苏", "新疆"
prov.Add "香港,香港", "香港"
prov.Add "澳门,澳门", "澳门"
prov.Add "台湾省,台北,高雄,台中,台南,屏东,南投,云林,新竹,彰化,苗栗,嘉义,花莲,桃园,宜兰,基隆,台东,金门,马祖,澎湖", "台湾"
Dim temp() As String, i As Integer
For i = 1 To prov.Count
temp = Split(prov(i), ",")
List1.AddItem temp(0)
Next
List1.ListIndex = 0
End Sub
Private Sub List1_Click()
List2.Clear
Dim i As Integer, temp() As String
temp = Split(prov(Left(List1.Text, 2)), ",")
For i = 1 To UBound(temp)
List2.AddItem temp(i)
Next
Erase temp
End Sub
- 两个Listbox的关联(省名 和 该省城市的对应)
- 两个ListBox的互动
- 两个ListBox的互动方法
- 使用Ajax实现DropDownList和ListBox的联动以及两个ListBox之间数据的移动
- 使用Ajax实现DropDownList和ListBox的联动以及两个ListBox之间数据的移动
- 使用Ajax实现DropDownList和ListBox的联动以及两个ListBox之间数据的移动
- 使用Ajax实现DropDownList和ListBox的联动以及两个ListBox之间数据的移动
- 使用Ajax实现DropDownList和ListBox的联动以及两个ListBox之间数据的移动
- 使用Ajax实现DropDownList和ListBox的联动以及两个ListBox之间数据的移动
- 两个listbox实现选项的添加删除和搜索
- 打印出图标对应的包名和类名
- VB.Net程序设计:ListBox拖动排序两个ListBox的操作
- 动态设置对象的属性名与该属性对应的变量
- 两个listbox之间的互换(自定义控件)
- android 检测该包名所对应的应用是否存在
- 两个dropdownlist 的关联
- 两个表的关联
- hibernate配置文件工具类得到对应的表名、主键名、字段名和字段描述
- Virtualization technology targets Linux-powered devices
- 第二周--星期五
- vb初感
- 分页 SQLServer存储过程
- 正则表达式 匹配"<"方法!
- 两个Listbox的关联(省名 和 该省城市的对应)
- MFC应用程序中指针的使用
- 用Madotate软件体验了下立体桌面
- 使用.NET2.0编写COM组件供VB调用
- Web2.0之RSS
- www.xfocus.net 怎么了
- ASP.NET加密技术的应用(加密类代码参考)
- 未启用父路径
- 美17岁少年成功破解iPhone 方法已公布