[VB][反射]利用TypeLib Information枚舉對象屬性、利用CallByName反射調用函數

 利用TypeLib Information枚舉對象屬性、利用CallByName反射調用函數

 '引用TypeLib Information</p><p>Sub listcontrols()<br />Cells(1, 1) = "控制項"<br />Cells(1, 2) = "屬性，方法，事件"<br />Cells(1, 3) = "值"<br />[a1:c1].Interior.ColorIndex = 3<br /> On Error Resume Next<br /> Dim ctl As Object, n As Long<br /> n = 1<br /> For Each ctl In UserForm1.Controls<br /> Dim iInf As InterfaceInfo<br /> Set iInf = InterfaceInfoFromObject(ctl)<br /> If Not (iInf Is Nothing) Then<br /> Dim mem As MemberInfo<br /> For Each mem In iInf.Members<br /> If mem.InvokeKind Then<br /> n = n + 1<br /> Cells(n, 1) = ctl.Name<br /> Cells(n, 2) = mem.Name<br /> Cells(n, 3) = CallByName(ctl, mem.Name, VbGet)<br /> End If<br /> Next<br /> End If<br /> Next<br />[a1:c65536].Columns.AutoFit<br />End Sub<br />