Visual Basic Improvements in Visual Studio 11: Listing 1.

Loading the four Web pages with synchronous Get method.

Const msdnURL = "http://www.msdn.com"
  Const bingURL = "http://www.bing.com"

  Private Sub btnLoadPagesSync_Click(sender As Object, e As EventArgs) Handles btnLoadPagesSync.Click
    'No Web pages will appear until they are all loaded
    Call DoLoadPagesSync()
  End Sub

  Private Sub DoLoadPagesSync()
    'Load each page synchronously over http for demo
    btnLoadPagesSync.BackColor = Color.Red
    Application.DoEvents()
    Dim StartTime = Now
    UpdateWebControlSync(msdnURL, wb1)
    UpdateWebControlSync(bingURL, wb2)
    UpdateWebControlSync(msdnURL, wb3)
    UpdateWebControlSync(bingURL, wb4)
    btnLoadPagesSync.BackColor = System.Windows.Forms.Button.DefaultBackColor
    lblElapsedSynch.Text = "Button response Time: " & DateTime.Now.Subtract(StartTime).ToString
  End Sub

  Private Sub UpdateWebControlSync(webPageURL As String, wc As WebBrowser)
    'Simple method to display Web pages on a windows form
    Try
      wc.DocumentText = ""

      'Using synchonous Get method rather than asynchronous GetAsync method
      'Synchronous call to retrieve the HTML, method is not suspended during load
      Dim response = New System.Net.Http.HttpClient().Get(New System.Uri(webPageURL))

      'Sync method as completed and execution continues
      Dim pageHTML = response.Content.ReadAsString
      wc.Document.Write(pageHTML)
    Catch ex As Exception
      Dim msg = "Exception: {0}" & vbCrLf & vbCrLf & "{1}"
      MessageBox.Show(String.Format(msg, ex.Message, ex.InnerException.Message))
    End Try
    Return
  End Sub

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].

comments powered by Disqus

Featured

  • .NET Core Ranks High Among Frameworks in New Dev Survey

    .NET Core placed high in a web-dominated ranking of development frameworks published by CodinGame, which provides a tech hiring platform.

  • Here's a One-Stop Shop for .NET 5 Improvements

    Culled from reams of Microsoft documentation, here's a high-level summary of what's new for performance, networking, diagnostics and more, along with links to the nitty-gritty details for those wanting to dig in more.

  • Azure SQL Database Ranked Among Top 3 Databases of 2020

    Microsoft touted the inclusion of Azure SQL Database among the top three databases of 2020 in a popularity ranking by DB-Engines, which collects and manages information about database management systems, updating its lists monthly.

  • Time Tracker Says VS Code Is No. 1 Editor for Devs, Some Working 15+ Hours Per Day

    WakaTime, which does time tracking for programmers, released data for 2020 showing that Visual Studio Code is by far the top editor/IDE used by its coders, some of whom are hacking away for more than 15 hours per day.

Upcoming Events