| Вопрос: Как проверить поддерживает ли нужный интерфейс VB6 | Добавлено: 17.12.07 18:19 |
Автор вопроса:  Racot_2003
|
| Как проверить, что в переменной типа Object содержится ссылка на объект который реализует(поддерживает) нужный интерфейс. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 17.12.07 19:10 |
| [булевая_переменная] = TypeOf [объект] Is [имя_интерфейса] | ||
|
Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #2 | Добавлено: 17.12.07 20:26 |
Так-так-так, можно поподробней пжлст
|
||
|
Номер ответа: 3 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #3 | Добавлено: 17.12.07 20:30 |
| про "реализует нужный интервейс" плиз) | ||
|
Номер ответа: 4 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #4 | Добавлено: 17.12.07 22:54 |
|
Пажалста... Простейший пример:
Class1.cls Public Sub Foo() ' something End Sub Class2.cls Implements Class1 ' включаем интерфейс Class1 ' и реализуем его: Public Sub Class1_Foo() ' something End Sub Соббсна прога: Dim obj As Object Set obj = New Class2 Debug.Print TypeOf obj Is Class2 ' True Debug.Print TypeOf obj Is Class1 ' тоже True Краткое пояснение: Class2 имплементирует интерфейс Class1 Соответственно, объект класса Class2 может быть присвоен переменной типа Class1, как при наследовании (хотя это не наследование в чистом виде). |
||
|
Номер ответа: 5 Автор ответа: Racot_2003 Вопросов: 1 Ответов: 1 |
Профиль | | #5 | Добавлено: 17.12.07 23:27 |
Спасибо огромное!!! только что проверил на практике  Все работает,Еще раз спасибо огромное el-paso )))))
|
||
|
Номер ответа: 6 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #6 | Добавлено: 28.12.07 17:46 |
| У-у-у-у, я то думал вы про юзерский интерфейс. Ну чтоб оформление всей проги разом менял. | ||
Страница: 1 |