Windows Phone Show List Data from Web Server (Website)

Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Json
Imports System.Collections.ObjectModel
Imports System.IO
Imports System.Text

Partial Public Class MainPage
    Inherits PhoneApplicationPage

    ' Constructor
    Public Sub New()
        InitializeComponent()

        AddHandler Loaded, AddressOf MainPage_Loaded
    End Sub

    Dim prog As ProgressIndicator

    Private Sub MainPage_Loaded(sender As Object, e As System.Windows.RoutedEventArgs)

        Dim url As String = "http://localhost/myphp/showData.php"
        Dim uri As Uri = New Uri(url, UriKind.Absolute)

        Dim postData As StringBuilder = New StringBuilder()
        postData.AppendFormat("{0}={1}", "NULL", HttpUtility.UrlEncode(""))

        Dim client As WebClient
        client = New WebClient()
        client.Headers(HttpRequestHeader.ContentType) = "application/x-www-form-urlencoded"
        client.Headers(HttpRequestHeader.ContentLength) = postData.Length.ToString()

        AddHandler client.UploadStringCompleted, AddressOf client_UploadStringCompleted
        AddHandler client.UploadProgressChanged, AddressOf client_UploadProgressChanged

        client.UploadStringAsync(uri, "POST", postData.ToString())

        prog = New ProgressIndicator()
        prog.IsIndeterminate = True
        prog.IsVisible = True
        prog.Text = "Loading...."
        SystemTray.SetProgressIndicator(Me, prog)

    End Sub

    Private Sub client_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs)
        'Me.txtResult.Text = "Uploading.... " & e.ProgressPercentage & "%"
    End Sub

    Private Sub client_UploadStringCompleted(sender As Object, e As UploadStringCompletedEventArgs)
        If e.Cancelled = False And e.Error Is Nothing Then

            Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(e.Result))
            Dim list As New ObservableCollection(Of Customer)()
            Dim serializer As New DataContractJsonSerializer(GetType(ObservableCollection(Of Customer)))
            list = DirectCast(serializer.ReadObject(ms), ObservableCollection(Of Customer))

            Dim myCustomer As New List(Of Customer)

            For Each cm As Customer In list
                Dim sCustomerID As String = cm.CustomerID.ToString()
                Dim sName As String = cm.Name.ToString()
                Dim sEmail As String = cm.Email.ToString()
                Dim sCountryCode As String = cm.CountryCode.ToString()
                Dim sBudget As String = cm.Budget.ToString()
                Dim sUsed As String = cm.Used.ToString()

                myCustomer.Add(New Customer(sCustomerID, sName, sEmail, sCountryCode, sBudget, sUsed))
            Next

            Me.CustomerList.ItemsSource = myCustomer

            prog.IsVisible = False
        End If
    End Sub


    <DataContract()> _
    Public Class Customer

        <DataMember()> _
        Public Property CustomerID() As String
            Get
                Return m_CustomerID
            End Get
            Set(value As String)
                m_CustomerID = value
            End Set
        End Property
        <DataMember()> _
        Public Property Name() As String
            Get
                Return m_Name
            End Get
            Set(value As String)
                m_Name = value
            End Set
        End Property
        <DataMember()> _
        Public Property Email() As String
            Get
                Return m_Email
            End Get
            Set(value As String)
                m_Email = value
            End Set
        End Property
        <DataMember()> _
        Public Property CountryCode() As String
            Get
                Return m_CountryCode
            End Get
            Set(value As String)
                m_CountryCode = value
            End Set
        End Property
        <DataMember()> _
        Public Property Budget() As String
            Get
                Return m_Budget
            End Get
            Set(value As String)
                m_Budget = value
            End Set
        End Property
        <DataMember()> _
        Public Property Used() As String
            Get
                Return m_Used
            End Get
            Set(value As String)
                m_Used = value
            End Set
        End Property

        Private m_CustomerID As String
        Private m_Name As String
        Private m_Email As String
        Private m_CountryCode As String
        Private m_Budget As String
        Private m_Used As String

        Public Sub New(ByVal strCustomerID As String,
                       ByVal strName As String,
                       ByVal strEmail As String,
                       ByVal strCountryCode As String,
                       ByVal strBudget As String,
                       ByVal strUsed As String)
            Me.CustomerID = strCustomerID
            Me.Name = strName
            Me.Email = strEmail
            Me.CountryCode = strCountryCode
            Me.Budget = strBudget
            Me.Used = strUsed

        End Sub

    End Class
   
