Question

我有这个用户定义的数据类型：

Type Image
  Filename As String
  Label As String
End Type

我想创建一个可以返回图像数组的函数。到目前为止，我创造了这个：

Function GetImages() As Variant
  Dim images(1) As Image

  Dim image0 As Image
  image0.Filename = "test0.txt"
  image0.Label = "test0"

  Dim image1 As Image
  image1.Filename = "test1.txt"
  image1.Label = "test1"

  images(0) = image0
  images(1) = image1

  GetImages = images
End Function

该行＆＃34; GetImages = images＆＃34;给我这个编译错误：类型不匹配：IMAGES

有什么想法吗？

Answer 1

您无法将类型数组转换为Variant。

使用for temp_variable in list_name:代替Class：

Type

您可以访问类元素之类的类元素：

Class Image
    Public Filename As String
    Public Label As String
End Class

Function GetImages() As Variant
  Dim images(1) As Image

  Dim image0 As New Image
  image0.Filename = "test0.txt"
  image0.Label = "test0"

  Dim image1 As New Image
  image1.Filename = "test1.txt"
  image1.Label = "test1"

  Set images(0) = image0
  Set images(1) = image1

  GetImages = images
End Function

如何在Lotusscript功能中返回用户数据类型的动态数组

1 个答案: