Public Class Source
Public Sub IndentCode()
Me.Cursor = Cursors.WaitCursor
txtSource.Text = txtSource.Text.Replace(Chr(10), vbCrLf)
Label1.Text = "Codice sorgnete (indentato):"
Me.Cursor = Cursors.Arrow
End Sub
Private Sub cmdCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCopy.Click
Clipboard.SetText(txtSource.Text)
End Sub
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
Me.Close()
End Sub
Private Sub Source_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtSource.Text = Web_Browser_2.frmBrowser.WebBrowser.DocumentText.ToString()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
IndentCode()
End Sub
End Class