如何遍历一个frame里面的所有textbox,并将其text置为空？

[tian3]

？

[Chice_wxg]

Dim o
For Each o In Frame1.Container
Debug.Print TypeName(o)
Next


明白了吗？

[Chice_wxg]

Dim o
For Each o In Frame1.Container
If TypeName(o) = "TextBox" Then o.Text = "New"
Next

[feihong0233]

dim objText as Object
for each objText in Me.Objects
if instr("索要改变的text名列表",objText)<>0 then
objText.Text=""
endif
next objText