|
|
|
|
|
Home
»
VB.NET
»
Using Web Browser options in C# and VB.NET
|
|
|
|
Author Rank :
|
|
|
Page Views :
|
45641
|
|
Downloads :
|
0
|
|
Rating :
|
Rate it
|
|
Level :
|
Beginner
|
|
I wrote this article in Sept 2001 in response to a question on discussion forums - how to create a Web Browser in C#? Recently, I got a question on how to use Browser's Save As option programmatically. This article explains how to use Web Browser ActiveX to your project to developer your own customized Web Browser and use its options. FYI: Visual Studio 2005 already provides a Windows Forms Web Browser control. Read my article here. Windows Forms 2.0 Web Browser Control
Adding Web Browser ActiveX.
Create a Windows application and right, right click on toolbox window, and select "Customize Toolbox". In COM components, you'll see "Microsoft Web Browser" component an dll is "Schdocvw.dll".

Clicking OK button adds "Explorer" control to your toolbox. See toolbox below.

Now you drag this "Explorer" control to your form. The default name of the control is "axWebBrowser1".
Designing GUI.
Now I add a toolbar with few buttons on it. You can see my toolbars tutorial to see how to add toolbar buttons, load images and write event handlers for toolbar buttons.
Besides toolbar, I also add a URL text box, a button and organize my form so it would look like the below fig.

Home, Previous, Next, Stop, and Refresh toolbar buttons are self-explanatory and provides same functionality as a browser does. Go button loads the specified URL in the browser control.
Writing Code
Now I write the code on "Go button" click and toolbar buttons. In a moment, you'll see how you can customize your own browser writing few lines of code. The Navigate method of browser control views a page in the viewer. Other methods are pretty simple and self explanatory such as GoHome, Stop, Refresh, GoBack and GoForward.
Source Code: VB.NET.
Private Sub button1_Click_1(ByVal sender As Object, ByVal e As System.EventArgs)
Dim nullObject As System.Object = 0 Dim str As String = "" Dim nullObjStr As System.Object = str Cursor.Current = Cursors.WaitCursor axWebBrowser1.Navigate(textBox1.Text, nullObject, nullObjStr, nullObjStr, nullObjStr) Cursor.Current = Cursors.Default End Sub 'button1_Click_1
Here is code for toolbar button click.
Private Sub toolBar1_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
If e.Button = tb1 Then axWebBrowser1.GoHome() End If If e.Button = tb2 Then axWebBrowser1.Refresh() End If If e.Button = tb3 Then axWebBrowser1.GoBack() End If If e.Button = tb4 Then axWebBrowser1.GoForward() End If If e.Button = tb5 Then axWebBrowser1.Stop() End If End Sub 'toolBar1_ButtonClick
Source Code: VB.NET.
VB.NET code is nothing else but a conversion of C# code. Here is the code navigates the URL using Web Browser's Navigate method.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nullObject As System.Object = 0 Dim str As String = "" Dim nullObjStr As System.Object = str Cursor.Current = Cursors.WaitCursor AxWebBrowser1.Navigate("http://www.microsoft.com", nullObject, nullObjStr, nullObjStr, nullObjStr)Cursor.Current = Cursors.Default End Sub You can call Stop, GoHome, Refresh, GoForward and other methods in the same way we did in C# code.
The Application.
The GUI of the program looks like the following image. Go button navigates the URL and other buttons are pretty self-explanatory.

