status bar help VB6

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:

http://www.codyscomputerservice.com/example.jpg

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 :(

You can do it with javascript or html code in your web page.

window.status = "Your page is loaded"

But you can not do bolding or change the style of the text.

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.

Its javascript not vb.

Is this for your webpage or for a custom vb web browser? You didnt state.

im adding on a web browser of mine in Visual basic 6 i need a web status bar on the web browser. with this:

http://www.vbforums.com/

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.

Ok, then use the Webbrowser1_DocumentComplete event to change th statusbar to what you want it to say.

vb Code:

Option Explicit
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.StatusText = "Document completed loading"
End Sub

i dont get where to put it . im a noob at this status bar crap. do i put it in the stats bar code or add it to the form ?

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"

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).

Do i need to make a status bar . lol .

Press Ctrl + T to open component window then check "Microsoft Windows Common Control 6.0 or 5.0.

Drag the status bar to your form.

then

Code:

---

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    'status bar
    StatusBar1.Panels.Item(1).Text = Text
End Sub

---

What was I thinking lol.

Here is as you asked.

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

---

Well, that's the same with post #11 however mine is just the same as how Internet Explorer handles the status and it's a bit shorter. :)

I know but he wanted to show his own messages. Using the StatusTextChange event you can not easily determine what is going on.

Oh I see. I havent read it in post #5. He edited his post or i totally missed reading the last part.

Lol, may need to read again ;) :)

Quote:

---

...But DONE change it to YOUR PAGE IS LOADED.

---

My way also give the opportunity for him to have other custom "status'" ;)

Quote:

---

Originally Posted by RobDog888

What was I thinking lol.

Here is as you asked.

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

---

---

Hey Rob you're not getting it right.

It's suppose to be

Code:

---

StatusBar1.Panels(1).Text = "YOUR PAGE IS LOADED"

---

All caps! :D lol.

Quote:

---

Originally Posted by ccps

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:

VB Code:

Option Explicit
 
Private Declare Function SetParent Lib "user32" _
  (ByVal hWndChild As Long, _
   ByVal hWndNewParent As Long) As Long
   
 
Private Sub Command1_Click()
Dim strText() As String
Dim a As Long
 
StatusBar1.Panels.Item(1).AutoSize = sbrSpring
    
    With RichTextBox1
        Call SetParent(.hWnd, StatusBar1.hWnd)
        .BackColor = .Container.BackColor
        .Move 0, 0, StatusBar1.Panels.Item(1).Width, .Container.Height
        .Text = "Statusbar Message in Color"
        strText = Split(.Text, " ")
        
        For a = 0 To UBound(strText)
            .SelStart = InStr(.Text, strText(a)) - 1
            .SelLength = Len(strText(a))
            .SelColor = Choose(a + 1, vbBlue, vbRed, vbGreen, vbBlack, vbYellow)
            If a Mod 2 Then .SelBold = True Else .SelBold = False
            If a Mod 3 Then .SelItalic = True Else .SelItalic = False
        Next a
        
    End With
End Sub
 
Private Sub Form_Resize()
    RichTextBox1.Move 0, 0, StatusBar1.Panels.Item(1).Width, StatusBar1.Height
End Sub

Quote:

---

Originally Posted by ccps

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.)

thanks :)

Code:

---

WebBrowser1_ProgressChange(ByVal Progress as Inteter, ByVal ProgressMax as Integer)
    If ProgressBar1.Value = 0 Then
        StatusBar1.Panels(1).Text = "Done"
    End If
End Sub

---