Передача объекта в процедуру

[tarrac]

В эти выходные столкнулся с такой "траблой". Есть процедура, которая в качестве параметра должна принимать объект типа ComboBox. Но при передаи передаеться почему то не сам объект, а только его имя - строка типа String

Вот пример

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

Sub Main()
    Dim obj As ComboBox
    Proc(obj)
End sub

Sub Proc(obg as ComboBox)
   Stop
End Sub

Это совсем не работает, а при замене obg as ComboBox на obg as Variant, показывает, что в процедуру передаеться лишь строка типа String (Variant/String). Замена obg as ComboBox на obg as String проходит, но это совсем не то, что нужно. Причем если указать obg as ComboBox - выдает ошибку Type mismatch
Помогите, кто с таким сталкивался.

Систему переустанавливал (правда не по этой причине), однако это ничего не дало.

[Andrey Fedorov]

Это совсем не работает,

Неправда - это работает:

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

Private Sub Form_Load()
    Dim obj As VB.ComboBox

    Set obj = Me.Combo1
   
    obj.AddItem "Test 1"
    obj.AddItem "Test 2"
   
    Proc obj
End Sub

Sub Proc(obg As VB.ComboBox)
    Dim i As Integer
   
    For i = 0 To obg.ListCount - 1
        Debug.Print obg.List(i)
    Next i
End Sub


[tarrac]

А вот так нет

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

Private Sub Form_Load()
'    Set db = New clDate
'    db.strSQL = "select * from main"
   
   
    aswq (Combo1)
End Sub
Sub aswq(ByRef a As VB.ComboBox)
   
End Sub

Combo1 на форме лежит

[Andrey Fedorov]

А вот так нет

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

    aswq (Combo1)


Скобочки убери.

[tarrac]

Благодарю

[tarrac]

Хотя странно - это же не функция, что бы игнорировать результаты

[alibek]

Скобки, в данном случае, означают передачу параметра по значению (а не по ссылке).

[tarrac]

Всем спасибо большое!

[Vi]

Скобки, в данном случае, означают передачу параметра по значению (а не по ссылке).

Скобки в данном случае в первую и последнюю очередь означают вычисление выражения. В частности, у КомбоБокса есть свойство по умолчанию, через которое вычисляются объекты.

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

Property _Default As String
    Default member of VB.ComboBox


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