I need a status bar . I want something like when you are looking up a site it will say what it is looking up ( loading page ) and when its down i want a BOLD text saying ( YOUR PAGE IS DONE ) and it will stop there untill next look up or clicked on any urls.
Its like a progress bar and status to together.
so ill do an Example:
I want something like that Together. How IE has theres. When your looking up a page it will give you the frist Arrow in picture In black TEXT. Then when its done it will say done at the buttom corner like on the second picture there
on the buttom. then saying done i want it to say YOUR PAGE BEEN LOADED.
Thanks: Cody.
I dont know how to do it lol im not that smart lol
what would i need . i know a statis bar and that but other then that the code you gave me didnt work in the statis bar.
vb Code:
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
window.status = "Your page is loaded"
End Sub
please give me a list what i need and what i need it to be. im not good with status bars i tryed it few times and didnt get it at all. i dont know if you would do this but i want a loading bar blow . if you dont want to do the bar thats fine. but im looking for both.
im adding on a web browser of mine in Visual basic 6 i need a web status bar on the web browser. with this:
But i need a progress bar and status bar on the STATUS BAR. if you know what i mean. i want it to look like IEs status bar. But DONE change it to YOUR PAGE IS LOADED.
Do you have a webbrowser ontrol on your form? Place the code behind the form and make sure whatever you named your webbrowser control that it reflects that name in the event procedure "webbrowser1_documentcomplete"
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
yeah its called Webbrowser1. But i dont know if i just stick it behind a Button or Status bar or something , you know what i mean behind the bar. like under that catagory (code).
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://vbforums.com"
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, _
TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
StatusBar1.Panels(1).Text = "Your page is loading..."
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) = True Then
StatusBar1.Panels(1).Text = "Your page is loaded"
End If
End Sub
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://vbforums.com"
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, _
TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
StatusBar1.Panels(1).Text = "Your page is loading..."
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) = True Then
StatusBar1.Panels(1).Text = "Your page is loaded" End If
End Sub
I need a status bar . I want something like when you are looking up a site it will say what it is looking up ( loading page ) and when its down i want a BOLD text saying ( YOUR PAGE IS DONE ) and it will stop there untill next look up or clicked on any urls. . . .(
If you want to add formatting to a Statusbar's Panel, you could always use put a RichTextBox inside of a Statusbar Panel and then format the text anyway you like:
Last edited by Mark Gambo; Apr 18th, 2007 at 07:10 AM.
Regards,
Mark
Please remember to rate posts! Rate any post you find helpful. Use the link to the left - "Rate this Post". Please use [highlight='vb'] your code goes in here [/highlight] tags when posting code. When a question you asked has been resolved, please go to the top of the original post and click "Thread Tools" then select "Mark Thread Resolved."
But i dont know if i just stick it behind a Button or Status bar or something , you know what i mean behind the bar. like under that catagory (code).
WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) is an event handler, so you put it in a clear space in the code window for the form the control the event is connected to (WebBrowser1, in this case) is located on. The easiest way to be sure is to put it at the bottom of any existing code. (Option Explicit always goes at the top of every code window, to help you find typos in your code.)
Last edited by Al42; Apr 18th, 2007 at 10:58 AM.
The most difficult part of developing a program is understanding the problem.
The second most difficult part is deciding how you're going to solve the problem.
Actually writing the program (translating your solution into some computer language) is the easiest part.
Please indent your code and use [HIGHLIGHT="VB"] [/HIGHLIGHT] tags around it to make it easier to read. Please Help Us To Save Ana
WebBrowser1_ProgressChange(ByVal Progress as Inteter, ByVal ProgressMax as Integer)
If ProgressBar1.Value = 0 Then
StatusBar1.Panels(1).Text = "Done"
End If
End Sub