Monday, April 25, 2011

Can a function return a dictionary object?


Yes.
Answer# 1
Dim dicObj
Set dicObj = CreateObject("Scripting.Dictionary")
Set obj=getname
MsgBox(obj.item("name"))

Public Function getname()
dicObj.add "name","Uday Kumar"
Set getname=dicObj
End function

Answer# 2
Public Sub GetValue()
Set obj = getname
MsgBox (obj.Item("name"))
End Sub

Public Function getname()
Dim dicObj
Set dicObj = CreateObject("Scripting.Dictionary")
dicObj.Add "name", "Uday Kumar"
Set getname = dicObj
End Function

No comments:

Post a Comment