Webサービスの接続先を動的に切り替える方法

Public Class ZipCodeForm

    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click

        'Webサービスの接続先をDebugとReleaseで切り替える
        Dim ws As New WebService1.WebService1

#If DEBUG Then
        'Debug時の接続先
        ws.Url = "http://localhost:1257/WebService1.asmx"
#Else
        'Release時の接続先
        ws.url = "http://www.wednesdaymoon.net/WebService1.asmx"
#End If
        MessageBox.Show(ws.HelloWorld())
        
    End Sub
End Class

ツイート