返回列表 上一主題 發帖

[發問] 在表單如何建立物件的矩陣

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
1# 跳轉到 »
發表於 2012-12-22 10:58 | 顯示全部帖子
回復 1# mobo


你的意思是否這樣?

效果 (按其中一button)
  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

  9. Private Sub CommandButton2_Click()
  10.     For i = 1 To 10
  11.         Me.Controls("textbox" & Trim(Str(i))) = i
  12.     Next
  13. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題