使用xml实现Select Case方法

Dim Color, MyVar
Function ChangeBackground (Color)
   MyVar = lcase (Color)
   Select Case MyVar
      Case "red"     Call Red()
      Case "green"   Call Green()
      Case "blue"    Call Blue()
   End Select
End Function

Function Red()
   msgbox "red"
End Function

Function Green()
   msgbox "green"
End Function

Function Blue()
   msgbox "blue"
End Function

Dim Color, MyVar
Function ChangeBackground(Color)
      MyVar = lcase (Color)
      Dim xmlDoc,xmlRoot,xmlColor
      Set xmlDoc = CreateObject("Microsoft.XMLDOM") '创建XML DOM对象
      xmlDoc.async = False '控制加载模式为同步模式（xml树加载完毕后再执行后续代码）
      xmlDoc.load "d:\SelectCase.xml" 'strXmlFilePath'载入xml文件
      Set xmlRoot = xmlDoc.documentElement
      Set xmlColor = xmlRoot.selectNodes(MyVar)  '选择的颜色
      cmd = xmlColor(0).selectSingleNode("CallFunction").text
      Execute cmd
      Set xmlColor = Nothing
      Set xmlRoot = Nothing
      Set xmlDoc = Nothing
End Function


Function Red()
   msgbox "red"
End Function

Function Green()
   msgbox "green"
End Function

Function Blue()
   msgbox "blue"
End Function

<?xml version="1.0" encoding="UTF-8"?>
<root>
<Red>
<CallFunction>Call Red()</CallFunction>
</Red>
<Green>
<CallFunction>Call Green()</CallFunction>
</Green>
<Blue>
<CallFunction>Call Blue()</CallFunction>
</Blue>
</root>