Web Browser

Hey Megatron,

How did you get it(HTML code) to show up like it does in notepad? I have been trying to do that for a while.

Thanks,
Lloyd

There's an excellent Web browser control at www.homepagesw.com - provided you're prepared to pay for it. There's a free download demo for 30 days or so.

You mean a Web Browser made with VB?

A Real Web Browser, complete with a Combo Box where you type your address, a Visited links Address List Box, Next and Previous Buttons, etc.? All in VB?

Then visit:
http://visualbasic.about.com/compute...y/aa120798.htm

I'm trying to make a Web Browser. So far, I
can only make the Web Page appear in Text
Format ie: it looks exactly how it does when you open it in notepad.

How would I change this so it's in HTML
format? Is there any control thatm does
it?

The easiest way would be to use the WebBrowser Control, otherwise you'll need to use something like a Picturebox or a RichTextBox and you'll then have to interpret and Format the Data Manually.

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]

Important to remember, though, that Juan Carlos's idea only works if the user has Internet Explorer 4 (4 at least, I think) installed - it relies on that .dll. So if you're going to distribute your App, you also have to impose IE 4 on your user.

This is a nightmare. First of all, a lot of people don't like having to do this, it can screw up entire networks (it did with us, anyway), and our product stopped working when the user installed IE5.

Aaron Young: can you give me an example of how to use the Web Browser
control?

Lloyd: I downloaded an example to get
the HTML code. It's on this site. I think
the catagory is called "using the internet
transfer control" If you manipulate it, then
you'll be able to do so.

Right click your Controls Toolbar and Select Components.. Locate Microsoft Internet Controls and Check it.

Add the Webbrowser control to the Form with a Textbox..

Code:

---

Private Sub Form_Resize()
    Text1.Move 0, 0, ScaleWidth, Text1.Height
    WebBrowser1.Move 0, Text1.Height, ScaleWidth, ScaleHeight - Text1.Height
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        WebBrowser1.Navigate Text1
    End If
End Sub

---

This turns your whole Form into a WebBrowser, just type in a URL and press Enter.

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]

Thanks Megatron!!

Lloyd