HTML Editor

Printable View

Show 60 post(s) from this thread on one page

Feb 18th, 2005, 07:55 AM
asgsoft

HTML Editor

I am 13 years old, i started learning vb in school library and also bout some books.

I decided to make a html editor. i made one that has basic functions, eg save,save as,open,preview in browser,print code,undo,redo. What else can i add. i was thinking of having a button that has html tags on. when u click on one it prints it. ii got stuck on making it. can you please help me?
Feb 18th, 2005, 12:40 PM
Pino

Re: HTML Editor

Does it have Syntax Highlighting ;) That would be nice to play around with teach you some string Manipulation functions, although you need a RichTextBox to add the colour since the normal text box doesn't support it.

I'm not 100% on what you were unsure of? do you need help with printing?

Pino
Feb 19th, 2005, 09:29 AM
asgsoft

Re: HTML Editor

I am using a richtext box. Which i found is better than a normal text box. as then i could use the redo and undo fuctions. I am actually stuck on

1) making tags highlighted
2) making clickable tag. ie you cllick on a button and it prints the contents in the text box
3) Have an instant preview tab.

I am curently trying to make an ftp program for publishing
Feb 20th, 2005, 07:13 AM
asgsoft

Re: HTML Editor

does anyone recon they could help me?
Feb 20th, 2005, 09:20 AM
dw85745

Re: HTML Editor

Search www.planetsourcecode.com they have a number of examples
Feb 20th, 2005, 09:39 AM
DarkX_Greece

Re: HTML Editor

Some suggestions are:

1) A list of HTML tags!
2) Some javascripts and dhtml examples that user can add!
3) Some HTML templates because many people doesn't know how to make HTML pages!
4) As you said , a FTP feature, so someone who made his web site, then to publish it!

and many many other features that will make end-user's life better!
Feb 20th, 2005, 09:50 AM
agmorgan

Re: HTML Editor

Have some form of validation
Either included (e.g HTML Tidy) or linking to the W3C validator
http://validator.w3.org/
Feb 20th, 2005, 01:52 PM
asgsoft

Re: HTML Editor

lets start step by step.
1- i don't understand validation
2-A list of HTML tags how to make them print their value in the txt box is the problem

3- Some javascripts and dhtml examples that user can add easy but the problem is as before

4-Some HTML templates because many people doesn't know how to make HTML pages! the program isn't a wysiwyg (what you see is what you get)

5- As you said , a FTP feature, so someone who made his web site, then to publish it! finally it is working

6- thanks for the link i didn't know it before
Feb 20th, 2005, 02:22 PM
EJ12N

Re: HTML Editor

syntax coloring :p
Feb 20th, 2005, 02:51 PM
DarkX_Greece

Re: HTML Editor
As i know you are using Rich Text Box, well...:
1) Adding html tags:
Have a list called "TList"
VB Code:
```
Public Sub AddTagsToList ()
With TList
.AddItem "<title></title>"
.AddItem "<html></html>"
.AddItem "<head></head>"
End With
End Sub
 
Private Sub Form_Load ()
Call AddTagsToList
End Sub
 
Private Sub TList_Click ()
Form1.RTB.Text = Form1.RTB.Text & vbCrLf & TList.List(TList.ListIndex)
End Sub
```
This was a very easy example of Adding and using tags from a list!

2) This could be done with the same way!

3) The html templates will not be in WYSIWYG mode, just ready html code!

4) FTP: :thumb:

5) html validation is some standards that W3 has made for html coding!If your html pages are validated then the pages are good coded!
Feb 20th, 2005, 04:20 PM
asgsoft

Re: HTML Editor

thanks alot for that
Feb 21st, 2005, 06:41 AM
DarkX_Greece

Re: HTML Editor

That was only an example! If you want more then tell me to make you a sample project!

:) :wave:
Feb 21st, 2005, 10:23 AM
asgsoft

Re: HTML Editor

you mean a fully working sample project then yes please. but i won't copy it. i will look at it to learnf from it
Feb 21st, 2005, 11:44 PM
MendyGreen

Re: HTML Editor

I was going to do the same thing for my own benefit, but if youre going to put yours out ill keep mine in. Did you ever think about, maybe they down want to have to click to start a webpage every time. How about on the Load event it asks for the title, and the body color (in 16 or hex). I tried doing that before but I couldnt figure out how to make a break in the textbox, oh well maybe you know. Also it might be cool to have a splash screen. :)
Feb 22nd, 2005, 08:11 AM
DarkX_Greece

Re: HTML Editor

Quote:

Originally Posted by asgsoft

you mean a fully working sample project then yes please. but i won't copy it. i will look at it to learnf from it

