Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница:

 

  Вопрос: Сложный вопрос по UserControl-ам Добавлено: 17.07.03 19:22  

Автор вопроса:  Comanche

Есть такая чудесная библиотека – TLBINF32.DLL, с помощью которой можно получить список всех свойств заданного элемента управления. Например:

 

Public Function CollectProperties(Target As Object) As Collection

   Dim oTLB As InterfaceInfo

   Dim sMemberName As String

   Dim sInvokeKind As String

   Dim i As Integer

   Dim kFuncReturn As Collection

   Dim o As clsMember

  

   Set kFuncReturn = New Collection

   Set oTLB = TLI.InterfaceInfoFromObject(Target)

   For i = 1 To oTLB.Members.Count

      sInvokeKind = ReturnInvokeKind(oTLB.Members(i).InvokeKind)

      If InStr(1, sInvokeKind, "INVOKE_PROPERTY") > 0 Then

         sMemberName = oTLB.Members(i)

         If Left$(sMemberName, 1) <> "_" Then

            Set o = New clsMember

            o.MemberName = sMemberName

            o.MemberType = sInvokeKind

            kFuncReturn.Add o

         End If

      End If

   Next i

   Set CollectProperties = kFuncReturn

End Function

 

И пример вызова:

 

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам