Public Class Form1
Dim SaveFileDialog1 As New SaveFileDialog
Dim OpenFileDialog1 As New OpenFileDialog
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
TextBox1.Clear()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
WebBrowser1.DocumentText = TextBox1.Text
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
SaveFileDialog1.Filter = "HTML Files (*.html)|*.html"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As New IO.StreamWriter(SaveFileDialog1.FileName)
c.WriteLine(TextBox1.Text)
c.Close()
End If
End Sub
Private Sub PosizioneCarattereSINISTRAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PosizioneCarattereSINISTRAToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text + "<DIV ALIGN=left>" + InputBox("Scrivi il testo da posizionare") + "</DIV>" + vbNewLine
End Sub
Private Sub PosizioneCarattereDESTRAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PosizioneCarattereDESTRAToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text + "<DIV ALIGN=right>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
End Sub
Private Sub PosizioneCarattereCENTROToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PosizioneCarattereCENTROToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text + "<CENTER>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
End Sub
Private Sub NuovoHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuovoHTMLToolStripMenuItem.Click
TextBox1.Clear()
End Sub
Private Sub SalvaHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaHTMLToolStripMenuItem.Click
SaveFileDialog1.Filter = "HTML Files (*.html)|*.html"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim w As New IO.StreamWriter(SaveFileDialog1.OpenFile)
w.Write(TextBox1.Text)
w.Close()
End If
End Sub
Private Sub EditaHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditaHTMLToolStripMenuItem.Click
OpenFileDialog1.Filter = "HTML Files (*.html)|*.html"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim R As New IO.StreamReader(OpenFileDialog1.OpenFile)
While Not R.EndOfStream
TextBox1.Text = R.ReadToEnd
End While
End If
End Sub
Private Sub TestoInCorsivoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestoInCorsivoToolStripMenuItem1.Click
TextBox1.Text = TextBox1.Text + "<i>" + InputBox("Metti il Testo che verrà convertito in corsivo") + "</i>" + vbNewLine
End Sub
Private Sub MettiImmagineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MettiImmagineToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text + "<img src=" + InputBox("Metti l'url del file") + ">" + vbNewLine
End Sub
Private Sub TestoInGrassettoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestoInGrassettoToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text + "<b>" + InputBox("Metti il testo che verrà convertito in grassetto") + "</b>" + vbNewLine
End Sub
Private Sub TestoInGrassettoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestoInGrassettoToolStripMenuItem1.Click
TextBox1.Text = TextBox1.Text + "<u>" + InputBox("Metti il testo che verrà sottolineato") + "</u>" + vbNewLine
End Sub
Private Sub InserisciUnLinkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InserisciUnLinkToolStripMenuItem.Click
TextBox1.Text = TextBox1.Text + "<a href=" + InputBox("Metti l'url del link") + ">" + InputBox("Metti la descrizione") + "</a>" + vbNewLine
End Sub
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
TextBox1.Text = TextBox1.Text + "<DIV ALIGN=left>" + InputBox("Scrivi il testo da posizionare") + "</DIV>" + vbNewLine
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
TextBox1.Text = TextBox1.Text + "<CENTER>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
TextBox1.Text = TextBox1.Text + "<DIV ALIGN=right>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
TextBox1.Text = TextBox1.Text + "<i>" + InputBox("Metti il Testo che verrà convertito in corsivo") + "</i>" + vbNewLine
End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
TextBox1.Text = TextBox1.Text + "<b>" + InputBox("Metti il Testo che verrà convertito in grassetto") + "</b>" + vbNewLine
End Sub
Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
TextBox1.Text = TextBox1.Text + "<u>" + InputBox("Metti il Testo che verrà sottolineato") + "</u>" + vbNewLine
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
OpenFileDialog1.Filter = "HTML Files (*.html)|*.html"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim R As New IO.StreamReader(OpenFileDialog1.OpenFile)
TextBox1.Text = R.ReadToEnd
R.Close()
End If
End Sub
Private Sub ACapoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ACapoToolStripMenuItem.Click
TextBox1.Text += "<br>"
End Sub
Private Sub BottoneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BottoneToolStripMenuItem.Click
TextBox1.Text += "<form>" & vbNewLine & "<input type=""button""value=""Bottone inserito"">" & vbNewLine & "</form>"
End Sub
Private Sub CheckBoxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxToolStripMenuItem.Click
TextBox1.Text += "<input type=""checkbox" & """ name=""lollo"" value= ""inserire nome""/> inserire nome"
End Sub
Private Sub TabellaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabellaToolStripMenuItem.Click
TextBox1.Text += "<table width=""300"" height=""200"" border=""1""><tr> <td>prima cella</td><td>seconda cella</td></tr><tr><td>terza cella</td> <td>quarta cella</td> </tr></table>"
End Sub
Private Sub LineaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineaToolStripMenuItem.Click
TextBox1.Text += "<hr>"
End Sub
Private Sub ElencoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElencoToolStripMenuItem.Click
TextBox1.Text += "<ul type=""disc""><li>primo</li><li>secondo</li><li>terzo</li></ul>"
End Sub
Private Sub RossoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RossoToolStripMenuItem.Click
TextBox1.Text += "<font color=""red"">Immettere il testo in rosso</font>"
End Sub
Private Sub NeroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeroToolStripMenuItem.Click
TextBox1.Text += "<font color=""black"">Immettere il testo in nero</font>"
End Sub
Private Sub VerdeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerdeToolStripMenuItem.Click
TextBox1.Text += "<font color=""green"">Immettere il testo in verde</font>"
End Sub
Private Sub BluToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BluToolStripMenuItem.Click
TextBox1.Text += "<font color=""blue"">Immettere il testo in blu</font>"
End Sub
Private Sub ArancioneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArancioneToolStripMenuItem.Click
TextBox1.Text += "<font color=""orange"">Immettere il testo in arancione</font>"
End Sub
Private Sub MarroneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MarroneToolStripMenuItem.Click
TextBox1.Text += "<font color=""brown"">Immettere il testo in marrone</font>"
End Sub
Private Sub DimensioneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DimensioneToolStripMenuItem.Click
TextBox1.Text += "<font size=""IMMETTERE DIMENSIONE"">testo</font>"
End Sub
Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
TextBox1.Text += "<font face=""Scrivere QUI font da utilizzare"">testo</font>"
End Sub
Private Sub ScorriTestoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScorriTestoToolStripMenuItem.Click
TextBox1.Text += "<td class=""ww""><b><marquee direction=" + InputBox("Scrivi il lato in cui deve scorrere(in inglese)") + " scrollAmount=" + InputBox("Scrivere la velocità ") + """height=""200"" width=""100%"">" + InputBox("Metti il testo che deve scorrere") + vbNewLine
End Sub
Private Sub ImmagineCheScorreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImmagineCheScorreToolStripMenuItem.Click
TextBox1.Text += "<td class=""ww""><b><marquee direction=" + InputBox("Scrivi il lato in cui deve scorrere(in inglese)") + " scrollAmount=" + InputBox("Scrivere la velocità ") + """height=""200"" width=""100%""><img src=" + InputBox("Metti il l'URL dell'immagine che deve scorrere") + ">" + vbNewLine
End Sub
Private Sub MettiImmagineCheSiConnetteAUnLinkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MettiImmagineCheSiConnetteAUnLinkToolStripMenuItem.Click
TextBox1.Text += "<A href=" + InputBox("Metti l'URL a cui l'immagine si debba connettere") + "><IMG src=" + InputBox("Metti l'URL dell'immagine") + " border=""0"" alt=""Google"" align=""absmiddle""></A>"
End Sub
End Class