Ok, but please wait some hours to finish it! ... :) I will send it here as an attachment!
Feb 22nd, 2005, 09:16 AM
asgsoft

Re: HTML Editor

i don't mind.
Feb 22nd, 2005, 10:57 AM
DarkX_Greece

1 Attachment(s)

Re: HTML Editor

Here is a simple html editor project!

It has:
1) HTML & ASP syntax coloring (simple mode)
2) HTML tag adder (Not all tags, only some...because it is a sample)
3) Wizard when you create a new web page!
4) Load/Save Web Page

I didn't have much time to do more! If you want more help on this then tell me...!

:) :)
Feb 22nd, 2005, 01:54 PM
asgsoft

Re: HTML Editor

Very nice and useful but how come the tags when you click on them and then enter a alue the value doen't appear in the txtbox. Because that is what i was having trouble with.

I love the syntax colouring. Just what i always wnated to know how to do. thank you very much

Re: HTML Editor

Well, i can't understand what are you asking for!
You can add a tag, like this:

VB Code:

Private Sub List1_Click ()
If List1.List(List1.ListIndex) = "<b></b>" then
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "<b></b>
End If
 
If List1.List(List1.ListIndex) = "<i></i>" then
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "<b></b>
End If

This is the same way for all tags!

There is the advanced way, like <title></title> tag:

VB Code:

'RTB = RichTextBox
'NF.PageTitle = Is a public variable, so you can handle html page's title
 
If STR = "<title></title>" Then
    Dim m
    m = InputBox("Please enter web pages title: ", "Enter title", NF.PageTitle)
    If m <> "" Then
        NF.PageTitle = m
        Dim FS, FE, FV
        FS = InStr(1, RTB.Text, "<title>", vbTextCompare)
        If FS > 0 Then
            RTB.SelStart = FS + 6
            FE = InStr(1, RTB.Text, "</title>", vbTextCompare)
            RTB.SelLength = FE - FS - 7
            RTB.Text = Replace(RTB.Text, RTB.SelText, NF.PageTitle)
        Else
            RTB.SelStart = 0
            RTB.SelText = "<title>" & NF.PageTitle & "</title>"
        End If
    Else
        Exit Sub
    End If
End If

If this not why you asked me for, then please explain to me, more!(because i don't understand much english)
:)

Feb 22nd, 2005, 07:05 PM
dglienna

Re: HTML Editor

I found out that Firefox has an extension that checks html, so you don't have to be online to verify you work. Just a hint.
Feb 22nd, 2005, 08:02 PM
Joacim Andersson

1 Attachment(s)

Re: HTML Editor

Attached is another, perhaps a bit more advanced, example. I origionally started this projects a few years back for my ex-girlfriend to learn HTML. It uses the DHTML control to create a WYSIWYG editor. Use it anyway you want.
Feb 23rd, 2005, 12:51 PM
asgsoft

Re: HTML Editor

Thanks but i am getting the error Cannot find project or library.
Feb 23rd, 2005, 01:38 PM
CLibra

Re: HTML Editor

Quote:

Originally Posted by asgsoft

Thanks but i am getting the error Cannot find project or library.

Then u most probably got learning edition like me;)
Feb 23rd, 2005, 03:41 PM
DarkX_Greece

Re: HTML Editor

Any new feature for your HTML Editor asgsoft?

Did my example help you?
Feb 23rd, 2005, 05:04 PM
Joacim Andersson

Re: HTML Editor

Quote:

Originally Posted by asgsoft

Thanks but i am getting the error Cannot find project or library.

You might lack the DHTML Edit control. It's available for download, do a Google search for it.
Feb 24th, 2005, 11:13 AM
asgsoft

Re: HTML Editor

Joacim Andersson ok thank you i will try and find it and download it.
DarkX_Greece thank you very much for that,it is very useful
CLibra i have vb6 enterprize edition
Feb 24th, 2005, 11:17 AM
CLibra

Re: HTML Editor

Quote:

Originally Posted by asgsoft

CLibra i have vb6 enterprize edition

I ONLY HAVE LEARNING :cry: :cry: :cry: :cry:
Feb 24th, 2005, 11:23 AM
Static

Re: HTML Editor

if you want some Ideas...

Doqnload and look at Arachnophilia

its been around a while...and its free...

one really cool feature is... in the HTML right click on a color (Like #00000 etc...) a popup appears with colors to choose from and translates the color back to the code...
Feb 24th, 2005, 02:39 PM
DarkX_Greece

Re: HTML Editor

Yes, there is the way to download and run other html editor (trial or not) and try to make your own controls or vb code that looks like the other html editors!
After a while, you will make your own things!
Just start by looking other projects!
:cool: :) ;)
Feb 26th, 2005, 08:40 AM
asgsoft

