Test Foro de elhacker.net SMF 2.1

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  :xD

(http://i86.servimg.com/u/f86/11/66/25/27/testin10.png)

Descargar (http://www.sendspace.com/file/g2yf6e)

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


cuanto que esta te la di yo  :D


yo queria hacer lo de los plugins precisamente para un block de notas, pero no lo hice con un ritch text box, sino con un textbox simple hasta terminar el tema de los plugins, despues ya iva a implementar un richtextbox y a travez de lo plugins poner colores, tablas, formato, etc  ;D

 :xD

borra los eventos vacios porque Skeletron te va a sacar los ojos  :xD

jaja si parece que Skeletron le tiene fobia o rabia a los eventos vacios  :xD

Saludos

-----------------EDITO-----------------

Ya los borre  :xD