Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Apr 7, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Web-Enable Your Apps

In today's world, you probably want to let your users browse the Web inside your app. You can add the Microsoft Internet Control to do this; however, the user must have Internet Explorer installed. Without it, the app fails to start. To solve this problem, remove the Microsoft Internet Control reference and load the control dynamically when Internet Explorer is installed. To load the control, use this code:
Private ie As VBControlExtender
Private Sub Form_Load()
	On Error GoTo IEMissing
   Set ie = Form1.Controls.Add("Shell.Explorer", "wcIE")
	ie.Visible = True
End Sub
Private Sub Form_Resize()
	If Not ie Is Nothing Then
		ie.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
	End If
End Sub
You can do multiple things with this object, such as change the visibility, but then the unique Internet Explorer properties and methods aren't available. For example, if you type "obj.Navigate sMyURL", VB tells you the object doesn't support this property or method. The secret is to use your object variable's Object property like this:
Private Sub Form_Activate()
	If Not ie Is Nothing Then
		ie.Object.Navigate "http://www.vbpj.com"
	End If
End Sub 
Eric Quist
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date