如何将对象传递给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