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