Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Partial Public Class MainPage
- Inherits PhoneApplicationPage
- Dim webClient As New System.Net.WebClient
- Dim a As String
- Dim b As String
- Dim result As String = Nothing
- ' Constructor
- Public Sub New()
- InitializeComponent()
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
- a = "USD"
- b = "GBP"
- webClient = New WebClient
- Dim result As String = webClient.DownloadStringAsync(New Uri("http://rate-exchange.appspot.com/currency?from=" + a + "&to=" + b) as String)
- TextBox1.Text = result
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement