settings.vb

来自「讲解visual studio的应用」· VB 代码 · 共 25 行

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Settings
    Inherits System.Web.Services.WebService

    Private Shared settingsValue As String

    <WebMethod()> _
    Public Function GetPropertyValue(ByVal propertyName As String) As String
        Return settingsValue
    End Function

    <WebMethod()> _
    Public Sub SetPropertyValue(ByVal propertyName As String, ByVal serializedValue As String)
        settingsValue = serializedValue
    End Sub


End Class