Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

An easy one for the right person 1

Status
Not open for further replies.
Toastie

Toastie

Programmer
May 19, 2001
123
AU
i have this code

Dim doco As Object
Private Sub Form_Load()
WebBrowser1.Navigate "d:\hi.html"
Set doco = WebBrowser1.Document
Text1.Text = doco
End Sub

and i want to display it as text
like the actual source of the object
it should look like this

<html>
<head>
<script language=&quot;javascript&quot;>
function al(){
alert(&quot;hi&quot;)
}
</script>
</head>
<body onload=&quot;al()&quot;>
<h1>HI YA</h1>
</body>
</html>
 
Sort by date Sort by votes
Hi,

You can use the Inet control to get the html code:
--------------------------------------
Inet1.URL = &quot;Text1.Text = Inet1.OpenURL
--------------------------------------
Remenber to set the .multiline property of the textbox to true.
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'
 
Upvote 0 Downvote
so how do i change all the funny | looking characters for newlines [enter]

??????

any suggestions?
 
Upvote 0 Downvote
Hi,

Did you set the .multiline property of the textbox to true?
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'
 
Upvote 0 Downvote
that is an affermative

yeah i did but it displays these funny little black lines where all the returns are supposed to be

i have even got a scrollbar
 
Upvote 0 Downvote
Hi agian,

If the page you are loading has UNIX linefeeds (ascii code 10) and not DOS (ascii code 13 & ascii code 10), a littel bar will show to represent the ascii code 10 (linefeed).
To fix that, try:

-----------------------------------------------------
Inet1.URL = &quot;Text1.Text = replace(Inet1.OpenURL,chr(10),vbcrlf)
-----------------------------------------------------
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'
 
Upvote 0 Downvote
sorry to alarm you but a good compile to exe fixed it in a jiffy i just found out

i wonder why
a bug in vb6 possibly?? naah not micro$oft

thankyou very much anyhow you deserve a star !!!!!!!!!
 
Upvote 0 Downvote
hello there

change the font of textbox to a TTF (True Type Font) i.e Times new roman n get rid of those funny | characters.

enjoy

ComputerJin
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

sal21
  • Locked
  • Question
Strongm.... only for you - check if the customer have riceved the email 1
Replies
2
Views
445
sal21
sal21
sal21
  • Locked
  • Question
I can't find the routine to download the image file anymore
Replies
1
Views
273
strongm
strongm
sal21
  • Locked
  • Question
merge .txt in one named big.txt 1
Replies
10
Views
1K
sal21
sal21
sal21
  • Locked
  • Question
for strongm site down?
Replies
3
Views
336
strongm
strongm
sal21
  • Locked
  • Question
WHY the sort dont work in msflexgrid
Replies
1
Views
230
strongm
strongm

Part and Inventory Search

Sponsor

Back
Top