QTP给combobox控件赋值

     

     combobox组合框和列表框的功能类似,但使用更为灵活,更为常用.实际上,组合框是由一个文本框和一个列表框组成的,组合框又被称为弹出式

菜单.用户使用时,单击文本框右侧的三角即可展开下拉列表。给combobox组合框赋值就不能给文本框赋值的set 方法啦。

     combobox是javascript的一个控件，这个控件是通过键盘和鼠标来触发的。解决办法：先set一下，然后click一下将鼠标光标进入输入框，然后模拟一下键盘的操作就可以啦

 

Browser("").Page("").Frame("").WebEdit("").Set "xiuxiu"
Browser("").Page("").Frame("").WebEdit("").Click  '目的是让鼠标指针点进去
Dim wshShell
Set wshShell = CreateObject("Wscript.Shell")
wshShell.SendKeys "{1}"     '模拟键盘输入1
wshShell.SendKeys "{BACKSPACE}"     '模拟键盘删除1

这里有所有键盘按键的模拟方法

http://www.cnblogs.com/xhyang110/archive/2011/03/25/1995327.html

参考

http://blog.csdn.net/snakeshiy/article/details/8148394