有什么办法,我想这样做:
textbox1.text = x + i
textbox2.text = x + i
textbox3.text = x + i
Run Code Online (Sandbox Code Playgroud)
像这样做?
for l = 0 to 2
textbox(l) = x + i
next
Run Code Online (Sandbox Code Playgroud)
假设这些控件位于用户窗体内,请执行以下操作:
Private Sub FillTextboxes()
Dim i As Long
Dim x As Long
x = 10
For i = 0 To 2
Me.Controls("textbox" & i + 1).Text = x + i
Next i
End Sub
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
7601 次 |
最近记录: |