Load a html tag in vb6

Printable View

Feb 2nd, 2004, 10:23 AM
DarkX_Greece

Load a html tag in vb6

I am creating a custom web control and i need some help.
Until now my control can understand the following tags:
1) <html></html>
2) <body></body>
3) <font...>
4) <li></li>
5) 
6) <left></left>
7) <right></right>
8) <center></center>
9) 

Now i need to add the following:
1) <a....>...</a>
2) <img ....>
3) <s></s>
4) 
5) 
6) 
7) <title></title>
9) 
10) <strike></strike>

Could u help me with one of them?
I am using Rich Text Box to show the html page, so send me some source code applying on Rich Text Box.
Feb 2nd, 2004, 11:11 AM
kleinma

if you made a custom control that can parse the top list of tags, how could you are asking for source code to impliment the bottom list of tags. They would be parsed and handled in the same way
Feb 2nd, 2004, 12:39 PM
DarkX_Greece

Are u serious?

Are u serious about it?

Have can u say about it, <a ...> </a> is not the same with tag so they need different VB Code. Also <a...</a> is about images and i don't know how to add formated images in Rich Text Box, but <font...</font is about fonts and it is more easier than the first one.
The same is for the other tags.

The next time u will send somthing like your first message, just think about it before write any ....WRONG thing.
Feb 2nd, 2004, 02:04 PM
kleinma

my point is if you could write a control to parse the one list, you should have no trouble creating code to parse the second list.

You didn't post code asking for help with a certain part, like how to display an image in the rich text box when parsing an image tag

you simply just asked for source code, which tells me you didn't try, and are probably using someone elses code to start with...

I help people that make an effort, not people that just want the code to call their own to stick in their app

when you actually have some code to show, maybe someone here will help you
Feb 2nd, 2004, 02:10 PM
Edneeis

Besides, DarkX_Greece, you aren't even asking for help you are simply asking some one to do all the work for you and provide the code. I think that is very rude.
Feb 3rd, 2004, 07:44 AM
DarkX_Greece

Ok, look at this

First, i am not like some people who are using code from other, i try to make the cod myself , so don't tell again things like them.

I don't have any problems sending my code but it is not ready yet.
But because u send that , u think i am asking for your help only because i use others code then look at it:

Rich Text Box's Name = Page
Form's Name = Form1

Function FormatFont()
'Find the font tag
Dim tFont As Integer
tFont = InStr(tFont + 1, Form1.Page.Text, " 0
Dim eFont As Integer
eFont = InStr(tFont + 1, Form1.Page.Text, "", vbTextCompare)
If (eFont > tFont) Then
'find whats between these
Dim hFindFont As String
Dim hFontSize As Variant
Dim hFontName As String
Dim etFont As Integer
etFont = InStr(tFont + 1, Form1.Page.Text, ">", vbBinaryCompare)
If ((etFont > tFont) And (etFont < eFont)) Then
'select what we want
Form1.Page.SelStart = tFont + 5
Form1.Page.SelLength = (etFont - 2) - (tFont + 5)
hFindFont = Form1.Page.SelText
hFontName = FindFontName(hFindFont)
hFontSize = FindFontSize(hFindFont)
Form1.Page.SelStart = etFont
Form1.Page.SelLength = (eFont - 1) - (etFont)
Form1.Page.SelFontName = hFontName
Form1.Page.SelFontSize = hFontSize
End If
End If
tFont = InStr(tFont + 1, Form1.Page.Text, " 0) Then
space = InStr(name + 1, line, "", vbTextCompare)
If (space > name) Then
Dim L1 As Integer
L1 = Len(Mid(line, name + 6))
FindFontName = Mid(line, name + 6, L1)
Else
FindFontName = Mid(line, name + 6, Len(line))
End If
End If
End Function

Function FindFontSize(line As String)
Dim size As Integer
Dim space As Integer
size = InStr(size + 1, line, "size=", vbTextCompare)
If (size > 0) Then
space = InStr(size + 1, line, " ", vbTextCompare)
If (space > size) Then
FindFontSize = Mid(line, size + 5, (space) - (size + 5))
Else
FindFontSize = Mid(line, size + 5, Len(line))
End If
End If
End Function

This is the code for tag. <a> </a> and <img src...> are very similar to font tag but i can't make the code because i have some problems:
1) I can't create hyperlinks in Rich Text Box , using SelRTF
2) I can't format the images in the Rich Text Box.(someone told me that it is impossible, but i know that is wrong.)

Now, if anyone want to help me for my project then send something, even an example , i don't want only code.
Feb 3rd, 2004, 11:00 AM
vbNeo

Re: Are u serious?

Quote:

Originally posted by DarkX_Greece
Are u serious about it?

Have can u say about it, <a ...> </a> is not the same with tag so they need different VB Code. Also <a...</a> is about images and i don't know how to add formated images in Rich Text Box, but <font...</font is about fonts and it is more easier than the first one.
The same is for the other tags.

The next time u will send somthing like your first message, just think about it before write any ....WRONG thing.

<a> is an anchor and has nothing to do with images
Feb 3rd, 2004, 11:12 AM
DarkX_Greece

I know it

Yes i know it!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

<a> tag is for urls.
<img> tag is for images.

That was only an example.

Ôé íá óáò ðù ñå ðáéäéÜ, åäþ üëïé åßóôå ôñåëïß , ôåëéêÜ åäþ äå âïçèÜôå êáèüëïõ, ôï ìüíï ðïõ êÜíåôå åßíáé êñéôéêÞ! Áí äåí ìðïñåßôå íá áðáíôÞóåôå óå Ýíá ìíì , áðëÜ ìçí áðáíôÜôå , äåí ÷ñåéÜæåôáé íá óôÝëíåôå âëáêåßåò.

Êþóôáò ÌðïôïíÜêçò.

Kostas Botonakis
Feb 3rd, 2004, 11:39 AM
vbNeo

I'd suggest you make a general parser for all tags, scanning for all attributes meaning anything for your app...

Cheers!
Feb 3rd, 2004, 12:01 PM
DarkX_Greece

General Parser?

Ok , your idea is good but how. All the tags are very different from themselves. Please if you know a way for me to do it, just give me an example code to move on!

Thanks for sending me something important , not like the others!