Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
HTML Tools 2.1 - Form1.vb

Form1.vb

Caricato da: R0gerblack
Scarica il programma completo

  1. Public Class Form1
  2.     Dim SaveFileDialog1 As New SaveFileDialog
  3.     Dim OpenFileDialog1 As New OpenFileDialog
  4.     Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
  5.         TextBox1.Clear()
  6.     End Sub
  7.  
  8.     Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  9.         WebBrowser1.DocumentText = TextBox1.Text
  10.     End Sub
  11.  
  12.     Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
  13.         SaveFileDialog1.Filter = "HTML Files (*.html)|*.html"
  14.         If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  15.             Dim c As New IO.StreamWriter(SaveFileDialog1.FileName)
  16.             c.WriteLine(TextBox1.Text)
  17.             c.Close()
  18.         End If
  19.     End Sub
  20.  
  21.     Private Sub PosizioneCarattereSINISTRAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PosizioneCarattereSINISTRAToolStripMenuItem.Click
  22.         TextBox1.Text = TextBox1.Text + "<DIV ALIGN=left>" + InputBox("Scrivi il testo da posizionare") + "</DIV>" + vbNewLine
  23.     End Sub
  24.  
  25.     Private Sub PosizioneCarattereDESTRAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PosizioneCarattereDESTRAToolStripMenuItem.Click
  26.         TextBox1.Text = TextBox1.Text + "<DIV ALIGN=right>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
  27.     End Sub
  28.  
  29.     Private Sub PosizioneCarattereCENTROToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PosizioneCarattereCENTROToolStripMenuItem.Click
  30.         TextBox1.Text = TextBox1.Text + "<CENTER>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
  31.     End Sub
  32.  
  33.     Private Sub NuovoHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuovoHTMLToolStripMenuItem.Click
  34.         TextBox1.Clear()
  35.     End Sub
  36.  
  37.     Private Sub SalvaHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaHTMLToolStripMenuItem.Click
  38.         SaveFileDialog1.Filter = "HTML Files (*.html)|*.html"
  39.         If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  40.             Dim w As New IO.StreamWriter(SaveFileDialog1.OpenFile)
  41.             w.Write(TextBox1.Text)
  42.             w.Close()
  43.         End If
  44.     End Sub
  45.  
  46.     Private Sub EditaHTMLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditaHTMLToolStripMenuItem.Click
  47.         OpenFileDialog1.Filter = "HTML Files (*.html)|*.html"
  48.         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  49.             Dim R As New IO.StreamReader(OpenFileDialog1.OpenFile)
  50.             While Not R.EndOfStream
  51.                 TextBox1.Text = R.ReadToEnd
  52.             End While
  53.         End If
  54.     End Sub
  55.  
  56.     Private Sub TestoInCorsivoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestoInCorsivoToolStripMenuItem1.Click
  57.         TextBox1.Text = TextBox1.Text + "<i>" + InputBox("Metti il Testo che verrà convertito in corsivo") + "</i>" + vbNewLine
  58.     End Sub
  59.  
  60.     Private Sub MettiImmagineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MettiImmagineToolStripMenuItem.Click
  61.         TextBox1.Text = TextBox1.Text + "<img src=" + InputBox("Metti l'url del file") + ">" + vbNewLine
  62.     End Sub
  63.  
  64.     Private Sub TestoInGrassettoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestoInGrassettoToolStripMenuItem.Click
  65.         TextBox1.Text = TextBox1.Text + "<b>" + InputBox("Metti il testo che verrà convertito in grassetto") + "</b>" + vbNewLine
  66.     End Sub
  67.  
  68.     Private Sub TestoInGrassettoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestoInGrassettoToolStripMenuItem1.Click
  69.         TextBox1.Text = TextBox1.Text + "<u>" + InputBox("Metti il testo che verrà sottolineato") + "</u>" + vbNewLine
  70.     End Sub
  71.  
  72.     Private Sub InserisciUnLinkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InserisciUnLinkToolStripMenuItem.Click
  73.         TextBox1.Text = TextBox1.Text + "<a href=" + InputBox("Metti l'url del link") + ">" + InputBox("Metti la descrizione") + "</a>" + vbNewLine
  74.     End Sub
  75.  
  76.     Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
  77.         Application.Exit()
  78.     End Sub
  79.  
  80.     Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
  81.         TextBox1.Text = TextBox1.Text + "<DIV ALIGN=left>" + InputBox("Scrivi il testo da posizionare") + "</DIV>" + vbNewLine
  82.     End Sub
  83.  
  84.     Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
  85.         TextBox1.Text = TextBox1.Text + "<CENTER>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
  86.     End Sub
  87.  
  88.     Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
  89.         TextBox1.Text = TextBox1.Text + "<DIV ALIGN=right>" + InputBox("Scrivi il testo da posizionare") + "</CENTER>" + vbNewLine
  90.     End Sub
  91.  
  92.     Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
  93.         TextBox1.Text = TextBox1.Text + "<i>" + InputBox("Metti il Testo che verrà convertito in corsivo") + "</i>" + vbNewLine
  94.     End Sub
  95.  
  96.     Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
  97.         TextBox1.Text = TextBox1.Text + "<b>" + InputBox("Metti il Testo che verrà convertito in grassetto") + "</b>" + vbNewLine
  98.     End Sub
  99.  
  100.     Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
  101.         TextBox1.Text = TextBox1.Text + "<u>" + InputBox("Metti il Testo che verrà sottolineato") + "</u>" + vbNewLine
  102.     End Sub
  103.  
  104.     Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
  105.         OpenFileDialog1.Filter = "HTML Files (*.html)|*.html"
  106.         If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  107.             Dim R As New IO.StreamReader(OpenFileDialog1.OpenFile)
  108.             TextBox1.Text = R.ReadToEnd
  109.             R.Close()
  110.         End If
  111.     End Sub
  112.  
  113.     Private Sub ACapoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ACapoToolStripMenuItem.Click
  114.         TextBox1.Text += "<br>"
  115.     End Sub
  116.  
  117.     Private Sub BottoneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BottoneToolStripMenuItem.Click
  118.         TextBox1.Text += "<form>" & vbNewLine & "<input type=""button""value=""Bottone inserito"">" & vbNewLine & "</form>"
  119.     End Sub
  120.  
  121.     Private Sub CheckBoxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxToolStripMenuItem.Click
  122.         TextBox1.Text += "<input type=""checkbox" & """ name=""lollo"" value= ""inserire nome""/> inserire nome"
  123.     End Sub
  124.  
  125.     Private Sub TabellaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabellaToolStripMenuItem.Click
  126.         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>"
  127.     End Sub
  128.  
  129.     Private Sub LineaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineaToolStripMenuItem.Click
  130.         TextBox1.Text += "<hr>"
  131.     End Sub
  132.  
  133.     Private Sub ElencoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElencoToolStripMenuItem.Click
  134.         TextBox1.Text += "<ul type=""disc""><li>primo</li><li>secondo</li><li>terzo</li></ul>"
  135.     End Sub
  136.  
  137.     Private Sub RossoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RossoToolStripMenuItem.Click
  138.         TextBox1.Text += "<font color=""red"">Immettere il testo in rosso</font>"
  139.     End Sub
  140.  
  141.     Private Sub NeroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeroToolStripMenuItem.Click
  142.         TextBox1.Text += "<font color=""black"">Immettere il testo in nero</font>"
  143.     End Sub
  144.  
  145.     Private Sub VerdeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerdeToolStripMenuItem.Click
  146.         TextBox1.Text += "<font color=""green"">Immettere il testo in verde</font>"
  147.     End Sub
  148.  
  149.     Private Sub BluToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BluToolStripMenuItem.Click
  150.         TextBox1.Text += "<font color=""blue"">Immettere il testo in blu</font>"
  151.     End Sub
  152.  
  153.     Private Sub ArancioneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArancioneToolStripMenuItem.Click
  154.         TextBox1.Text += "<font color=""orange"">Immettere il testo in arancione</font>"
  155.     End Sub
  156.  
  157.     Private Sub MarroneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MarroneToolStripMenuItem.Click
  158.         TextBox1.Text += "<font color=""brown"">Immettere il testo in marrone</font>"
  159.     End Sub
  160.  
  161.     Private Sub DimensioneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DimensioneToolStripMenuItem.Click
  162.         TextBox1.Text += "<font size=""IMMETTERE DIMENSIONE"">testo</font>"
  163.     End Sub
  164.  
  165.     Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
  166.         TextBox1.Text += "<font face=""Scrivere QUI font da utilizzare"">testo</font>"
  167.     End Sub
  168.  
  169.     Private Sub ScorriTestoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScorriTestoToolStripMenuItem.Click
  170.         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
  171.     End Sub
  172.  
  173.     Private Sub ImmagineCheScorreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImmagineCheScorreToolStripMenuItem.Click
  174.         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
  175.     End Sub
  176.  
  177.     Private Sub MettiImmagineCheSiConnetteAUnLinkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MettiImmagineCheSiConnetteAUnLinkToolStripMenuItem.Click
  178.         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>"
  179.     End Sub
  180. End Class