Bueno aca les dejo un Bloc de notas que hize en .net, tiene varias opciones sencillas y utiles y de paso les dejo el codigo
Descargar
Descargar
Código (vbnet) [Seleccionar]
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