国家选择控件

lxq19851204 2010-03-04 12:43:45

是要自己用combo定义呢还是有专门的控件？

...全文

393 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

jhone99 2010-03-05

打赏
举报

网上可能有公共的xml可供使用

folkman 2010-03-04

打赏
举报

用六楼的方法做个个人控件，

贝隆 2010-03-04

打赏
举报

支持连接数据库，进行模糊查询

孤独剑_LPZ 2010-03-04

打赏
举报

没有专门的控件，只有自己代码加载，需要注册的网站、邮箱等多提供页面选择国家，可以将源代码下载，正则分析出国家数据，将数据存入数据库或文本文件，供程序启动时加载

gukuang78 2010-03-04

打赏
举报

bcrun 2010-03-04

打赏
举报

以下是我整个程序代码用灵格斯词霸做的BASE64编码:

T3B0aW9uIEV4cGxpY2l0DQoNClByaXZhdGUgU3ViIEFkZOWbveWutuWIl+ihqCgpDQogICAgY2Jv5Zu95a62LkNsZWFyDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIi3or7fpgInmi6nkvaDmiYDlnKjnmoTlm73lrrbmiJblnLDljLotIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlronlk6Xmi4kiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIumYv+WvjOaxlyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6Zi/5bCU5be05bC85LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLpmL/lsJTlj4rliKnkupoiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWuiemBk+WwlOWFseWSjOWbvSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5a6J5Zyt5ouJ5bKbIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlronmj5Dnk5zlkozlt7TluIPovr4iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIumYv+agueW7tyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Lqa576O5bC85LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLpmL/mo67mnb4iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIua+s+Wkp+WIqeS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5aWl5Zyw5YipIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLpmL/loZ7mi5znloYiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuW3tOWTiOmprCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5be05p6XIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlrZ/liqDmi4nlm70iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuW3tOW3tOWkmuaWryINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi55m95L+E572X5pavIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmr5TliKnml7YiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuS8r+WIqeWFuSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6LSd5a6BIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLnmb7mhZXlpKfnvqTlspsiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIueOu+WIqee7tOS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y2a6Iyo55Om57qzIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlt7Topb8iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaWh+iOsSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5L+d5Yqg5Yip5LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLluIPln7rnurPms5XntKIiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIue8heeUuCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5biD6ZqG6L+qIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlloDpuqbpmoYiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWKoOaLv+WkpyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5byA5pu8576k5bKbIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLkuK3pnZ7lhbHlkozlm70iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuS5jeW+lyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5pm65YipIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLkuK3lm70iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWTpeS8puavlOS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Yia5p6cIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlupPlhYvnvqTlspsiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWTpeaWr+i+vum7juWKoCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y+k5be0Ig0KICAgIGNib+WbveWuti5BZGRJdGVtICLloZ7mtabot6/mlq8iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaNt+WFiyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Li56bqmIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlkInluIPmj5AiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWkmuexs+WwvOWKoOWFseWSjOWbvSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y6E55Oc5aSa5bCUIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLln4Plj4oiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuiQqOWwlOeTpuWkmiINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi54ix5rKZ5bC85LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLln4PloZ7kv4Tmr5TkupoiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaWkOa1jiINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6Iqs5YWwIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLms5Xlm70iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuazleWxnuWcreS6mumCoyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Yqg6JOsIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlhojmr5TkupoiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuagvOmygeWQieS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5b635Zu9Ig0KICAgIGNib+WbveWuti5BZGRJdGVtICLliqDnurMiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuebtOW4g+e9l+mZgCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5biM6IWKIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmoLzmnpfnurPovr4iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWFs+WymyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y2x5Zyw6ams5ouJIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlh6DlhoXkupoiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWcreS6mumCoyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5rW35ZywIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmtKrpg73mi4nmlq8iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIummmea4ryINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5YyI54mZ5YipIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlhrDlspsiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWNsOW6piINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y2w5bqm5bC86KW/5LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLkvIrmnJciDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuS8iuaLieWFiyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi54ix5bCU5YWwIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLku6XoibLliJciDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaEj+Wkp+WIqSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi56eR54m56L+q55OmIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLniZnkubDliqAiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaXpeacrCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi57qm5pemIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmn6zln5Tlr6giDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWTiOiQqOWFi+aWr+WdpiINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6IKv5bC85LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLpn6nlm70iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuenkeWogeeJuSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5ZCJ5bCU5ZCJ5pav5Z2mIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLogIHmjJ0iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaLieiEsee7tOS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6buO5be05aupIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLojrHntKLmiZgiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWIqeavlOmHjOS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Yip5q+U5LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLliJfmlK/mlablo6vnmbsiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIueri+mZtuWumyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y2i5qOu5aChIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmvrPpl6giDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIumprOi+vuWKoOaWr+WKoCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6ams5ouJ57u0Ig0KICAgIGNib+WbveWuti5BZGRJdGVtICLpqazmnaXopb/kupoiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIumprOWwlOS7o+WkqyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6ams6YeMIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLpqazogLPku5YiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIumprOmHjOS6mumCo+e+pOWymyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6ams5o+Q5bC85YWLIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmr5vph4zmsYLmlq8iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWiqOilv+WTpSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5pGp5bCU5aSa55OmIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmkannurPlk6UiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuiSmeWPpCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6JKZ54m55aGe5ouJ54m55bKbIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmkanmtJvlk6UiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuiOq+ahkeavlOWFiyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi57qz57Gz5q+U5LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLnkZnpsoEiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWwvOaziuWwlCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6I235bGe5a6J55qE5YiX5pavIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLojbflhbAiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaWsOilv+WFsCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5bC85Yqg5ouJ55OcIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlsLzml6XlsJQiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWwvOaXpeWIqeS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5pyd6bKcIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmjKrlqIEiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIumYv+abvCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5be05Z+65pav5Z2mIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlt7Tmi7/pqawiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuW3tOW4g+S6muaWsOWHoOWGheS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5be05ouJ5ZytIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLnp5jpsoEiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuiPsuW+i+WuviINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5rOi5YWwIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLms5XlsZ7njrvliKnlsLzopb/kupoiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuiRoeiQhOeJmSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5rOi5aSa6buO5ZCEIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLljaHloZTlsJQiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIueVmeWwvOaXuiINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi572X6ams5bC85LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLkv4TnvZfmlq8iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWco+WNouilv+S6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Zyj5paH5qOu54m55bKbIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLkuJzokKjmkankuprnvo4iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuilv+iQqOaRqeS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Zyj6ams5Yqb6K+6Ig0KICAgIGNib+WbveWuti5BZGRJdGVtICLlnKPlpJrnvo7lkozmma7mnpfopb/mr5QiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaymeeJuemYv+aLieS8ryINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5aGe5YaF5Yqg5bCUIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLloZ7oiIzlsJQiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWhnuaLieWIqeaYgiINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5paw5Yqg5Z2hIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmlq/mtJvkvJDlhYsiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaWr+a0m+aWh+WwvOS6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5omA572X6Zeo576k5bKbIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLntKLpqazph4wiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWNl+mdniINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6KW/54+t54mZIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmlq/ph4zlhbDljaEiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWco+WNouilv+S6miINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Zyj5paH5qOu54m5Ig0KICAgIGNib+WbveWuti5BZGRJdGVtICLoi4/kuLkiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuiLj+mHjOWNlyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5pav5aiB5aOr5YWwIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLnkZ7lhbgiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIueRnuWjqyINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y+Z5Yip5LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLlj7Dmub7nnIEiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWhlOWQieWFi+aWr+WdpiINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Z2m5qGR5bC85LqaIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLms7Dlm70iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuWkmuWTpSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5rGk5YqgIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLnibnnq4vlsLzovr7lkozlpJrlt7Tlk6UiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIueqgeWwvOaWryINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Zyf6ICz5YW2Ig0KICAgIGNib+WbveWuti5BZGRJdGVtICLlnJ/lupPmm7zmlq/lnaYiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuS5jOW5sui+viINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5LmM5YWL5YWwIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLpmL/mi4nkvK/ogZTlkIjphYvplb/lm70iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuiLseWbvSINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi576O5Zu9Ig0KICAgIGNib+WbveWuti5BZGRJdGVtICLkuYzmi4nlnK0iDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuS5jOWFueWIq+WFi+aWr+WdpiINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5aeU5YaF55Ge5ouJIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLotorljZciDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuS5n+mXqCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi5Y2X5pav5ouJ5aSrIg0KICAgIGNib+WbveWuti5BZGRJdGVtICLmtKXlt7TluIPpn6YiDQogICAgY2Jv5Zu95a62LkFkZEl0ZW0gIuaJjuS8iuWwlCINCiAgICBjYm/lm73lrrYuQWRkSXRlbSAi6LWe5q+U5LqaIg0KICAgIGNib+WbveWuti5MaXN0SW5kZXggPSAwDQpFbmQgU3ViDQoNClByaXZhdGUgU3ViIEZvcm1fTG9hZCgpDQogICAgQWRk5Zu95a625YiX6KGoDQpFbmQgU3ViDQo=

bcrun 2010-03-04

打赏
举报

Option Explicit



Private Sub Add国家列表()

    cbo国家.Clear

    cbo国家.AddItem "-请选择你所在的国家或地区-"

    cbo国家.AddItem "安哥拉"

    cbo国家.AddItem "阿富汗"

    cbo国家.AddItem "阿尔巴尼亚"

    '没办法省增中间部分,因为提交时提示:您的回复正文中有非法词或词组！

    cbo国家.AddItem "扎伊尔"

    cbo国家.AddItem "赞比亚"

    cbo国家.ListIndex = 0

End Sub



Private Sub Form_Load()

    Add国家列表

End Sub