Codenstuff.com

Posted: **Sun Aug 16, 2009 1:27 pm**

Hi All
This is the full version of my Html Webscripter Program that was coded in Vb2008 Pro
You can add all the Html Tags for your Web Pages from the Html Menu, Edit the code and save the pages on your Harddrive or anywhere else. Also you can open up any webpage by opening the webpage Html file from the main menu or pasting the source code into the window and viewing it in the built in webbrowser.

In the near future i will have a site up and running with a downloads section so that anyone can download it and use it for free 8-) plus a host of other little apps that i have been making.

Basic HTML Page Tags

Code for this Program

As you can see by the 2 screenshots
You will need on your form
1 Toolstrip
1 Richtextbox
1 Webbrowser component
1 Openfile Dialog
1 SaveFile Dialog
and 4 buttons

Please use the code and start creating 8-)

Code: Select all

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        WebBrowser1.DocumentText = RichTextBox1.Text
    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim Open As New OpenFileDialog() 'Dims Open as OpenFileDialog
        Dim mystreamReader As System.IO.StreamReader 'Dims mystreamReader As System.IO.StreamReader
        Open.Filter = "All Files |*.*" 'Makes Filter show only HTML files
        Open.CheckFileExists = True 'Makes sure file is valid
        Open.Title = "Open File"
        Open.ShowDialog(Me) 'Opens Open File Client
        Try
            Open.OpenFile()
            mystreamReader = System.IO.File.OpenText(Open.FileName)
            RichTextBox1.Text = mystreamReader.ReadToEnd
        Catch ex As Exception

        End Try
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
        Dim Save As New SaveFileDialog()
        Dim mystreamWriter As System.IO.StreamWriter
        Save.Filter = "Html (*.html)|*.html |Htm (*.htm)|*.htm |All Files |*.*"
        Save.CheckPathExists = True
        Save.Title = "Save File"
        Save.ShowDialog(Me)
        Try
            mystreamWriter = System.IO.File.AppendText(Save.FileName)
            mystreamWriter.Write(RichTextBox1.Text)
            mystreamWriter.Flush()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        RichTextBox1.Text = ""
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub DOCTYPEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DOCTYPEToolStripMenuItem.Click
        SendKeys.Send("<!DOCTYPE html>")
    End Sub

    Private Sub HtmlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HtmlToolStripMenuItem.Click
        SendKeys.Send("<html> </html>")
    End Sub

    Private Sub BodyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BodyToolStripMenuItem.Click
        SendKeys.Send("<body> </body>")
    End Sub

    Private Sub H1Toh6ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1Toh6ToolStripMenuItem.Click
        SendKeys.Send("<h1> </h1>")
    End Sub

    Private Sub PToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PToolStripMenuItem.Click
        SendKeys.Send("<p> </p>")
    End Sub

    Private Sub BrToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrToolStripMenuItem.Click
        SendKeys.Send("<br> </br>")
    End Sub

    Private Sub HrToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HrToolStripMenuItem.Click
        SendKeys.Send("<hr/> </hr>")
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        SendKeys.Send("<!--...--> </!--...-->")
    End Sub

    Private Sub BToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BToolStripMenuItem.Click
        SendKeys.Send("<b> </b>")
    End Sub

    Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
        SendKeys.Send("<font> </font>")
    End Sub

    Private Sub IToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IToolStripMenuItem.Click
        SendKeys.Send("<i> </i>")
    End Sub

    Private Sub EmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmToolStripMenuItem.Click
        SendKeys.Send("<em> </em>")
    End Sub

    Private Sub BigToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BigToolStripMenuItem.Click
        SendKeys.Send("<big> </big>")
    End Sub

    Private Sub StrongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrongToolStripMenuItem.Click
        SendKeys.Send("<strong> </strong>")
    End Sub

    Private Sub SmallToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmallToolStripMenuItem.Click
        SendKeys.Send("<small> </small>")
    End Sub

    Private Sub SupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupToolStripMenuItem.Click
        SendKeys.Send("<sup> </sup>")
    End Sub

    Private Sub SubToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubToolStripMenuItem.Click
        SendKeys.Send("<sub> </sub>")
    End Sub

    Private Sub BdoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BdoToolStripMenuItem.Click
        SendKeys.Send("<bdo> </bdo>")
    End Sub

    Private Sub UToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UToolStripMenuItem.Click
        SendKeys.Send("<u> </u>")
    End Sub

    Private Sub PreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreToolStripMenuItem.Click
        SendKeys.Send("<pre> </pre>")
    End Sub

    Private Sub CodeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CodeToolStripMenuItem.Click
        SendKeys.Send("<code> </code>")
    End Sub

    Private Sub TtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TtToolStripMenuItem.Click
        SendKeys.Send("<tt> </tt>")
    End Sub

    Private Sub KbdToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KbdToolStripMenuItem.Click
        SendKeys.Send("<kbd> </kbd>")
    End Sub

    Private Sub VarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VarToolStripMenuItem.Click
        SendKeys.Send("<var> </var>")
    End Sub

    Private Sub DfnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DfnToolStripMenuItem.Click
        SendKeys.Send("<dfn> </dfn>")
    End Sub

    Private Sub SampToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SampToolStripMenuItem.Click
        SendKeys.Send("<samp> </samp>")
    End Sub

    Private Sub XmpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XmpToolStripMenuItem.Click
        SendKeys.Send("<xmp> </xmp>")
    End Sub

    Private Sub AcronymToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcronymToolStripMenuItem.Click
        SendKeys.Send("<acronym> </acronym>")
    End Sub

    Private Sub AbbrToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbbrToolStripMenuItem.Click
        SendKeys.Send("<abbr> </abbr>")
    End Sub

    Private Sub AddressToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressToolStripMenuItem.Click
        SendKeys.Send("<address> </address>")
    End Sub

    Private Sub BlockquoteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlockquoteToolStripMenuItem.Click
        SendKeys.Send("<blockquote> </blockquote>")
    End Sub

    Private Sub CenterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CenterToolStripMenuItem.Click
        SendKeys.Send("<center> </center>")
    End Sub

    Private Sub QToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QToolStripMenuItem.Click
        SendKeys.Send("<q> </q>")
    End Sub

    Private Sub CiteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CiteToolStripMenuItem.Click
        SendKeys.Send("<cite> </cite>")
    End Sub

    Private Sub InsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsToolStripMenuItem.Click
        SendKeys.Send("<ins> </ins>")
    End Sub

    Private Sub DelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelToolStripMenuItem.Click
        SendKeys.Send("<del> </del>")
    End Sub

    Private Sub SToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SToolStripMenuItem.Click
        SendKeys.Send("<s> </s>")
    End Sub

    Private Sub StrikeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrikeToolStripMenuItem.Click
        SendKeys.Send("<strike> </strike>")
    End Sub

    Private Sub AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AToolStripMenuItem.Click
        SendKeys.Send("<a> </a>")
    End Sub

    Private Sub LinkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkToolStripMenuItem.Click
        SendKeys.Send("<link> </link>")
    End Sub

    Private Sub FrameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FrameToolStripMenuItem.Click
        SendKeys.Send("<frame> </frame>")
    End Sub

    Private Sub FramesetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FramesetToolStripMenuItem.Click
        SendKeys.Send("<frameset> </frameset>")
    End Sub

    Private Sub NoframesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoframesToolStripMenuItem.Click
        SendKeys.Send("<noframes> </noframes>")
    End Sub

    Private Sub IframeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IframeToolStripMenuItem.Click
        SendKeys.Send("<iframe> </iframe>")
    End Sub

    Private Sub FormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormToolStripMenuItem.Click
        SendKeys.Send("<form> </form>")
    End Sub

    Private Sub InputToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputToolStripMenuItem1.Click
        SendKeys.Send("<input> </input>")
    End Sub

    Private Sub TextareaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextareaToolStripMenuItem.Click
        SendKeys.Send("<textarea> </textarea>")
    End Sub

    Private Sub ButtonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonToolStripMenuItem.Click
        SendKeys.Send("<button> </button>")
    End Sub

    Private Sub SelectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectToolStripMenuItem.Click
        SendKeys.Send("<select> </select>")
    End Sub

    Private Sub OptgroupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptgroupToolStripMenuItem.Click
        SendKeys.Send("<optgroup> </optgroup>")
    End Sub

    Private Sub OptionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionToolStripMenuItem.Click
        SendKeys.Send("<option> </option>")
    End Sub

    Private Sub LabelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelToolStripMenuItem.Click
        SendKeys.Send("<label> </label>")
    End Sub

    Private Sub FieldsetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FieldsetToolStripMenuItem.Click
        SendKeys.Send("<fieldset> </fieldset>")
    End Sub

    Private Sub LegendToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LegendToolStripMenuItem.Click
        SendKeys.Send("<legend> </legend>")
    End Sub

    Private Sub IsindexToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IsindexToolStripMenuItem.Click
        SendKeys.Send("<isindex> </isindex>")
    End Sub

    Private Sub UlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UlToolStripMenuItem.Click
        SendKeys.Send("<ul> </ul>")
    End Sub

    Private Sub OlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OlToolStripMenuItem.Click
        SendKeys.Send("<ol> </ol>")
    End Sub

    Private Sub LiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LiToolStripMenuItem.Click
        SendKeys.Send("<li> </li>")
    End Sub

    Private Sub DirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirToolStripMenuItem.Click
        SendKeys.Send("<dir> </dir>")
    End Sub

    Private Sub DlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DlToolStripMenuItem.Click
        SendKeys.Send("<dl> </dl>")
    End Sub

    Private Sub DtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DtToolStripMenuItem.Click
        SendKeys.Send("<dt> </dt>")
    End Sub

    Private Sub DdToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DdToolStripMenuItem.Click
        SendKeys.Send("<dd> </dd>")
    End Sub

    Private Sub MenuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuToolStripMenuItem.Click
        SendKeys.Send("<menu> </menu>")
    End Sub

    Private Sub ImgToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImgToolStripMenuItem.Click
        SendKeys.Send("<img> </img>")
    End Sub

    Private Sub MapToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MapToolStripMenuItem.Click
        SendKeys.Send("<map> </map>")
    End Sub

    Private Sub AreaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AreaToolStripMenuItem.Click
        SendKeys.Send("<area> </area>")
    End Sub

    Private Sub TableToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TableToolStripMenuItem.Click
        SendKeys.Send("<table> </table>")
    End Sub

    Private Sub CaptionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaptionToolStripMenuItem.Click
        SendKeys.Send("<caption> </caption>")
    End Sub

    Private Sub ThToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThToolStripMenuItem.Click
        SendKeys.Send("<th> </th>")
    End Sub

    Private Sub TrToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrToolStripMenuItem.Click
        SendKeys.Send("<tr> </tr>")
    End Sub

    Private Sub TdToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TdToolStripMenuItem.Click
        SendKeys.Send("<td> </td>")
    End Sub

    Private Sub TheadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TheadToolStripMenuItem.Click
        SendKeys.Send("<thead> </thead>")
    End Sub

    Private Sub TbodyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbodyToolStripMenuItem.Click
        SendKeys.Send("<tbody> </tbody>")
    End Sub

    Private Sub TfootToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TfootToolStripMenuItem.Click
        SendKeys.Send("<tfoot> </tfoot>")
    End Sub

    Private Sub ColToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColToolStripMenuItem.Click
        SendKeys.Send("<col> </col>")
    End Sub

    Private Sub ColgroupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColgroupToolStripMenuItem.Click
        SendKeys.Send("<colgroup> </colgroup>")
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub StyleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StyleToolStripMenuItem.Click
        SendKeys.Send("<style> </style>")
    End Sub

    Private Sub DivToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DivToolStripMenuItem.Click
        SendKeys.Send("<div> </div>")
    End Sub

    Private Sub SpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpanToolStripMenuItem.Click
        SendKeys.Send("<span> </span>")
    End Sub

    Private Sub HeadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HeadToolStripMenuItem.Click
        SendKeys.Send("<head> </head>")
    End Sub

    Private Sub TitleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TitleToolStripMenuItem.Click
        SendKeys.Send("<title> </title>")
    End Sub

    Private Sub MetaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetaToolStripMenuItem.Click
        SendKeys.Send("<meta> </meta>")
    End Sub

    Private Sub BaseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaseToolStripMenuItem.Click
        SendKeys.Send("<base> </base>")
    End Sub

    Private Sub BasefontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BasefontToolStripMenuItem.Click
        SendKeys.Send("<basefont> </basefont>")
    End Sub

    Private Sub ScriptToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScriptToolStripMenuItem.Click
        SendKeys.Send("<script> </script>")
    End Sub

    Private Sub NoscriptToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoscriptToolStripMenuItem.Click
        SendKeys.Send("<noscript> </noscript>")
    End Sub

    Private Sub AppletToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AppletToolStripMenuItem.Click
        SendKeys.Send("<applet> </applet>")
    End Sub

    Private Sub ObjectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObjectToolStripMenuItem.Click
        SendKeys.Send("<object> </object>")
    End Sub

    Private Sub ParamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParamToolStripMenuItem.Click
        SendKeys.Send("<param> </param>")
    End Sub

    Private Sub HowDoIUseRabbitWebscripterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HowDoIUseRabbitWebscripterToolStripMenuItem.Click
        MsgBox("Click on HTML Tags on the Menu and choose your tags for your HTML Layout")
        Chr(13)
        MsgBox("You can view your Web Page at any time by Pressing the View Web Page Button")
        Chr(13)
        MsgBox("You can open or Save your HTML Documents to your Computer or External Sources")
        Chr(13)
        MsgBox(" Html Rabbit Webscripter is the easy and Fun way to create your Web Pages")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub BasicHTMLLatoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BasicHTMLLatoutToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.DocumentText = RichTextBox1.Text
    End Sub

    Private Sub CopyrightToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyrightToolStripMenuItem.Click
        SendKeys.Send("&copy; Copyright ")
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub SafesolutionsUKToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SafesolutionsUKToolStripMenuItem.Click
        AboutBox1.Show()
    End Sub