End Class

using System;
using System.Windows;
using Microsoft.Phone.Controls;
using System.Collections.Generic;
using System.Runtime.Serialization;
using System.Runtime.Serialization.Json;
using System.Collections.ObjectModel;
using System.IO;
using System.Text;
using Microsoft.Phone.Shell;
using System.Net;

namespace PhoneApp
{
    public partial class MainPage : PhoneApplicationPage
    {

        // Constructor
        public MainPage()
        {
            InitializeComponent();

            Loaded += MainPage_Loaded;
        }

        ProgressIndicator prog;

        private void MainPage_Loaded(object sender, System.Windows.RoutedEventArgs e)
        {
            string url = "http://localhost/myphp/showData.php";
            Uri uri = new Uri(url, UriKind.Absolute);

            StringBuilder postData = new StringBuilder();
            postData.AppendFormat("{0}={1}", "NULL", HttpUtility.UrlEncode(""));

            WebClient client = default(WebClient);
            client = new WebClient();
            client.Headers[HttpRequestHeader.ContentType] = "application/x-www-form-urlencoded";
            client.Headers[HttpRequestHeader.ContentLength] = postData.Length.ToString();

            client.UploadStringCompleted += client_UploadStringCompleted;
            client.UploadProgressChanged += client_UploadProgressChanged;

            client.UploadStringAsync(uri, "POST", postData.ToString());

            prog = new ProgressIndicator();
            prog.IsIndeterminate = true;
            prog.IsVisible = true;
            prog.Text = "Loading....";
            SystemTray.SetProgressIndicator(this, prog);
        }

        private void client_UploadProgressChanged(object sender, UploadProgressChangedEventArgs e)
        {

        }

        private void client_UploadStringCompleted(object sender, UploadStringCompletedEventArgs e)
        {


            if (e.Cancelled == false && e.Error == null)
            {
                MemoryStream ms = new MemoryStream(Encoding.UTF8.GetBytes(e.Result));
                ObservableCollection<Customer> list = new ObservableCollection<Customer>();
                DataContractJsonSerializer serializer = new DataContractJsonSerializer(typeof(ObservableCollection<Customer>));
                list = (ObservableCollection<Customer>)serializer.ReadObject(ms);

                List<Customer> myCustomer = new List<Customer>();

                foreach (Customer cm in list)
                {
                    string sCustomerID = cm.CustomerID.ToString();
                    string sName = cm.Name.ToString();
                    string sEmail = cm.Email.ToString();
                    string sCountryCode = cm.CountryCode.ToString();
                    string sBudget = cm.Budget.ToString();
                    string sUsed = cm.Used.ToString();

                    myCustomer.Add(new Customer(sCustomerID, sName, sEmail, sCountryCode, sBudget, sUsed));
                }

                this.CustomerList.ItemsSource = myCustomer;
                prog.IsVisible = false;
            }

        }

    }

    [DataContract]
    public class Customer
    {
        [DataMember]
        public string CustomerID { get; set; }

        [DataMember]
        public string Name { get; set; }

        [DataMember]
        public string Email { get; set; }

        [DataMember]
        public string CountryCode { get; set; }

        [DataMember]
        public string Budget { get; set; }

        [DataMember]
        public string Used { get; set; }

        public Customer(string strCustomerID, string strName, string strEmail
            ,string strCountryCode
            , string strBudget
            , string strUsed)
        {
            this.CustomerID = strCustomerID;
            this.Name = strName;
            this.Email = strEmail;
            this.CountryCode = strCountryCode;
            this.Budget = strBudget;
            this.Used = strUsed;
        }

    }
}