標題: [發問] 於物件類別模組如何求得該ComboBox之(Name)? [打印本頁]

---

作者: yangjie    時間: 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    時間: 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..............太多了
因此才需要用到 物件類別
敬請諸位大大協助
謝謝

---

作者: GBKEE    時間: 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

複製代碼

---

作者: yangjie    時間: 2018-11-17 22:14

回復 3# GBKEE

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

---

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