ChildObjects改吧改吧！

 51Testing软件测试网7D+?&@Dlp

Q@F1~t{0听说ChildObjects很好用呢，一直都没有去弄，趁年前这几天比较闲，弄了弄！

自己画了个UI，如附件，二个ComboBox,一个CheckedListBox,用ChildObjects来获取所有的CommonBox,51Testing软件测试网LeB8\ zp

YRy6R`"U Y]oY._\0再把值都选为1;51Testing软件测试网e5wAerqnv

$w7ylAN,YT"e0以下从帮助中稍微改吧改吧！

亲手实践一直是我的原则！51Testing软件测试网3WG2r%\J+w

主要就是先设定一个要查找对象的描述，然后用ChildObjects得到的是这个匹配的集合，再遍历对象，进行51Testing软件测试网5m A].mkuZ@
P v&[

相应的操作；51Testing软件测试网Y`-V[o*x
nh9\

Sub ROPropertyOfChildObjects()

g(\$z;|y_,n]0 Dim lvToSearch, ValueToSelect, NumberOfListViews, ListViewCollection51Testing软件测试网zO.J3XG8m
 51Testing软件测试网l?7a7[F:W_ ?
 ValueToSelect = "1" 'comboBox要选取的值
CHf"o_wK1s h0'============查找模式设置============== 51Testing软件测试网3a[Kh7V0Tcl
 Set ōDesc = Descrīption.Create()51Testing软件测试网3t8]j)DPL
 oDesc("swftypename").Value = "System.Windows.Forms.ComboBox"51Testing软件测试网2MKF@+K5_1h3R d@t"r
 
%t
GlE8V0 Set ListViewCollection =SwfWindow("Title:=Form1").ChildObjects(oDesc)51Testing软件测试网B)ViS.jwl

2EB6Z8|Jl!L(Wa6R0'============查找模式设置============== 51Testing软件测试网F+d8^|,U7x
 NumberOfListViews = ListViewCollection.Count51Testing软件测试网\Ju\.|$Hs3o
51Testing软件测试网T0`3q
M)E{G;\

yb1@MD9l3}+Hv | E0'============遍历集合进行操作==========51Testing软件测试网c7[.xE!n
c:o
 For I = 0 To NumberOfListViews - 151Testing软件测试网OW4ka r C
   ListViewCollection(I).Select ValueToSelect  51Testing软件测试网{wb\ Q7y;\.Tt
 Next51Testing软件测试网?j@*R1X{
 
cg^'`)@4F;Y0End Sub

R!b?]J(g ~&X;A)Z1C#]#o0ROPropertyOfChildObjects()

 51Testing软件测试网;u8a4I8iJz

'h Dw)eb051Testing软件测试网n@,@W,m W'x$I