Re: HTML Editor

but does that count as cheating?? or will i get sued for it as it might be copyrighted?
Feb 26th, 2005, 01:19 PM
dglienna

Re: HTML Editor

as long as you don't use their code, or images, or controls, without their permission, then you will not get sued. are you planning on selling a lot of these? that's what really matters.
Feb 26th, 2005, 07:44 PM
DarkX_Greece

Re: HTML Editor

Quote:

Originally Posted by asgsoft

but does that count as cheating?? or will i get sued for it as it might be copyrighted?

It is not cheating! Then, almost all programs, would be illegal!
Just try to make them look like other controls! Not to use current...
Trying to make your own code, isn't cheating or illegal!
Mar 4th, 2005, 10:32 AM
asgsoft

Re: HTML Editor

i am not planning on selling it at the moment,but if i think it is better than other ones in the market i might consider selling it to someone. do you have an idea on how to sell vb programs because i have no experiance on that field.
Mar 4th, 2005, 10:50 AM
Joacim Andersson

Re: HTML Editor

Well you obviously need a website to market your product. For payment you can use PayPal or any of the Gazillion Shareware marketing businesses on the Net.
Mar 30th, 2005, 01:23 PM
asgsoft

Re: HTML Editor

i have a website, where can i get the marketing software from,i don't want paypal as you have to pay.
Mar 30th, 2005, 07:50 PM
Joacim Andersson

Re: HTML Editor

Quote:

Originally Posted by asgsoft

i have a website, where can i get the marketing software from,i don't want paypal as you have to pay.

I'm sorry to say this but.... Welcome to the real world! You ALWAYS have to pay something! If you don't want to pay PayPal for whatever they charge you will still have to pay your bank for whatever they charge!

So PayPal charge to much.... You want to setup a server of your own that accepts credit cards, and you want no one to charge you for the cost of having that?

I know you will probably hate me for posting this but, just ask your own bank what they would charge you for this service.
Mar 30th, 2005, 07:54 PM
Joacim Andersson

Re: HTML Editor

Quote:

Originally Posted by asgsoft

i have a website, where can i get the marketing software from,i don't want paypal as you have to pay.

Oh... You don't have to pay anything for a PayPal account....
Mar 30th, 2005, 09:09 PM
UTGrim

1 Attachment(s)

Re: HTML Editor

Hey, I'm also working on a HTML editor! :) It's not finished yet, but you can skim over the code and try to get some ideas. My code is kinda messy and I don't really comment much, sorry... :(

Oh, and I didn't use the RTF box. I keep switching from Win98 comps to WinXP comps and the control versions are different.

Hope it helps... :D
Apr 2nd, 2005, 10:37 AM
asgsoft

Re: HTML Editor

very nice indeed, did you know that the find doesn't work.

Also can you pleeeeeeeeeeese say clearly how you did the clickable tags.
Apr 3rd, 2005, 01:07 PM
UTGrim

Re: HTML Editor

Quote:

Originally Posted by asgsoft

very nice indeed, did you know that the find doesn't work.

Also can you pleeeeeeeeeeese say clearly how you did the clickable tags.

Tons of things don't work yet. I'm still working on the program.

If by clickable tags you mean the tags window, there is a file that contains the tags and their attributes (tags.txt). The program opens the file, decodes it, and displays the tags. The code is on frmTags. It's very messy and dodgy, I know.
Apr 5th, 2005, 10:22 AM
asgsoft

Re: HTML Editor

can you explain how i need to encode it as i am unable to do so.
Apr 5th, 2005, 04:34 PM
UTGrim

Re: HTML Editor

Well, I made my own syntax... I noticed that it would be pretty hard to understand, so I'm working on a new way. I'm not doing so well. My dumb self just learned about the Split function so that should come in handy. The new format would be like:

Tag Name
Attribute
Attribute
Attribute
Attribute
Tag Name
Attribute
Attribute

and so on.

I'll post it here once I'm done... and I'll try to comment this time.
Apr 5th, 2005, 11:54 PM
UTGrim

1 Attachment(s)

Re: HTML Editor

OK... you might understand this better now. I completely changed the Decode and UpdateProp subs and commented. :)
Apr 7th, 2005, 07:32 AM
agmorgan

1 Attachment(s)

Re: HTML Editor

When I tried it I felt that double clicking on a tag in the tag window should insert a tag without any extras (ie you dont have to click apply)

Also it is a bit strange that you create a whole new instance of the program when you create a new file.

