| Вопрос: Class -> GetType -> Class | Добавлено: 29.05.06 01:00 |
Автор вопроса:  Дмитрий Щапов
|
|
Public Interface IUnknown End Interface Public Class clsFirst : Public IUnknown End Class Public Class clsPobarabanu Dim first_1 As New clsFirst Dim type As type Dim first_2 As IUnknown Public Sub New() type = first_1.GetType() 'И вот здесь надо применить магию и выполнить 'такое преобразовение first_2 = type End Sub End Class Думаю суть ясна. Есть Type класса, надо инициализировать вторую переменную по этому Type. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  EROS Вопросов: 58 Ответов: 4255  |
Профиль | | #1 | Добавлено: 29.05.06 10:28 |
| CType(first_2,GetType(clsFirst)) | ||
|
Номер ответа: 2 Автор ответа: EROSВопросов: 58 Ответов: 4255 |
Профиль | | #2 | Добавлено: 29.05.06 13:12 |
|
сорри.. правильно будет так
CType(first_2,clsFirst) |
||
|
Номер ответа: 3 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #3 | Добавлено: 01.07.06 04:58 |
|
А зачем CType?
clsFirst реализует интерфейс IUnknown, поэтому привдение можно делать без оператора CType. first_2 = first_1 |
||
Страница: 1 |