Как передать объект в функцию в vb6

Question

Допустим, я получил пару объектов, названных как txt1, и еще один объект как lbl1. У меня есть функция, которая должна вносить изменения в оба этих объекта, например выделение.

Я хочу получить значение этого объекта (не имеет значения, какой объект), а затем хочу выделить его.

Например:

Function Highlight(Obj1 As Object, Obj2 As Object)

    MyTxt = Obj1.Text
    Obj1.Text = ""
    Obj1.SetFocus

    MyCap = Obj2.Caption
    Obj2.Caption = ""

End Function

Как мне этого добиться?

Answer 1

Object не имеет свойства .Text или .Caption. Измените свой метод на:

Sub Highlight(Obj1 As TextBox, Obj2 As Label)

    MyTxt = Obj1.Text
    Obj1.Text = ""
    Obj1.SetFocus

    MyCap = Obj2.Caption
    Obj2.Caption = ""

End Sub

Answer 2

Выезд TypeOf:

if TypeOf Obj1 is TextBox then
   Obj1.text = "kkkkkk"
end if