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
Global Web 2.2 - Source.vb

Source.vb

Caricato da: Totem
Scarica il programma completo

  1. Public Class Source
  2.     Public Sub IndentCode()
  3.         Me.Cursor = Cursors.WaitCursor
  4.         txtSource.Text = txtSource.Text.Replace(Chr(10), vbCrLf)
  5.         Label1.Text = "Codice sorgnete (indentato):"
  6.         Me.Cursor = Cursors.Arrow
  7.     End Sub
  8.     Private Sub cmdCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCopy.Click
  9.         Clipboard.SetText(txtSource.Text)
  10.     End Sub
  11.     Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
  12.         Me.Close()
  13.     End Sub
  14.     Private Sub Source_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         txtSource.Text = Web_Browser_2.frmBrowser.WebBrowser.DocumentText.ToString()
  16.     End Sub
  17.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  18.         IndentCode()
  19.     End Sub
  20. End Class