Descargar
Código
Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click If RichTextBox1.Text = "" Then MessageBox.Show("No hay nada para copiar") Return End If Clipboard.SetText(RichTextBox1.Text) MessageBox.Show("Texto copiado al clipboard") End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click If RichTextBox1.Text = "" Then MessageBox.Show("No hay nada que borrar") Return End If RichTextBox1.Clear() End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click If SaveFileDialog1.ShowDialog = DialogResult.OK Then RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If Form1.ActiveForm().Text() = "Editor de Texto " + SaveFileDialog1.FileName End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click If OpenFileDialog1.ShowDialog = DialogResult.OK Then RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText) End If Form1.ActiveForm().Text() = "Editor de texto " + OpenFileDialog1.FileName End Sub Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click Timer1.Start() End Sub Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click WindowState = 1 End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click MessageBox.Show("Texbook creado por BlazeFire") End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static i As Double = 1.0 i -= 0.08 Me.Opacity = i If Me.Opacity = 0 Then CType(sender, Timer).Stop() End End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer2.Start() Timer3.Start() End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim cantidad As Integer cantidad = Len(RichTextBox1.Text) Label7.Text = (cantidad) End Sub Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Label8.Text = Format$(Now, "dd/MM/yyyy hh:mm:ss") End Sub Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click Timer3.Start() End Sub End Class