如何使用哈希表传递数据

定义哈希表，并且参加相应的参数

 Dim values As New Hashtable()

 Dim y As Double
 Dim x As Double

 values.Add("x", x)
 values.Add("y", y)

 

FunctionA(values)

 

 

接收哈希表传来的数据，并且使用他的数据

   Public Sub FunctionA(ByVal param As Object)

 Dim values As Hashtable

Dim y As Double
 Dim x As Double
 values = CType(param, Hashtable)

x=values("x)

y=values("y)

End Sub