Windows 脚本组件 与 ACCESS

    <Registration
        Description = "ConvertTemp"
        ProgID = "ConvertTemp.Scriptlet"
        Version = "1.00">
    </Registration>
    
    <Public>
        <Property Name = "Number">
            <Get InternalName = "getNumber"/>
            <Put InternalName = "setNumber"/>
        </Property>

        <Method Name = Celsius>
            <PARAMETER Name = F/>
        </Method>
        
        <Method Name = Fahrenheit>
            <PARAMETER Name = C/>
        </Method>
        
        <Event Name="onNumberChange"/>
    
    </Public>

    <SCRIPT LANGUAGE=VBScript>

        Dim num

        ' Get 属性
        Function getNumber()
           getNumber = num
        End Function

        ' Put 属性
        Function setNumber(newNumber)
           ' 验证输入的数据
           If Not IsNumeric(newNumber) Then
              num = 0 ' 当不是数字时，设为 0
           Else
              num = newNumber
              ' 引发事件
              FireEvent ("onNumberChange")
           End If
        End Function

        ' 以下为两个 COM 方法
        Function Celsius(F)
              Celsius = 5 / 9 * (F - 32)
        End Function

        Function Fahrenheit(C)
              Fahrenheit = (9 / 5 * C) + 32
        End Function

    </SCRIPT>

</SCRIPTLET>

' Put 属性
Function setNumber(newNumber)
   ' 验证输入的数据
   If Not IsNumeric(newNumber) Then
      num = 0 ' 当不是数字时，设为 0
   Else
      num = newNumber
      ' 引发事件
      FireEvent ("onNumberChange")
   End If
End Function

Function Fahrenheit(C)
   Fahrenheit = (9/5 * C) + 32
End Function