GetControlType? Как програмно определить тип объекта \ кон.?

[xenomorph]

GetControlType? Как програмно определить тип объекта \ контрола?
--
Привет всем!

Есть контрол определённый как объект:

т.е. проще не примере:

Dim obj_Control As Object
Set obj_Control = Text1

Как програмно определить тип контрола -
т.е. Что внутри текстбокс?
есть ли GetControlType?

Это надо для перечисления свойств контролов
рассположеных на форме -

Dim objControl As Control
Private Sub Command1_Click()
On Error Resume Next
For Each objControl In Controls
objControl.Enabled = False
Next objControl
End Sub
--
Заранее огромное спасибо!

[xenomorph]

'Reference: TypeLib Information

Код: Выделить всё

'-------------------------------------
Option Explicit
Public Function GetObjectType(ByRef Obj As Object) As String
    Dim IFaceInfo As TLI.InterfaceInfo
    Set IFaceInfo = TLI.InterfaceInfoFromObject(Obj)
    GetObjectType = Right(IFaceInfo.Name, Len(IFaceInfo.Name) - 1)
End Function

[BV]

Хм... TypeName?

[CodeName33]

А TypeName почему не подходит?

Код: Выделить всё

Dim Obj As Object

Set Obj = Text1

MsgBox TypeName(Obj)

[ANDLL]

А TypeName почему не подходит?

Потому что он не уникальный.
Кроме того, если объект не реализует IDispatch то это вообще невозможно. Даже если реализует, то то же не факт.
Короче, в общем случае никак.
Кстати, это что, попытка себе ответить?

[Tamplier]

TypeOf и перебор всех классов в проекте?
Долго, но эффективно...

[ANDLL]

TypeOf и перебор всех классов в проекте?
Долго, но эффективно...

Я бы сказал по другому, БЕС ТОЛКУ. Напомни, что у нас делает TypeOf?

[Tamplier]

TypeOf и перебор всех классов в проекте?
Долго, но эффективно...

Я бы сказал по другому, БЕС ТОЛКУ. Напомни, что у нас делает TypeOf?

Проверяет схожее ли название выбранного объекта с преложенным.

[alibek]

Проверяет схожее ли название выбранного объекта с преложенным.

Разумеется, это не так.

[Tamplier]

А чем вам не подходит?:

Код: Выделить всё

private sub ViewText (viewtextcontrol as Control)
if typeof viewtextcontrol is vb.label then
txtContainer.text=viewtextcontrol.caption
elseif typeof viewtextcontrol is vb.combobox then
txtcontainer.text=viewtextcontrol.text
endif
end sub


это фрагмент рабочей процедуры. Кто скажет, что это не определение контрола, пусть кинет в меня столько камней, сколько припрятал запазухой.

[ANDLL]

Ну например тем, что такого класса в проекте может не быть.
Кроме того, TypeOf проверяет, поддерживает ли класс указанный интерфейс, а не то что Вы думаете.
Кроме того, тебе написать код класса, у которого будет имя Class1, а проверка TypeOf ... is vb.label будет говорить true?

это фрагмент рабочей процедуры. Кто скажет, что это не определение контрола, пусть кинет в меня столько камней, сколько припрятал запазухой.

Не определяет она тип контрола, тебе это уже два человека говорили. Если она у тебя один раз правильно его определила, это не значит, что всегда будет правильно определять.

[Tamplier]

Ну, не на... Всю жизнь нормально определяла, все работало...