-
WebBrowser Problems
Hello All,
I am currently making a WebBrowser in Visual Basic 6 using Microsoft Internet controls. I have a few problems and questions, but first i will show you my code. It is fairly basic.
Code:
Private Sub gobutton_Click()
On Error Resume Next
WebBrowser1.Navigate (urlbar.Text)
End Sub
Private Sub backbutton_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub
Private Sub forwardbutton_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub
Private Sub homebutton_Click()
On Error Resume Next
WebBrowser1.gohome
End Sub
Private Sub refreshbutton_click()
On Error Resume Next
WebBrowser1.Refresh
End Sub
Private Sub urlbar_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
WebBrowser1.Navigate (urlbar.Text) 'similar to acceptbutton
End If
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then loadbar.Value = 100
loadinfo.Caption = "Done"
If Progress > 0 And ProgressMax > 0 Then
loadbar.Value = Progress * 100 / ProgressMax
loadinfo.Caption = Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
On Error Resume Next
If (InStr(WebBrowser1.LocationURL, "<html>")) <> 0 Then
urlbar.Text = ""
else
urlbar.Text = (WebBrowser1.LocationURL)
end if
End Sub
Private Sub stopbutton_click()
On Error Resume Next
WebBrowser1.Stop
End Sub
Private Sub Form1_Resize()
WebBrowser1.Width = Me.ScaleWidth
End Sub
WebBrowser=Webbrowser1, Text input for url = urlbar (TextBox), I also have a progress bar and label alongside. All other objects are easily identifiable.
MY WebBrowser works well but there are a few slight problems that i am finding difficult to change.
- When i type in the textbox and move my mouse away from it, all content that i have just typed is deleted???
- When i manage to submit the url, the content of the textbox (url) dissapears and only when the page has loaded does it come back. I would like the textbox to always have content.
- Occasionally when i am browsing i encounter problems such as "-1 (ffffffffffff)" and "-2 (fffffffffe)" I have checked my code. How can i fix this?
- Additionally i would like to improve the appearance of my application by changing the user interface, is there a simple way to do this? Do i have to 'Skin'?? Please Help!!
I know this is a long list of questions and problems, sorry if this is slightly overbearing. I just need help!
Greatly Appreciated,
Hardware
-
Re: WebBrowser Problems
Step number one: Remove, as in completely delete all On Error Resume Next statements and never use them again.
Your program could be generating an error. If it is, you are ignoring it, and are now wondering why somethings do not work. If you have errors, let them happen. That way, you can address them and fix them.
-
Re: WebBrowser Problems
comment out this section... then try it.
the status text changes constantly while load and looks like its triggering the urlbar to clear.
Code:
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
On Error Resume Next
If (InStr(WebBrowser1.LocationURL, "<html>")) <> 0 Then
urlbar.Text = ""
else
urlbar.Text = (WebBrowser1.LocationURL)
end if
End Sub
read the tutorial i wrote - link in my sig
you will want to use the Webbrowser1_DocumentComplete Event
Code:
Private Sub Webbrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'The next line is important. It check to see if the ENTIRE document is loaded
If (pDisp Is Webbrowser1.Application) Then
urlbar.text = URL
End If
End Sub
-
Re: WebBrowser Problems
Ok thanks very much for all the help. I removed all the 'On error resume next' parts in the code and in response to the last reply i changed to
Code:
Private Sub Webbrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'The next line is important. It check to see if the ENTIRE document is loaded
If (pDisp Is Webbrowser1.Application) Then
urlbar.text = URL
End If
End Sub
From my previous method and it seems to work much better.
This all seems to work well, except the back and forward buttons. If there is nothing to go forward or back to, when the button is pressed an error occurs.
"Runtime Error:'-2147467259 (80004005)':
Method GoBack of Object 'IeWebBrowser2' Failed" and
"Runtime Error:'-2147467259 (80004005)':
Method GoForward of Object 'IeWebBrowser2' Failed"
How can i fix this?
Also how i can i stop the urlbar (textbox) clearing itself when the mouse is moved, as mentioned in my first post??
All your help is greatly appreciated, Thanks to all, Hardware
-
Re: WebBrowser Problems
as far as the back/forward buttons...(change the button names accordingly)
I know Hack said remove all On Error Resume Next, but in this case leave it.
Errors can occur in this and can safely be ignored. This will enable/disable the back and forward buttons.
Code:
Private Sub Webbrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
On Error Resume Next
DoEvents: DoEvents: DoEvents
If Enable = True And Command = CSC_NAVIGATEBACK Then
cmdBackButton.Enabled = True
ElseIf Enable = False And Command = CSC_NAVIGATEBACK Then
cmdBackButton.Enabled = False
End If
If Enable = True And Command = CSC_NAVIGATEFORWARD Then
cmdFwdButton.Enabled = True
ElseIf Enable = False And Command = CSC_NAVIGATEFORWARD Then
cmdFwdButton.Enabled = False
End If
End Sub
as far as the mouse move.. i really dont know. i dont see any mousemove code
-
Re: WebBrowser Problems
Cheers everyone especially Static you have been a great help.
My WebBrowser is fully functional and i probably will add other features later on in the project. My next target is to improve the appearance of the user interface, i already have a selected colour scheme but i am willing to change it slightly to fit in.
Should i use photoshop and images to achieve a better interface or shall i use 'skinning' or any other options?
Skinning is completely new to me so if anyone could explain or tell me how and what you do to 'skin' i would be very grateful.
-
Re: WebBrowser Problems
do a search for skin.. there are examples etc..
and read the tutorial in my sig. there are some cool things you can do.
I have a webbrowser that works with vbfroums and highlights new posts, posts ive replied to etc. also pulls the list of whos online, the forum list show in button dropdown...
-
Re: WebBrowser Problems
ok i have done but will do more research. I've done more testing of my browser and have found a few little problems.
- When i browse on website and click very quickly without waiting for the page to load i encounter an error "Runtime error:'-1 (fffffff)'". I think this error is due to rushing or telling the browser to load a page when it hasn't finished the previous page. I'm not sure. Any help?
- Secondly, when i resize my form the WebBrowser still stays its original size and there is "cutoff" is there any way to make the browser resize to stay with the form size? I added:
Code:
Private Sub Form1_Resize()
WebBrowser1.Width = Me.ScaleWidth
End Sub
but it doesn't seem to work? Grrrrr
Hope you can help, thanks for everything so far. Any other features you would recomend?
Cheers, Hardware
-
Re: WebBrowser Problems
Look in our CodeBank for skinning examples.
-
Re: WebBrowser Problems
Right. But can anyone answer my questions above? Static any help?
Thanks everyone, Hardware
-
Re: WebBrowser Problems
that code should work for resize.
the clicking shouldnt cause an error. when u get the error, what line does the IDE point to?
-
Re: WebBrowser Problems
When i get the error it gives the option of "ok" and "help" No debug option and does not highlight any code. It seems to be occuring randomly now. :ehh:
Can anyone help please?
-
Re: WebBrowser Problems
Please? lol. I have searched high and low.
-
Re: WebBrowser Problems
Question #1 - Have no idea
Question #2 - There is no way the WebBrowser can stays at it's original size when you resize your Form and what does "cutoff" mean?
Maybe you should post the pertinent part of your code so someone can run a quick test on it. Include only the code that has the WebBrowser control, the code that navigates to a Website, the Form_Load and the Form_Resize. Run this code and if it still does what you are saying in your post #8 then post that code here. I mean, if possible, post a zip file of the project.
