ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
14 сообщений из 14, страница 1 из 1
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816156
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit

Private Sub Main()
    Dim objCn As New ADODB.Command
    MySub (objCn)
End Sub

Public Sub MySub(ByRef obj As Object)
    ' Как тут узнать, что за тип имеет obj?
End Sub

Вариант типа вызвать метод и перехватить ошибку не предлагать, так как методы объектов разных типов могут иметь одну и ту же сигнатуру и, в общем случае, может не быть уникального метода.

Спасибо
...
Рейтинг: 0 / 0
07.12.2004, 11:59:26
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816238
Paksly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paksly
Участник
Код: plaintext
1.
2.
3.
if type of obj is Adodb.command then
 'делай что хочешь
end if
...
Рейтинг: 0 / 0
07.12.2004, 12:25:43
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816263
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
Спасибо, но не работает. TypeOf я так пробовал применить:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Private Sub Main()
    Dim objCn As New ADODB.Command
    MySub (objCn)
End Sub

Public Sub MySub(ByRef obj As Object)
    If TypeOf obj Is ADODB.Command Then
        MsgBox ("ADODB.Command")
    Else
        MsgBox ("Unknown object type")
    End If
End Sub

Всплывает окно "Unknown object type"...
...
Рейтинг: 0 / 0
07.12.2004, 12:32:07
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816280
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Замените
MySub (ojbCn)
на
Call MySub(ojbCn)
или
MySub ojbCn
...
Рейтинг: 0 / 0
07.12.2004, 12:38:54
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816281
Paksly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paksly
Участник
Попробуй убрать
Код: plaintext
As Object
в параметрах процедуры.
Пускай передается как Variant, может что хорошего выйдет.
...
Рейтинг: 0 / 0
07.12.2004, 12:39:51
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816292
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
WorobjoffЗамените
MySub (ojbCn)
на
Call MySub(ojbCn)
или
MySub ojbCn

Помогло. Правда, я пока не нахожу объяснения такому поведению.

Спасибо!

PakslyПопробуй убрать
Код: plaintext
As Object
в параметрах процедуры.
Пускай передается как Variant, может что хорошего выйдет.

Это условие задачи, изменить невозможно.
...
Рейтинг: 0 / 0
07.12.2004, 12:43:32
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816329
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
MySub (ojbCn)
соответствует вызову
Call MySub ((ojbCn))
а это уже не ссылка - а свойство по умолчанию.
...
Рейтинг: 0 / 0
07.12.2004, 12:55:02
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816339
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
В документации нашёл такое:

авторIf you omit the Call keyword, you also must omit the parentheses around argumentlist.

Но почему же компилятор не ловит случай, когда Call отсутсвует, а скобки есть?
...
Рейтинг: 0 / 0
07.12.2004, 12:56:55
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816342
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
WorobjoffMySub (ojbCn)
соответствует вызову
Call MySub ((ojbCn))
а это уже не ссылка - а свойство по умолчанию.

Может быть наоборот? И потом, какое свойство по умолчанию у модуля?
...
Рейтинг: 0 / 0
07.12.2004, 12:57:37
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816390
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Расположи на пустой форме TextBox и кнопку
И посмотри что будет
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Text1_Click()
   MsgBox (Text1)
End Sub

Private Sub Command1_Click()
   MsgBox (Command1)
End Sub
...
Рейтинг: 0 / 0
07.12.2004, 13:15:43
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816490
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
WorobjoffРасположи на пустой форме TextBox и кнопку
И посмотри что будет
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Text1_Click()
   MsgBox (Text1)
End Sub

Private Sub Command1_Click()
   MsgBox (Command1)
End Sub


Это к тому, что в конструкции MsgBox (Text1) передаётся не ссылка на объект, а значение по умолчанию экземпляра, как я понял. Но тем не менее, как объяснить, что делает MySub(obj)?
...
Рейтинг: 0 / 0
07.12.2004, 13:51:02
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816502
Стр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стр
Гость
2 jimmers
вычисляет выражение
...
Рейтинг: 0 / 0
07.12.2004, 13:56:44
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32816558
Фотография jimmers
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jimmers
Участник
Всё ясно. Спасибо.
...
Рейтинг: 0 / 0
07.12.2004, 14:15:54
| Ответить | Цитировать | Написать  
Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
    #32817344
Alexey Kudinov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Kudinov
Участник
Замечу еще, что TypeOf, строго говоря, определяет имплементирует ли объект заданный интерфейс (физически вызывает QueryInterface)

Есть еще TypeName, его можно использовать чтобы определить Default Interface, т.е. имя класса.

Хотя практически, конечно, имеет смысл использовать TypeOf
...
Рейтинг: 0 / 0
07.12.2004, 18:16:31
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в VB6 узнать тип объекта, переданного в процедуру по ссылке как Object?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32816342&tid=2168482]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 203ms
total:  321ms
созд. / загр.: 321ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]