An MDI or closing the current file then opening a blank one from a template might be better.

I was hoping clickable tags meant something similar to HoTMetaL PRO and their 'tags on' view.
Want to give that a try?

Re: HTML Editor

i have some troubles with my new and open buttons. they ask if i want to save or not before doing the action but if nothing has changed from the defult text they still ask. Also for when i open a file it always moves the code down by a couple of lines each time i open it. how can i solve these problems. here is what i have for save:

VB Code:

If CommonDialog1.FileName = "" Then
    With CommonDialog1
        .Filter = "HTML Pages|*.html"
        .DialogTitle = "Save"
        .ShowSave
    End With
    If CommonDialog1.FileName <> "" Then
        If Dir(CommonDialog1.FileName) = CommonDialog1.FileName Then
            Over = MsgBox("Do you want to overwrite the current file with this version?", vbYesNo + vbQuestion, "Save File")
            If Over = vbNo Then cmdSave_Click
        Else
            Open CommonDialog1.FileName For Output As #1
            Print #1, RichTextBox1.Text
            Close #1
        End If
    End If
Else
    Open CommonDialog1.FileName For Output As #1
    Print #1, RichTextBox1.Text
    Close #1
    CommonDialog1.DefaultExt = "html"
    CommonDialog1.DialogTitle = "Save"
    End If
c = False
S

and here is what i have for open

VB Code:

CommonDialog1.Filter = "HTML Pages|*.html"
CommonDialog1.DialogTitle = "Open"
If c = True Then
    q = MsgBox("Do you want to save your file?", vbYesNoCancel + vbQuestion, "ASGSoft HTML Editor")
    If q = vbCancel Then Exit Sub
    If q = vbYes Then cmdSave_Click
End If
CommonDialog1.ShowOpen
br = Chr(13) + Chr(10)
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Input As #1
    Do Until EOF(1)
    Line Input #1, lineoftext$
    alltext$ = alltext$ & br & lineoftext$
    RichTextBox1.Text = alltext$
    Loop
    Close #1
End If
S
CommonDialog1.Filter = "HTML Pages|*.html"
CommonDialog1.DialogTitle = "Open"
cmdUndo.Enabled = False

i am working on a find and replace and i am planning to add the following:

sytanx highlighter
Requited registeration
Icons by the Menus
Help file

if anyone knows anything useful about them could you please say so

Sep 11th, 2005, 03:54 AM
dglienna

Re: HTML Editor

We need more code than that. Is that Open or Save?
Post more of your code.
Sep 11th, 2005, 04:10 AM
asgsoft

Re: HTML Editor

first one is save second one is open. can u please tell me what u exactly need
Sep 11th, 2005, 04:58 AM
Joacim Andersson

Re: HTML Editor
Why are you reading only one line at the time in your Open procedure? The reason your Save procedure is adding a new line at the end of the file is because that is the normal behaviour of the Print # statement. To avoid that add a semicolon after the Print # statement (marked as red in the code below).
VB Code:
```
Open CommonDialog1.FileName For Output As #1
Print #1, RichTextBox1.Text[b][color=red];[/color][/b]
Close #1
```
Sep 11th, 2005, 05:50 AM
asgsoft

Re: HTML Editor

it doesn't add the line to the end it adds it to the top
Sep 11th, 2005, 05:59 AM
Joacim Andersson

Re: HTML Editor
Yes it does :). Well actually it adds it to the end as well, but you might not notice that unless you save the same document more then once without making changes to it. The reason it adds a newline at the top is because of the way you're reading the file. You currently have this code:
VB Code:
```
Open CommonDialog1.FileName For Input As #1
    Do Until EOF(1)
    Line Input #1, lineoftext$
    alltext$ = alltext$ & br & lineoftext$
    RichTextBox1.Text = alltext$
    Loop
    Close #1
```
Now think that you've just read the first line. What will alltext$ contain after that? It will contain a linebreak and then the first line you've just read. Why don't you use this code instead:
VB Code:
```
Open CommonDialog1.FileName For Input As #1
    RichTextBox1.Text = Input(LOF(1), 1)
    Close #1
```

Re: HTML Editor

but i can't test that at the moment. recently at my load event it has an error :

VB Code:

Private Sub Form_Load()
l = Chr(13) + Chr(10)
pre = "<HTML>" + l + "<HEAD>" + l + "<TITLE>New Page 1</TITLE>" + l + "</HEAD>"
pre = pre + l + "<BODY>" + l + l + l + l + l + l + l + "</BODY>" + l + "</HTML>"
RichTextBox1.Text = pre
c = False
S
 
