如何在一个函数中获取2个返回值

Question

我想在一个函数中获得两个输出值是不可能的？ 我只是使用String数据类型并拆分值。 但有任何其他简单的方法来获得两个输出值......

其实我想检查文件夹中有多少jpg文件是水平和垂直的 所以

Public Function HVChecking() as string
  Dim HCount%, VCount%
  '' 
  ''
  ''
  ''
 Return HCount.ToString & "|" & VCount.ToString
End Function

最后我用“|”拆分了值字符...

有任何其他选项可以在一个函数中将两个值分开。

我不知道Dictionary，HashTable ......哪一个最适合这个？

Answer 1

我认为您可以向函数发送两个ByRef参数。我的意思是，

Public Sub HVChecking(ByRef HCount as Integer, ByRef VCount as Integer)

您可以将该功能称为

Dim HCount%, VCount%
HVChecking(HCount, Vcount)

Answer 2

框架中存在数据类型以封装两个整数，Point立即浮现在脑海中。

如果您想添加一些上下文，可以创建自己的Class or Structure。

作为最后的手段，或者如果您没有时间键入4行，则可以使用ByRef参数。这些可以提供良好的性能，但它们是good reason的传统方法。