帶變量的表單元素

Question

如果我想在變量的名稱中使用一個變量，我該怎麼做？我有點生疏，不記得或找到正確的語法來做到這一點。

例：

For x = 1 To 6 
    txtBoard [x].Caption = rst(0) 
    If Not rst(0) = "" Then 
     boardPresent(x) = True 
    End If 
    txtBoardSer [x].Caption = rst(1) 
    rst.MoveNext 
Next 

Answer 1

使用Controls您的用戶窗體對象的集合按名稱搶到控制

With Me '<--| reference your userform 
     For x = 1 To 6 
      .Controls("txtBoard" & x).Caption = rst(0) 
      If Not rst(0) = "" Then 
       boardPresent(x) = True 
      End If 
      .Controls("txtBoardSer" & x).Caption = rst(1) 
      rst.MoveNext 
     Next 
    End With