返回列表下一主題上一主題發帖

[發問] 動態新增控制後怎麼觸發事件

modelcrazyer

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-4-7 21:56 | 顯示全部帖子

[發問] 動態新增控制後怎麼觸發事件

利用以下程式建立了,3個TextBox
Private Sub CommandButton1_Click()
Dim i,k As Integer
Dim theTextBox  As Control
K=10
For i= 1 to  3
Set theTextBox =ME.Controls.Add("Forms.TextBox.1", "TextBox"&i, True)
With  theTextBox
  .Left = 210
  .Top=K
  K=.Top+.Height+ 18
End with
Next i
Set  theTextBox =Nothing
End sub
後續每個TextBox想要_Change()的事件，並控制每個TextBox只能輸入數字
請問該怎麼寫???