VB组合框设计 如我要在组合框1中输入省份,当选择其中的一个时,在组合框2中就出现相应的大学。求代码

VB组合框设计 如我要在组合框1中输入省份,当选择其中的一个时,在组合框2中就出现相应的大学。求代码,第1张

这个很简单啊,直接调用Combo的click事件或者Change事件响应另外一个Combo的AddItem命令就OK了啊,组合框一般都事先把省份载入,然后在下拉列表中选,很少直接输入,你要手动输入省份,那用Text控件也行,给你一个示范,

在窗体建两个组合框,一个命名为cmbprovince,表示是省份组合框,另一个命名为cmbuni,表示大学组合框,一般给控件取名字时最好不要直接用Combo1,Combo2这样的名字,要取有意义,能辨认的名字,这样可以增加程序的可读性,方便调试,输入以下代码:

Private Sub Form_Load()

cmbprovinceClear '清空组合框

cmbprovinceAddItem ("江苏") '窗体载入时把省份作为项目添加到省份组合框

cmbprovinceAddItem ("四川")

cmbprovinceText = "省份"

cmbuniText = "大学名称"

End Sub

Private Sub cmbprovince_Click()

cmbuniClear '清空组合框

If cmbprovinceText = "江苏" Then '当省份组合框选择江苏时,在大学组合框载入相应的大学名称

cmbuniAddItem ("南京大学")

cmbuniAddItem ("河海大学")

cmbuniAddItem ("南京农业大学")

ElseIf cmbprovinceText = "四川" Then '当省份组合框选择四川时,在大学组合框载入相应的大学名称

cmbuniAddItem ("四川大学")

cmbuniAddItem ("四川农业大学")

cmbuniAddItem ("四川交通大学")

End If

cmbuniText = cmbuniList(0) '默认显示第一个项目

End Sub

当然你也可以不用if语句,改用select case语句,然事先最好都把省份和大学加载到组合库项目里面,到时候直接选择就可以,不要改成手动输入,那样不方便,其实很多程序可以自己学着做做,实在不会才问,提高会快得多

1、洛杉矶机场:LAX

洛杉矶机场位于美利坚合众国加利福尼亚州洛杉矶县洛杉矶市西切斯特街区,东北距洛杉矶市中心19千米,其西部起降带逼近太平洋海岸的沙滩,为4F级国际机场、美国门户型国际航空枢纽。

2、伦敦希思罗机场:LHR

伦敦希思罗机场位于英国英格兰大伦敦希灵登区,位于伦敦市中心以西22公里处,希灵登区南端,是4F级国际机场,大型国际枢纽机场,是全欧洲最繁忙的机场,也是全世界最繁忙的机场之一,同时也是全世界最大的机场之一。

3、肯尼迪机场:JFK

肯尼迪机场该机场是于1942年始建,1948年7月1日首次有商业航班,并于7月31日正式命名为“纽约国际机场”。

4、法兰克福机场:FRA

法兰克福机场位于德国黑森州法兰克福,是德国的国家航空公司——德国汉莎航空公司的一个基地,由于法兰克福的容量有限,因此汉莎航空公司将业务分别放在法兰克福和慕尼黑的慕尼黑国际机场,虽客运量不及戴高乐机场和希思罗机场,但还是欧洲第三大机场。

5、上海虹桥机场:SHA

上海虹桥机场位于中国上海市长宁区,距市中心13千米,为4E级民用国际机场,是中国三大门户复合枢纽之一、国际定期航班机场、对外开放的一类航空口岸和国际航班备降机场。 

代码 航空公司 代码 航空公司 代码 航空公司 CA 中国国际航空公司 KA 港龙航空公司 MU 中国东方航空股份有限公司 CJ 中国北方航空公司 CZ 中国南方航空股份有限公司 F6 中国航空股份有限公司 HU 海南航空股份有限公司 XO 新疆航空公司 ZH 深圳航空公司 X2 中国新华航空公司 SC 山东航空公司 8C 山西航空公司 MF 厦门航空公司 SZ 中国西南航空公司 FM 上海航空公司 G8 长城航空公司 3U 四川航空公司 WU 武汉航空公司 AF 法国航空公司 AY 芬兰航空公司 AZ 意大利航空公司 BA 英国航空公司 BL 文莱王家航空公司 CP 加拿大国际航空公司 ET 埃塞俄比亚航空公司 E5 萨马拉航空公司 GA 印度尼西亚鹰航空公司 HY 乌兹别克斯坦航空公司 LR 伊朗航空公司 JD 日本航空公司 JS 朝鲜航空公司 KA 港龙航空公司 JL 日本航空公司 KE 大韩航空 KL 荷兰皇家航空公司 K4 哈萨克斯坦航空公司 LH 德国汉莎航空公司 LO 波兰航空公司 LY 以色列航空公司 MH 马来西亚航空公司 ML 新加坡航空公司 NH 全日空公司 NW 美国西北航空公司 NX 澳门航空公司 OS 奥地利航空公司 OZ 韩亚航空公司 PK 巴基斯坦国际航空公司 PR 菲律宾航空公司 QF 澳大利亚快达航空公司 QV 老挝航空公司 RA 尼泊尔航空公司 RO 罗马尼亚航空公司 SK 斯堪的纳维亚 (北欧)航空公司 SQ 新加坡航空公司 SU 瑞士航空公司 TG 泰国国际航空公司 UA 美国联合航空公司 UB 缅甸航空公司 VJ 柬埔寨航空公司 VN 越南航空公司 6U 乌克兰航空公司

您好,此提示可能是网络超时,建议您稍后再试。

欢迎登录在线客服https://forumcmbchinacom/cmu/icsloginaspxfrom=B&logincmu=0 进行咨询,我们将竭诚为您服务,感谢您对招商银行的关注与支持!

欢迎分享,转载请注明来源:表白网

原文地址:https://h5.hunlipic.com/biaobai/4012648.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2024-04-09
下一篇2024-04-09

发表评论

登录后才能评论

评论列表(0条)

    保存