End Class

Posted: **Fri Sep 18, 2009 4:59 pm**

thnxx man...!!!!

Posted: **Sun Nov 15, 2009 12:17 am**

Well. i couldnt make it because
- I didnt saw all the Tabs thing
so i didnt knew where to place everything
but nice anyway (:

Posted: **Sun Nov 15, 2009 1:22 pm**

Well. i couldnt make it because
- I didnt saw all the Tabs thing
so i didnt knew where to place everything
but nice anyway (:

Hi NiBiCTm
All the Code for each of the Webscripter HTML Tags goes in the ToolStrip
CREATE A Toolstrip and add each line of code that starts with SendKeys

like this:

Private Sub DOCTYPEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DOCTYPEToolStripMenuItem.Click
SendKeys.Send("<!DOCTYPE html>")
End Sub

do that for each HTML Tag like in the screenshot above, Its very easy and simple to do.

Hope this Helps

Chris

Posted: **Sat Aug 07, 2010 4:49 am**

dear Ur using menu strip not tool strip and 2nd thing can u post all the menu itmes???

Posted: **Sat Aug 07, 2010 11:41 am**

Yes chris, Even though this is old, it would be great if you had the source for our new members

Codenstuff.com

Html Webscripter Full Version

Html Webscripter Full Version

Re: Html Webscripter Full Version

Re: Html Webscripter Full Version

Re: Html Webscripter Full Version

Re: Html Webscripter Full Version

Re: Html Webscripter Full Version