標題: [發問] 如何判讀userform.combobox1是否存在 [打印本頁]

---

作者: yangjie    時間: 2018-11-11 10:21     標題: 如何判讀userform.combobox1是否存在

請教諸位大大:
       如何判讀userform.combobox1是否存在?
        謝謝指導!

---

作者: n7822123    時間: 2018-11-11 13:36

本帖最後由 n7822123 於 2018-11-11 13:45 編輯

回復 1# yangjie

這是我第100個帖子!

方法1:直接在該表單(Userform1)輸入以下程式判別

Dim 存在 As Boolean
For Each c In Controls
  If c.name = "ComboBox1" Then 存在 = True
Next
MsgBox IIf(存在, "ComboBox1存在", "ComboBox1不存在")


方法2:在模組中建立自定函數判別(兩個引數，第一個=表單名子，第2個=控制項名子)
          可以在任意表單的程序中 或者 模組的程序中做判別

If IsCtrExist("UserForm1", "ComboBox1") Then MsgBox "存在" Else MsgBox "不存在"

Public Function IsCtrExist(ByVal nameUF As String, ByVal nameC As String) As Boolean
Dim 存在1 As Boolean
Dim 存在2 As Boolean
Dim N%, i%
For i = 1 To UserForms.Count
  If UserForms.Item(i - 1).name = nameUF Then 存在1 = True: N = i - 1
Next i
If Not 存在1 Then GoTo 101
For Each c In UserForms.Item(N).Controls
  If c.name = nameC Then 存在2 = True
Next
101:
If 存在2 Then IsCtrExist = True Else IsCtrExist = False
End Function

---

作者: 准提部林    時間: 2018-11-11 23:04

Chk = IsObject(ComboBox11)
MsgBox Chk

---

作者: yangjie    時間: 2018-11-12 17:48

本帖最後由 yangjie 於 2018-11-12 17:49 編輯

回復 2# n7822123
謝謝 n7822123
謝謝  准提部林
完全了解

---

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