如何循環文字框

leoyan76

請教各位，下面紅代代碼如何修改？


Private Sub Form_Timer()
If j < 7 Then
    Me.MSComm1.Output = "#03" & j & Chr(13)
   Me("text" & j) = Mid$(Me.MSComm1.Input, 3)
    j = j + 1
Else
    j = j - 7
End If
End Sub

leoyan76

有Text0 ~text6，7個文字框，如何用一句代碼將其賦值呢？

tmtony

for i=0 to 6
  me.controls("text" & i).value=值  
next

leoyan76

多謝！