Imports System 
Imports System.Web.UI 
Imports localhost 

Public Partial Class StockTickerClient 
    Inherits Page 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
        If Not IsPostBack Then 
            lblMessage.Text = "Pierwsze wczytanie o godzinie " & DateTime.Now.ToLongTimeString() 
        Else 
            lblMessage.Text = "Odświeżenie o godzinie " & DateTime.Now.ToLongTimeString() 
        End If 
    End Sub 
    
    Protected Sub btnWebService_Click(ByVal sender As Object, ByVal e As EventArgs) 
        Dim proxy As New StockTickerSimple() 
        lblMessage.Text = [String].Format("Usługa sieciowa zwraca cenę MSFT: {0}", proxy.GetPrice("MSFT").ToString()) 
    End Sub 
End Class 