Using Save As and other Browser Options.
There are requirements when you may want to use Save, Save As, Print or other browser options. Web Browser ActiveX control supports all these options and you use them by using WebBrowser.ExecWB method. This method takes parameters of command type and prompt user.
The following code shows how to use Browser's SaveAs option programmatically.
Private Function IsSaveAsAvailable() As Boolean
Dim response As Integer = CInt(axWebBrowser1.QueryStatusWB(SHDocVw.OLECMDID.OLECMDID_SAVEAS))Return(If(response And CInt(SHDocVw.OLECMDF.OLECMDF_ENABLED)) <> 0 Then True Else False) 'ToDo: Unsupported feature: conditional (?) operator.
End Function 'IsSaveAsAvailable
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim nullObject As System.Object = 0 Dim str As String = "" Dim nullObjStr As System.Object = str Cursor.Current = Cursors.WaitCursor axWebBrowser1.Navigate("https://www.fededirectory.frb.org/filename.txt", nullObject, nullObjStr, nullObjStr, nullObjStr) Dim o As Object = "" whileIsSaveAsAvailable() ' 'ToDo: Error processing original source shown below
'-------------------------^--- Syntax error: ';' expected If (True) Then axWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_SAVEAS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER, nullObjStr, nullObjStr) End If
Cursor.Current = Cursors.Default
End Sub 'button1_Click
|
|
Comment Request!
Thank you for reading this post. Please post your feedback, question, or comments about this post
Here.
|
|
|
|
|
Login
to add your contents and source code to this article
|
|
|
|
|
|
|
|
|
|
|
|
Mahesh Chand
Mahesh is the founder of C# Corner and Mindcracker Network, an author of several .NET programming books and a Microsoft MVP for 6 consecutive years. In his day to day work, Mahesh is a Senior Software Consultant with over 14 years of IT industry experience building systems for Financial and Banking, Engineering & Architectural, Imaging, Construction, Biological & Pharmaceuticals, Healthcare and Education industries. His expertise is Windows Forms, ASP.NET, Silverlight, WPF, WCF, Visual Studio 2010, SQL Server, and Oracle. If you are looking for a Sharepoint, Windows Forms, ASP.NET, WPF, Silverlight, C#, VB.NET, Oracle, and SQL Server Consultant in Philadelphia area or remote location, drop me a line at MAHESH [AT] C-SHARPCORNER [DOT] COM.
|
|
|
|
|
|
|
|
|
C# Consulting is founded in 2002 by the founders of C# Corner. Unlike a traditional
consulting company, our consultants are well-known experts in .NET and many of them
are MVPs, authors, and trainers. We specialize in Microsoft .NET development and
utilize Agile Development and Extreme Programming practices to provide fast pace
quick turnaround results. Our software development model is a mix of Agile Development,
traditional SDLC, and Waterfall models.
|
|
Click here to learn more about C# Consulting. |
|
|
|
|
|
|
|
Introducing MaxV - one click. infinite control. Hyper-V Hosting from MaximumASP.
Finally – a virtual platform that delivers next-generation Windows Server 2008 Hyper-V virtualization technology from a managed hosting partner you can truly depend on. Visit www.maximumasp.com/max for a FREE 30 day trial. Hurry offer ends soon.
Climb aboard the MaxV platform and take advantage of High Availability, Intelligent Monitoring, Recurrent Backups, and Scalability – with no hassle or hidden fees.
As a managed hosting partner focused solely on Microsoft technologies since 2000, MaximumASP is uniquely qualified to provide the superior support that our business is built on. Unparalleled expertise with Microsoft technologies lead to working directly with Microsoft as first to offer IIS 7 and SQL 2008 betas in a hosted environment; partnering in the Go Live Program for Hyper-V; and product co-launches built on WS 2008 with Hyper-V technology.
|
Dynamic PDF
ceTE software specializes in components for dynamic PDF generation and manipulation. The DynamicPDF™ product line allows you to dynamically generate PDF documents, merge PDF documents and new content to existing PDF documents from within your applications.
|
Nevron Chart for .NET 2010.1 Now Available
The leading .NET charting control now features PDF, Flash and Silverlight export, visualization of large datasets and more. Deliver true charting functionality to your BI, Scorecard, Presentation or Scientific apps. Download evaluation now.
|
ASP.NET 4 Hosting
Get 2 Months Free of ASP.NET Hosting for Only $4.95/month! Receive FREE MS SQL and MySQL Databases Including ASP.NET 4/3.5, MVC 3.0, Silverlight 4, Windows 2008/IIS 7.0 Plus FREE IIS 7 Modules. Host UNLIMITED ASP.NET Web Sites – Click Here!
|
|
|
|
|
|
|
|
|
|
|
|
|