trapUndo = True     'Enable Undo Trapping
    RichTextBox1_Change      'Initialize First Undo
    RichTextBox1_SelChange   'Initialize Menus
    Show
    DoEvents
    
End Sub

It highlights "Chr" and brings an error message saying "cannot find project or library "

Sep 13th, 2005, 12:38 PM
asgsoft

Re: HTML Editor

isn't anyone able to help out?
Sep 13th, 2005, 12:44 PM
Joacim Andersson

Re: HTML Editor

If you get that error on the Chr function you've probably deselected the reference to the VBA library. Click Project > References and make sure that the "Visual Basic For Applications" library is selected.
Sep 13th, 2005, 01:01 PM
asgsoft

Re: HTML Editor

I was selected but after i removed a control i no longer needs it worked perfect also after adding ur previous alteration for my code it still adds a line at the top when i save and then re-open
Sep 13th, 2005, 01:14 PM
Joacim Andersson

Re: HTML Editor

Can you show the Save and Load code you're currently using?

Re: HTML Editor

i have the following for open:

VB Code:

CommonDialog1.Filter = "HTML Pages|*.html"
CommonDialog1.DialogTitle = "Open"
If c = True Then
    q = MsgBox("Do you want to save your file?", vbYesNoCancel + vbQuestion, "ASGSoft HTML Editor")
    If q = vbCancel Then Exit Sub
    If q = vbYes Then cmdSave_Click
End If
CommonDialog1.ShowOpen
br = Chr(13) + Chr(10)
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Input As #1
    Do Until EOF(1)
    Line Input #1, lineoftext$
    alltext$ = alltext$ & br & lineoftext$
    RichTextBox1.Text = alltext$
    Loop
    Close #1
End If
S
CommonDialog1.Filter = "HTML Pages|*.html"
CommonDialog1.DialogTitle = "Open"
cmdUndo.Enabled = False

and for save i have the following

VB Code:

If CommonDialog1.FileName = "" Then
    With CommonDialog1
        .Filter = "HTML Pages|*.html"
        .DialogTitle = "Save"
        .ShowSave
    End With
    If CommonDialog1.FileName <> "" Then
        If Dir(CommonDialog1.FileName) = CommonDialog1.FileName Then
            Over = MsgBox("Do you want to overwrite the current file with this version?", vbYesNo + vbQuestion, "Save File")
            If Over = vbNo Then cmdSave_Click
        Else
            Open CommonDialog1.FileName For Output As #1
            Print #1, RichTextBox1.Text
            Close #1
        End If
    End If
Else
    Open CommonDialog1.FileName For Output As #1
    Print #1, RichTextBox1.Text
    Close #1
    CommonDialog1.DefaultExt = "html"
    CommonDialog1.DialogTitle = "Save"
    End If
c = False
S

function C and S are :

VB Code:

Public Sub S()
Z = CStr(CommonDialog1.FileTitle)
If Z = "" Then Z = "Untitled"
Me.Caption = "ASGSoft HTML Editor (" + Z + ")"
End Sub
 
Public Sub S()
Z = CStr(CommonDialog1.FileTitle)
If Z = "" Then Z = "Untitled"
Me.Caption = "ASGSoft HTML Editor (" + Z + ")"
End Sub

Hope that help

Re: HTML Editor

Hmmm.... I explained this a few posts ago. In this code:
VB Code:
CommonDialog1.ShowOpen
br = Chr(13) + Chr(10)
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Input As #1
    Do Until EOF(1)
    Line Input #1, lineoftext$
    alltext$ = alltext$ & br & lineoftext$
    RichTextBox1.Text = alltext$
    Loop
    Close #1
End If
When you read the first line you let alltext$ be a new line + the first line you read. So that it's because you insert a new line before the first line you just have read. I wondered why you didn't read it in all at once instead of one line at the time since it will be much faster:
VB Code:
CommonDialog1.ShowOpen
br = Chr(13) + Chr(10)
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Input As #1
    RichTextBox1.Text = Input(LOF(1), 1)
    Close #1
End If

Sep 14th, 2005, 03:06 PM
asgsoft

Re: HTML Editor

ok that solves this problem. my other problem is that when i creat a new document it asks if i want to save eventhough i made no changes? can you explain that as well please?
Sep 16th, 2005, 09:22 AM
asgsoft

Re: HTML Editor

can somone help?
Sep 16th, 2005, 09:55 AM
Joacim Andersson

Re: HTML Editor

Well I see that you ask for the file to be saved if c = True. What is "c" and when do you set that to False?

Show 60 post(s) from this thread on one page

All times are GMT -5. The time now is 03:21 AM.