標題: [發問] 在表單如何建立物件的矩陣 [打印本頁]

---

作者: mobo    時間: 2012-12-21 10:53     標題: 在表單如何建立物件的矩陣

請問各位大大,
   我在表單設計上，如何建立物件的矩陣呢?
   如 : 我需要建立 10 個 TextBox ，如何讓這10個TextBox 變成矩陣，以方便讀寫

感謝

---

作者: kimbal    時間: 2012-12-22 10:58

回復 1# mobo


你的意思是否這樣?
[attach]13651[/attach]
效果 (按其中一button)
[attach]13652[/attach]

1. Private Sub CommandButton1_Click()
   
2.     For i = 0 To 9
   
3.         If TypeName(Me.Controls(i)) = "TextBox" Then
   
4.             Me.Controls(i) = i + 1
   
5.         End If
   
6.     Next
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton2_Click()
   
10.     For i = 1 To 10
    
11.         Me.Controls("textbox" & Trim(Str(i))) = i
    
12.     Next
    
13. End Sub

複製代碼

---

作者: GBKEE    時間: 2012-12-22 13:17

本帖最後由 GBKEE 於 2012-12-22 13:58 編輯

回復 1# mobo

1. Option Explicit
   
2. Dim Ar()
   
3. Private Sub CommandButton1_Click()
   
4.     Dim E As Variant, i As Integer
   
5.     [A1].Resize(, UBound(Ar) + 1) = Ar
   
6.     For i = 1 To UBound(Ar) + 1
   
7.         Cells(2, i) = Ar(i - 1)
   
8.     Next
   
9. End Sub
   
10. Private Sub UserForm_Initialize()
    
11.     Dim E As MSForms.Control, i As Integer
    
12.     For Each E In Controls
    
13.         If TypeName(E) = "TextBox" Then
    
14.             ReDim Preserve Ar(i)
    
15.             Set Ar(i) = E
    
16.             i = i + 1
    
17.         End If
    
18.     Next
    
19. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)