返回列表 上一主題 發帖

[發問] 於物件類別模組如何求得該ComboBox之(Name)?

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-11-16 11:53 | 只看該作者

[發問] 於物件類別模組如何求得該ComboBox之(Name)?

請教大大:
Dim newcontrol() As New Class1
Private Sub UserForm_Initialize()
    ReDim newcontrol(1 To 10)
    For i = 1 To 10
        Set newcontrol(i).Comd = Controls("ComboBox" & i)
    Next
End Sub
Public WithEvents Comd As MSForms.ComboBox
Private Sub Comd_Change()
    ?如何可得知 該Comd是按了哪一個"ComboBox" & n
   也就是 n 如何求得?
End Sub
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4#
發表於 2018-11-17 22:14 | 只看該作者
回復 3# GBKEE

謝謝 GBKEE版大:
原以為Public WithEvents Comd As MSForms.ComboBox
    Comd沒有Name之屬性
剛剛測試 一切OK    謝謝

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2018-11-17 14:57 | 只看該作者
回復 2# yangjie
直接給.Name
  1. Private Sub Comd_Change()
  2.   Select Case Comd.Name
  3.     Case "ComboBox1"
  4.        MsgBox "aaa"
  5.        '????
  6.     Case "ComboBox2"
  7.         '????
  8.     Case Else
  9.         '????
  10.     End Select
  11. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2018-11-16 23:58 | 只看該作者
在物件類別模組class1
Public WithEvents Comd As MSForms.ComboBox
Private Sub Comd_Change()
    ?如何可得知 該Comd是按了哪一個"ComboBox" & n
   也就是 n 如何求得?
End Sub
主要是若按了combobox3時要操作combobox4之設定
若按了combobox5時要操作combobox6之設定
若按了combobox7時要操作combobox8..............太多了
因此才需要用到 物件類別
敬請諸位大大協助
謝謝

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題