elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Textbook Pequeño bloc de notas hecho en .net
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Textbook Pequeño bloc de notas hecho en .net  (Leído 4,298 veces)
Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Textbook Pequeño bloc de notas hecho en .net
« en: 1 Septiembre 2009, 06:08 am »

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



Descargar

Código
  1. Public Class Form1
  2.    Inherits System.Windows.Forms.Form
  3.  
  4.    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  5.        If RichTextBox1.Text = "" Then
  6.            MessageBox.Show("No hay nada para copiar")
  7.            Return
  8.        End If
  9.        Clipboard.SetText(RichTextBox1.Text)
  10.        MessageBox.Show("Texto copiado al clipboard")
  11.    End Sub
  12.  
  13.    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
  14.        If RichTextBox1.Text = "" Then
  15.            MessageBox.Show("No hay nada que borrar")
  16.            Return
  17.        End If
  18.        RichTextBox1.Clear()
  19.    End Sub
  20.  
  21.    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
  22.        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
  23.            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
  24.        End If
  25.        Form1.ActiveForm().Text() = "Editor de Texto " + SaveFileDialog1.FileName
  26.    End Sub
  27.  
  28.    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
  29.        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
  30.            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
  31.        End If
  32.        Form1.ActiveForm().Text() = "Editor de texto " + OpenFileDialog1.FileName
  33.    End Sub
  34.  
  35.    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
  36.        Timer1.Start()
  37.    End Sub
  38.  
  39.    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
  40.        WindowState = 1
  41.    End Sub
  42.  
  43.    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
  44.        MessageBox.Show("Texbook creado por BlazeFire")
  45.    End Sub
  46.  
  47.    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  48.        Static i As Double = 1.0
  49.        i -= 0.08
  50.        Me.Opacity = i
  51.        If Me.Opacity = 0 Then
  52.            CType(sender, Timer).Stop()
  53.            End
  54.        End If
  55.    End Sub
  56.  
  57.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  58.        Timer2.Start()
  59.        Timer3.Start()
  60.    End Sub
  61.  
  62.    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  63.        Dim cantidad As Integer
  64.        cantidad = Len(RichTextBox1.Text)
  65.        Label7.Text = (cantidad)
  66.    End Sub
  67.  
  68.    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
  69.        Label8.Text = Format$(Now, "dd/MM/yyyy hh:mm:ss")
  70.    End Sub
  71.  
  72.    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
  73.        Timer3.Start()
  74.    End Sub
  75. End Class
  76.  


« Última modificación: 2 Septiembre 2009, 02:07 am por BlazeFire » En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Textbook Pequeño bloc de notas hecho en .net
« Respuesta #1 en: 1 Septiembre 2009, 20:47 pm »

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


En línea

Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Textbook Pequeño bloc de notas hecho en .net
« Respuesta #2 en: 1 Septiembre 2009, 21:41 pm »

 :xD
En línea

seba123neo


Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Textbook Pequeño bloc de notas hecho en .net
« Respuesta #3 en: 2 Septiembre 2009, 01:35 am »

borra los eventos vacios porque Skeletron te va a sacar los ojos  :xD
En línea

Braayhaan

Desconectado Desconectado

Mensajes: 224



Ver Perfil
Re: Textbook Pequeño bloc de notas hecho en .net
« Respuesta #4 en: 2 Septiembre 2009, 02:03 am »

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

Saludos

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

Ya los borre  :xD
« Última modificación: 2 Septiembre 2009, 02:08 am por BlazeFire » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[AYUDA] Pequeño programa de notas « 1 2 »
Java
reeyesg 16 5,916 Último mensaje 6 Mayo 2015, 19:11 pm
por PabloPbl
abrir archivo de texto con bloc de notas hecho en java
Java
JenselG 1 2,730 Último mensaje 6 Mayo 2018, 13:56 pm
por ivancea96
Mywoork: un gestor de notas, tareas y contactos para trabajar en equipo hecho...
Noticias
wolfbcn 0 1,141 Último mensaje 11 Julio 2018, 01:46 am
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines