VBÈçºÎÅжÏÒ»¸ö¿Ø¼þÊÇ·ñÎı¾¿ò

VBÈçºÎÅжÏÒ»¸ö¿Ø¼þÊÇ·ñÎı¾¿ò£¬ÊÇ·ñÊÇ×éºÏ¿ò£¿

---

ÕÒµ½´ð°¸£¬½áÌù

---

TypeOf

---

½Ó·Ö.

---

VB code:

dim o
for each o in controls
debug.print typename(o)
next

---

µäÐ͵ĵ¹·ÖÌù£¡

---

5Â¥Õý½â£¡

---

If TypeOf ¿ÉÒÔÅжϴ«Èë¹ý³ÌµÄ¿Ø¼þÊÇ·ñΪһÎı¾¿ò¡£

Sub ControlProcessor(MyControl As Control)
  If TypeOf MyControl Is CommandButton Then
      Debug.Print "You passed in a " & TypeName(MyControl)
  ElseIf TypeOf MyControl Is CheckBox Then
      Debug.Print "You passed in a " & TypeName(MyControl)
  ElseIf TypeOf MyControl Is TextBox Then
      Debug.Print "You passed in a " & TypeName(MyControl)
  End If
End Sub

---

ÒýÓÃ

µäÐ͵ĵ¹·ÖÌù£¡

Îҵö¥×ïÁË

---

typename