如果让FUNCTION返回自定义类型的数据！？

Question

Option Explicit
Private Type xxx
    x As String
    y As String
End Type
Private Sub Form_Load()
    Dim yyyy As xxx
    yyyy = ggg()
End Sub
Private Function ggg() As xxx
    Dim a As xxx
    a.x = 0
    a.y = 1
    ggg = a
End Function
给你个例子。希望有帮助。

Answer 1

我想DragonFly_1976(龙飞) 说的是对的！=================================人见人爱的静静小艾与你交流，共享！
[email protected]

Answer 2

Type XX
   a as string
   b as stirng
end typeprivate function g() as xx
   ...............
   ...............
   g=............
end functionprivate sub sample()
   dim a as xx
   
    a=g()
end sample