VB 如何自动选择onchange事件的联动下拉菜单（高分求助）
作者&投稿：花砍 （若有异议请与网页底部的电邮联系）
联动的一般需要第一个选择之后，再触发onchange事件，然后用定时器去点击联动的元素；
onchange从这个名称就可以看出，只有在select的选项有改变（change）的时候才会触发这个事件的。一般情况下select的第一个选项是默认选项，当你选中第一个项时，由于值没有改变，所以是不会触发onchange事件的。解决这个问题并没有什么完美的办法，一般你可以增加一个空值的项作为第一选项，比如请选择，这样原来的第一项就变成了第二项，点击该项值就有所改变了，就会触发onchange事件了；或者把除第一项外的其他项设为默认值，这样点击第一项也会触发事件的。
http://www.popub.net/script/pcasunzip.html这里有个JS的能实现你的功能，你下载那个JS，按照说明做就行了。
另一种方法是把所有的省市区保存到数据库里，打开网页的时候把省查出来并显示，选择省的时候更改关联的市 区。当然这也有两种方法，一种用ajax,另一种则是在打开网页的时候全查出来生成JS代码，然后改变，各有优劣，自己看着办吧。
如果用上面那个JS的话，数据库里保存的省市区是以汉字保存的，还有是因为是JS代码，维护起来有点麻烦，不过省市区这些东西，基本上固定的;而用数据库的话，则可以省市区可以以代码的开式保存在数据库里（如北京可以用1，天津2这样的形式）维护起来相对容易。还是那句自己看着办吧
form1 是表单的name
pro,city分别是表单中省与城市的下拉列表的name
14,和2分别是下拉列表中选项的值,这个要根据你的你的下拉列表来定
三级联动啊，用JS脚本吧，网上搜索下就可以了
缪李盐酸： 可能应该调用Click方法,你暂时不用Selected属性,Click应该与用户点击起一样的作用.另外一个相关方法fireEvent ＂onClick＂ ,类似吧.
邹平县19459055367： 如何在设置input的值时同时响应ONchange函数 - ？
缪李盐酸： VB如何在datagrid 取得焦点所在行的数据 把焦点放在这一行上或这个行上的某一列, text1.text=这一行第一列的值 text2.text=这一行第二列的值 ...------解决方案-------------------- datagrid1.row = 5 datagrid1.col = 8 text1.text = ＂第5行,第8列,的值是: ＂ & datagrid1.text 本答案来自于互联网,仅供参考学习作用 如果您对我的回答有不满意的地方,还请您继续追问;答题不易,互相理解,互相帮助!
邹平县19459055367： VB如何用webbrowser赋页面Input和Select混合类型的值?? - ？
缪李盐酸： 直接运行页面中的Javascript函数即可:WebBrowser1.Document.parentWindow.execScript ＂check_rdanwei('要赋值给text的字符串')＂ 效果就相当于触发了select中的onchange事件
邹平县19459055367： vb onChange触发(自动提交网页表单)？
缪李盐酸： 用ajax.
邹平县19459055367： VB中怎样让VB自己选择网页中select的内容 - ？
缪李盐酸： 据我所知java script 是这样的 java script: function forqqversion( me ){ me.selectedIndex = 3 '欲选择的opation排列 } 所以我猜vb script 也是一样 VB script:sub forqqversion( me ) me.selectedIndex = 3 '欲选择的opation排列 end sub
邹平县19459055367： VB怎么实现选择路径,打开路径? - ？
缪李盐酸： 用CommonDialog控件有点缺陷,可移植性较差,就是在没装VB的电脑上可能不能运行.可使用以下API实现.添加你说的两个Command,一个Text,name默认,拷贝以下代码到窗体代码中.Option...
邹平县19459055367： 一个项目有很多文件组成,在窗体上设计的界面和编写的代码是保存在...？
缪李盐酸： 在要显示对话框的代码前关闭系统信息框:Application.DisplayAlerts = False 代码结束时用Application.DisplayAlerts = True开启系统信息框.
邹平县19459055367： VB自动选择Option数组中的一个的代码 - ？
缪李盐酸： 比方说要自动选择第二个:Option1(1).Value = True
邹平县19459055367： VB”确定”与”取消”选择框30秒后自动选择. - ？
缪李盐酸： '自动关闭Msgbox'本代码要测试时请先编译成 .exe 再试'添加 Command1 Timer1 Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private ...
