如何用代码同时修改相同控件的相同属性？

[圣骑士]

例如窗体上有各种控件，我需要把所有文本框的text属性都赋值"1"，要怎么做?

[圣骑士]

谢谢

[tztz520]

Private Sub Command1_Click()
Dim tempCon As Control
For Each tempCon In Me.Controls
If TypeName(tempCon) = "TextBox" Then
tempCon.Text = "1"
End If
Next
End Sub

[griefforyou]

dim ctrl as control

for each ctrl in contorls
if typeof ctrl is textbox then
ctrl.text=1
end if
next