返回列表 上一主題 發帖

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

modelcrazyer

帖子
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只能輸入數字
請問該怎麼寫???
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2016-4-8 13:45 | 只看該作者
本帖最後由 GBKEE 於 2016-4-8 13:47 編輯

回復 1# modelcrazyer
1 表單模組程式碼
  1. Option Explicit
  2. Dim AA(1 To 3) As New Class1
  3. Private Sub CommandButton1_Click()
  4.     Dim theTextBox  As Control, K As Integer, I As Integer
  5.     K = 10
  6.     For I = 1 To 3
  7.         Set theTextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True)
  8.         Set AA(I).C_TextBox = theTextBox
  9.         With theTextBox
  10.                 .Left = 210
  11.                 .Top = K
  12.                 K = .Top + .Height + 18
  13.         End With
  14.     Next I
  15.     Set theTextBox = Nothing
  16. End Sub
複製代碼
2 物件類別模組新增一模組:會自動命名 Class1
  1. Option Explicit
  2. Public WithEvents C_TextBox As MSForms.TextBox
  3. Private Sub C_TextBox_Change()
  4.     If Not IsNumeric(C_TextBox) Then MsgBox C_TextBox & " 不是數字"
  5. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
3#
發表於 2016-4-9 00:36 | 只看該作者
謝謝，就是這樣。感謝大大幫忙

TOP

linyancheng

帖子
228 
主題
73 
精華
2 
積分
333 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-10-13 
4#
發表於 2016-4-11 13:30 | 只看該作者
可以省略theTextBox
直接Set AA(I).C_TextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True)
也可以

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2016-4-12 06:41 | 只看該作者
可以省略theTextBox
直接Set AA(I).C_TextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True ...
linyancheng 發表於 2016-4-11 13:30

此處絕對不可以偷懶將 theTextBox 省略，
如果予以省略成：
  1.         '  Set theTextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True)
  2.         '  Set AA(I).C_TextBox = theTextBox
  3.         Set AA(I).C_TextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True)
複製代碼
接下來的執行將會出現
  1. 執行階段錯誤 91：
  2. 沒有設定物件變數或 With 區塊變數
複製代碼
所以 GBKEE 大大原本的設定與考量是正確無誤誤的：
  1.         Set theTextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True)
  2.         Set AA(I).C_TextBox = theTextBox

  4.         With theTextBox
  5.                 .
  6.                .
  7.         End With
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
6#
發表於 2016-4-12 06:58 | 只看該作者
回復 4# linyancheng
除非你不使用 theTextBox 宣告之變數，而直接將它寫成：
  1.     For I = 1 To 3
  2.         '  Set theTextBox  = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True)
  3.         '  Set AA(I).C_TextBox =theTextBox     '  可以省略 theTextBox
  4.         Set AA(I).C_TextBox = Me.Controls.Add("Forms.TextBox.1", "TextBox" & I, True)
  5.         
  6.         '  With theTextBox
  7.         With AA(I).C_TextBox
  8.                 .Left = 50
  9.                 .Top = K
  10.                 K = .Top + .Height + 18
  11.         End With
  12.     Next I
複製代碼
方可。

TOP

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
7#
發表於 2016-4-20 21:17 | 只看該作者
感謝各位!!終於解決了!!

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題