回 帖 发 新 帖 刷新版面

主题:如何对多个text赋值

不是要一个一个赋吧,TEXT1.TEXT=0写几十次?

回复列表 (共2个回复)

沙发

你可以用控键数组

板凳

还有一中方法,如果不是控件数组可以这样
Dim TX As Control
Dim i As Integer
For i = 1 To 10
  Set TX = Me.Controls("text" & i)
  TX.Text = i
Next i

我来回复

您尚未登录,请登录后再回复。点此登录或注册