Navegación

    UniversoJuegos
    • Registrarse
    • Conectarse
    • Buscar
    • Recientes
    • Etiquetas
    • Popular
    • Usuarios
    • Grupos
    • Buscar
    1. Inicio
    2. Anghios
    3. Mensajes

    Anghios (@Anghios)

    1114
    Reputación
    11317
    Mensajes
    2243
    Visitas
    3
    Seguidores
    2
    Siguiendo
    • Perfil
    • Siguiendo
    • Seguidores
    • Temas
    • Mensajes
    • Mejor valorados
    • Grupos

    Information about Anghios

    Registrado
    Última vez conectado
    Sitio web
    www.twitter.com/anghios

    Publicados por Anghios

    • Para los que todos se han deprimido.

      Youtube Video

      Pues yo me identifico totalmente con esta canción, cuando uno está depre o algo, no viene mal escucharla 🙂

      publicado en Música
    • El malo se va.

      La madre que os parió y os trajo a todos ç_ç 8->

      Pues elijo la montañita 3 D/
      Os lo voy a tener todo esto en cuenta P soys la repera ^^
      Y si, tonica estás perdonao, las paces que tu quieras pero nada de confianzas eh? solo buen royo -c La verdad, es que también me pilló en un muy mal día. Es lo que tiene que cuando una persona importante se "va" S

      publicado en Despedidas
    • El malo se va.

      Bueno, como ya le comenté a 2 o 3 personas, y muchos ya sospechaban algo, lo hago publico. Me voy, y para siempre.
      ¿Razones? Muchas, la chica, los estudios, y sobre todo yo. No puedo estar en una comunidad en la que de alguna manera decirlo "no soy bien recibido", y como he venido, me voy.
      No es lo que quería, ya que aquí me he encontrado de todo. Gente estupenda como Salva y Miki, y cachondos del msn como EmPe (arrimón xDDDD) y un largo etc.

      Me da palo irme, y así por las buenas, por que creo que no estoy haciendo lo correcto, ya que estaba cogiendo confianza con Salva y un buen humor bastante... ¿bonito? xD y más aún con lo del foro de pruebas, que también me temo que me tendré que retirar, y es algo que me es relevante del todo (lo siento Miguel.) Yo, sinceramente hubiera pensado que yo hubiese siendo un muy buen MOD junto a Miki, pero bueno, ya sabemos lo que hay.
      No puedo estar rodeado de gente que no me "aprecia" y por las buenas y ligeras, me intentan dejar mal, después de lo mucho que hice por vosotros. Eso, de verdad, me sienta como una patada en el estomago después de estar en ayunas y de un análisis de sangre(anda que no jode... xD)
      Y otra de las razones soy yo, si, no puedo controlarme y pierdo los estribos fácilmente. (Aquí la prueba: [http://foro.universojuegos.es/viewtopic.php?f=69&t=4258][0]">viewtopic.php?f=69&t=4258) y otras que os puede contar vuestro querido Tonica801.
      También me llevo cosas buenas, como los saberes de Salva, aelita y rko me han enseñado, sobre todo en comportamiento. Dicen que uno no se va de un sitio grande con mal sabor de boca, y aunque lo parezca, no me lo llevo, por que en el fondo se os quiere mucho 😛

      Después de este tocho (que seguro que más de uno se lo va a pasar por el forro de donde ya sabemos) me despido. Puede que recapacite y vuelva. Pues nada, ha sido un verdadero placer haber estado con todos vosotros.
      Hay una cosa que me gustaría decir antes de "irme" y es: perdón de todo corazón si en algún momento he ofendido a algún usuario y especialmente a Tonica. Me gustaría mucho que opinase Salva, aelita, rko... Y alguno de vosotros, pero ya sabemos todos que tipo de "figura" soy para vosotros =/ una verdadera lástima.

      Un gran abrazo a toda la comunidad: Néstor 😉

      [alinear-centro]IGNOREN ESTE HILO[/alinear-centro]

      [0]: <a href=

      publicado en Despedidas
    • Dinastiamt2 - Metin2 Servidor Privado

      Quita los rates, no pone al robin, ha destrozado el server.

      publicado en Servidores
    • 1 pregunta solo el programa JDownloader

      No. Copias los 75 links, le das a capturar LINKS o URL, pegas los 75 y el programa te dice si funcionan, y si funcionan pues a descargar xD

      publicado en Informática
    • [AYUDA] Como cambiar nombre al cliente

      Decompilas Root.epk, y editas locale.py ^^

      publicado en Ayuda
    • 1 pregunta solo el programa JDownloader

      Para UP.to, rapidshare, hotfile etc, siempre y cuando respetando los limites de descargas que ponen dichas webs.

      publicado en Informática
    • SuperNotepad (Mejor que el de Windows)

      @axav said:

      Primero if es una condicional dire es el nombre de la variable que se declaro anteriormente, Windows.Form.DialogResult , muestra el resultado que recoge la variable dire, y then forma parte de la instruccion que se asignara posteriormente, como un mensaje en una caja.

      Me gustaría ver mucho ese código que tu dices (y si encima me lo copias mal tu sabrás lo que haces super aficCionado :)))

      Si te lo digo con mis palabras es: La ventana inicial resulta como un dialogo y lo que quieras ponerle, sencillo.

      Y para nada soy prepotente, y después de ver tu post y tus pintas (no me meto con ellas ^:)^ ) también queda demostrado el que va fardando, y el prepotente sobre todo. Buenas palabras, tranquilidad, y bueno alimentos machote.

      PD: Sigo esperando ese código que tu dices que está en mi programa 🙂

      3º- Tu super código (MAL ESCRITO ENCIMA) no existe a no ser que crees un module.vb y dentro hagas varias Strings y Booleans
      Ejemplo:
      CÓDIGO: SELECCIONAR TODO
      Module Module1
      Public AtkMode As Boolean = False
      Public rgatkkMode As Boolean = False
      Public hitmode As Boolean = False
      Public InviMode As Boolean = False
      Public MovMode As Boolean = False
      Public processHandle As IntPtr
      Public value As String
      End Module

      Este codigo es copiado de un hack y por ejemplo si te digo de que trata la funcion public o private no sabrias definirla en pocas palabras, no sabes lo que signinfica ese codigo.. bla bla , sigue con tus rollos presumiendo...

      Que gente sepa mas que tu en lo que eres aficCionado, no es nuestro problema, y si posteas para inculpar a gente sin pruebas, tu sabrás donde te metes, para mi esto es una duda, que estoy intentando resolver, así que amonestarme, no me van a amonestar, ahora bien.

      Esos Publics o privates como tu dices, son creadas en un modulo dandole "formas" es decir, añadiéndole constantes, values hexadecimales y/o normales. Eso se pone luego en el botón de activate. Para que reciba la información del módulo.

      @axav said:

      Hey tio comprate un amigo

      Los amigos lamentablemente, no se compran. A diferencia que tu, sea o no sea mas maduro, lo aparento, es algo de lo que puedo fardar 🙂
      Si estás acostumbrado a "comprar amigos" como tu dices, también queda demostrado quien es "farda" y el tipico personaje que eres. Y acto seguido, reporto los mensajes, que cierren o que hagan lo que quieran con el tema, pero tanto tu, como yo, no somos nadie, así que llévate cuidad (no se si me entiendes ;))

      publicado en Utilidades
    • SuperNotepad (Mejor que el de Windows)

      @axav said:

      Primero que lo que quieres cambiar no es una variable y segundo si se puede cambiar.

      Y hablando de variables, todas las variables de tus "programas" estan declaradas en ingles y muchos de los hack de metin, las variables estan declaradas en italiano, jaja tio, haz lo que quieras, pero queda demostrado que tu mismo te muerdes por dentro.

      Por cierto no soy infomartico, soy aficcionado y lo que se lo demuestro enseñando...

      1º: Si, es una variable. Búscalo donde quieras, no es mi problema que no estés bien informado.
      Una variable es un símbolo que representa un elemento no especificado de un conjunto dado. Dicho conjunto es llamado conjunto universal de la variable, universo o dominio de la variable, y cada elemento del conjunto es un valor de la variable. Sea x una variable cuyo universo es el conjunto {1,3,5,7,9,11,13}; entonces x puede tener cualquiera de esos valores: 1,3,5,7,9,11,13. En otras palabras x puede reemplazarse por cualquier entero positivo impar menor que 14. Por esta razón, a menudo se dice que una variable es un reemplazo de cualquier elemento de su universo.
      Una variable es un elemento de una fórmula, proposición o algoritmo que puede adquirir o ser sustituido por un valor cualquiera (siempre dentro de su universo). Los valores que una variable es capaz de recibir, pueden estar definidos dentro de un rango, y/o estar limitados por criterios o condiciones de pertenencia, al universo que les corresponde (en estos casos, el universo de la variable pasa a ser un subconjunto de un universo mayor, el que tendría sin las restricciones).
      CopyPasteado eso, solo queda decir, que como digo, esa variable no la puedo cambiar desde el programa, mayormente por que no está fixeado (te vas pispando ya?)

      También, me sorprende que el lenguaje común que usa el VB2008(.NET) es ingles, ni frances, ni italiano ni hostias. DOWN.

      3º- Tu super código (MAL ESCRITO ENCIMA) no existe a no ser que crees un module.vb y dentro hagas varias Strings y Booleans
      Ejemplo:

      Module Module1 
      Public AtkMode As Boolean = False
          Public rgatkkMode As Boolean = False
          Public hitmode As Boolean = False
          Public InviMode As Boolean = False
          Public MovMode As Boolean = False
       Public processHandle As IntPtr
          Public value As String
      End Module
      

      Tu sabrás

      Y por cierto, no soy tan subnormal que copiar sources. ¿Que gano con eso? ¿Confianza en un foro? Si supieras por donde me paso yo eso... xD
      En fin, y si, si pongo créditos 😉
      [http://foro.universojuegos.es/viewtopic.php?f=19&t=4243][0]">viewtopic.php?f=19&t=4243

      Y fin del la conversación, acusar sin pruebas, no está permitido. Y digamos que no estamos dando un claro ejemplo de un sistema de convivencia.

      Edito: Si y encima el tio hace tutoriales, no vengas de listillo xD

      [0]: <a href=

      publicado en Utilidades
    • SuperNotepad (Mejor que el de Windows)

      @axav said:

      si tanto sabes, como es que al pasar el raton por encima de cada aplicación restala la creacion verdadera de la aplicacion ?

      Te pongo varios casos de tus "Aplicaciones".

      Juego Conquistame (segun el nombre que le as asignado):

      Me parece patetico chaval xDDDDDDDDDDDDDDDD

      Aquí tienes:

      Voy a hacer un programa que cuando lo pases por encima se llame así. Que importa si yo empecé a hacer un programa, no me salia de las narices terminarlo y hice otro? Como si le pongo SuperLanRemaker y es un notepad
      ¿Es un problema?

      @axav said:

      Que raro que tambien se te olvido cambiarle las propiedades del nombre al programa, entre eses defecto varia tambien su versión, tu dices que es la 3.5 y en el tip indica la 1.0.0.0 para variar. El nombre real de la aplicación es composition, seguro que buscamos el source en google con ese nombre y nos aparece la misma aplicación.

      Y luego los tips de referencia en el notepado indican los textos en ingles, up's se te olvido tambien traducirlo.

      Bueh, este tema me gusta mas 🙂

      Mira la proxima versión que voy a sacar del programa 🙂 según tu, se me "olvidó" cambiarla, pero no es problema si la dejo por defecto ¿O dañaría tus ojos?
      Que la envidia es mala campeón.

      @axav said:

      Y luego los tips de referencia en el notepado indican los textos en ingles, up's se te olvido tambien traducirlo.

      Si no sabes programar o quieres copiar los sources de otros programadores al menos pon los creditos del autor.

      Se te pilla en todas.

      Mira este programa, se va a llamar Composition1, y va o iva a ser un ChangeIP 🙂 Es un problema que el VB2008 sin fixear no se le pueda cambiar el nombre de la variable.

      Edito:
      Zampate el Source 😉 A ver si ves algo sin "traducir", que los Exit, son autos de Close()... Pero bueno, tu termina de leerte el libro xDDD

      Imports System.io
      Imports SpeechLib
      Imports system.Text
      Imports System.Text.RegularExpressions
      Imports System.Drawing.printing
      
      
      
      Public Class composition
          Dim sel1 As Integer
          Dim sel2 As Integer
          Private stringtoprint As String
          Private printpagesettings As New PageSettings
          Dim savetf As Boolean = True
      
      
          Private Sub composition_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      
              My.Application.SaveMySettingsOnExit = True
              RichTextBox1.AllowDrop = True
      
          End Sub
      
      
          Private Sub composition_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
              Try
                  Dim dire As DialogResult
                  If savetf = False Then
                      dire = MessageBox.Show("¿Desea guardar los cambios?", "SuperNotepad v3.5", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                  End If
                  If dire = Windows.Forms.DialogResult.Yes Then
                      SaveToolStripMenuItem_Click(sender, e)
                  ElseIf dire = Windows.Forms.DialogResult.No Then
                      End
                  End If
              Catch
                  MessageBox.Show("Error al salir de la aplicación.", "SuperNotepad v3.5", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
      
          Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
      
              Dim comp2 As New composition
      
              comp2.Show()
      
          End Sub
      
      
          Private Sub HelpToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
              Beep()
      
      
          End Sub
      
      
          Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
              
      
          End Sub
      
          Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      
              ToolStripStatusLabel1.Text = Now.ToLongDateString
              ToolStripStatusLabel2.Text = Now.ToLongTimeString
      
          End Sub
      
          Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
              savetf = False
          End Sub
      
          Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop
              If RichTextBox1.SelectionStart < sel1 Then
                  Dim selStart As Int16 = RichTextBox1.SelectionStart
                  RichTextBox1.SelectedRtf = e.Data.GetData(DataFormats.Text).ToString()
                  RichTextBox1.SelectionStart = sel1 + sel2
                  RichTextBox1.SelectionLength = sel2
                  RichTextBox1.SelectedText = ""
                  RichTextBox1.SelectionStart = selStart
              End If
              If RichTextBox1.SelectionStart > sel1 + sel2 Then
                  RichTextBox1.SelectedRtf = e.Data.GetData(DataFormats.Text).ToString()
                  RichTextBox1.SelectionStart = sel1
                  RichTextBox1.SelectionLength = sel2
                  RichTextBox1.SelectedText = ""
              End If
          End Sub
      
          Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter
              e.Effect = DragDropEffects.Move
          End Sub
      
          Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
              If RichTextBox1.SelectedText <> "" And e.Clicks <> 2 Then
                  sel1 = RichTextBox1.SelectionStart
                  sel2 = RichTextBox1.SelectionLength
                  RichTextBox1.DoDragDrop(RichTextBox1.SelectedRtf, DragDropEffects.Move)
              End If
          End Sub
      
          Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
              Try
                  Dim comp1 As String
      
                  With OpenFileDialog1
                      .InitialDirectory = "C:|"
                      .Title = "Abrir archivo"
                      .ShowDialog()
      
      
      
                      comp1 = OpenFileDialog1.FileName
                      Dim openreader As New StreamReader(comp1)
                      RichTextBox1.Text = openreader.ReadToEnd
                      openreader.Close()
                      openreader = Nothing
                  End With
                  ToolStripStatusLabel3.Text = OpenFileDialog1.FileName
              Catch
                  MessageBox.Show("Error al abrir el archivo", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
      
          End Sub
      
          Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
              Try
                  Dim comp1 As String
      
                  With SaveFileDialog1
                      .FileName = "SuperNotepad"
                      .Title = "Guardar archivo"
                      .ShowDialog()
      
      
                      comp1 = SaveFileDialog1.FileName
                      Dim savewriter As New StreamWriter(comp1)
                      savewriter.Write(RichTextBox1.Text)
                      savewriter.Close()
                      savewriter = Nothing
      
                  End With
              Catch
                  MessageBox.Show("Error al guardar el documento.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
      
              savetf = True
      
          End Sub
      
          Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
              Try
                  Dim comp1 As String
      
                  With SaveFileDialog1
                      .FileName = "SuperNotepad"
                      .Title = "Guardar archivo"
                      .ShowDialog()
      
      
                      comp1 = SaveFileDialog1.FileName
                      Dim savewriter As New StreamWriter(comp1)
                      savewriter.Write(RichTextBox1.Text)
                      savewriter.Close()
                      savewriter = Nothing
      
                  End With
              Catch
                  MessageBox.Show("Error al guadar el archivo.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
      
              savetf = True
      
          End Sub
      
          Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click
              Try
                  PrintDocument1.DefaultPageSettings = printpagesettings
                  stringtoprint = RichTextBox1.Text
                  printdialog1.document = PrintDocument1
                  Dim res As DialogResult = PrintDialog1.ShowDialog
                  If res = Windows.Forms.DialogResult.OK Then
                      PrintDocument1.Print()
                  End If
              Catch
                  MessageBox.Show("Error al imprimir el documento.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
          Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
              Try
                  Dim horiprintlocation As Single = e.MarginBounds.Left
                  Dim vertprintlocation As Single = e.MarginBounds.Top
                  Dim letsize As Single = RichTextBox1.Font.GetHeight
      
                  e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, horiprintlocation, vertprintlocation)
                  vertprintlocation += letsize
              Catch
                  MessageBox.Show("Error al imprimir el documento.", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
          Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click
              Try
                  PrintDocument1.DefaultPageSettings = printpagesettings
                  stringtoprint = RichTextBox1.Text
                  PrintPreviewDialog1.Document = PrintDocument1
                  PrintPreviewDialog1.ShowDialog()
              Catch
                  MessageBox.Show("Error al imprimir una selección.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
          Private Sub PageSetupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PageSetupToolStripMenuItem.Click
              Try
                  PageSetupDialog1.PageSettings = printpagesettings
                  PageSetupDialog1.ShowDialog()
              Catch ex As Exception
                  MessageBox.Show("Forma de Instalacion fallida", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
          Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
              Try
                  Dim dire As DialogResult
                  If savetf = False Then
                      dire = MessageBox.Show("¿Quieres guardar los cambios?", "SuperNotepad v3.5", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                  End If
                  If dire = Windows.Forms.DialogResult.Yes Then
                      SaveToolStripMenuItem_Click(sender, e)
                  ElseIf dire = Windows.Forms.DialogResult.No Then
                      End
                  End If
      
                  If savetf = True Then
                      Me.Close()
                  End If
              Catch
                  MessageBox.Show("Error al salir de la aplicación", "SuperNotepad v3.5", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
          Private Sub ReadSelectedTextFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadSelectedTextFileToolStripMenuItem.Click
              Try
                  Dim vc As New SpeechLib.SpVoice
                  Dim tell As String = " "
      
                  tell = RichTextBox1.SelectedText
      
                  vc.Speak(tell)
              Catch
                  MessageBox.Show("Por favor, seleccione un texto para que hable.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
          Private Sub ReadAllTextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadAllTextToolStripMenuItem.Click
              Try
                  Dim vc As New SpeechLib.SpVoice
                  Dim tell2 As String = " "
      
                  tell2 = RichTextBox1.Text
      
                  vc.Speak(tell2)
              Catch
                  MessageBox.Show("El archivo del texto no puede estar en blanco.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
      
          Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
      
              With ColorDialog1
                  .ShowDialog()
                  RichTextBox1.ForeColor = .Color
              End With
      
          End Sub
      
          Private Sub BackgroundColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundColorToolStripMenuItem.Click
      
              With ColorDialog1
                  .ShowDialog()
                  RichTextBox1.BackColor = .Color
              End With
      
          End Sub
      
          Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
      
              With FontDialog1
                  .ShowDialog()
                  RichTextBox1.Font = .Font
              End With
      
          End Sub
      
          Private Sub FindToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindToolStripMenuItem.Click
              Try
                  Dim found As String
                  found = InputBox("Introduce una palabra para buscar.", "Buscar")
                  If found Is "" Then
                      Exit Sub
                  End If
                  RichTextBox1.Find(found)
              Catch
                  MessageBox.Show("Error al buscar los caracteres.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
              End Try
          End Sub
      
          Private Sub ReplaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceToolStripMenuItem.Click
              Form4.Show()
          End Sub
      
          Private Sub ToUpperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToUpperToolStripMenuItem.Click
              Dim upperstring As String
      
              upperstring = StrConv(RichTextBox1.Text, VbStrConv.Uppercase)
              RichTextBox1.Text = upperstring
      
          End Sub
      
          Private Sub ToLowerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToLowerToolStripMenuItem.Click
              Dim lowerstring As String
      
              lowerstring = StrConv(RichTextBox1.Text, VbStrConv.Lowercase)
              RichTextBox1.Text = lowerstring
      
          End Sub
      
          Private Sub ToProperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToProperToolStripMenuItem.Click
              Dim properstring As String
      
              properstring = StrConv(RichTextBox1.Text, VbStrConv.ProperCase)
              RichTextBox1.Text = properstring
      
          End Sub
      
          Private Sub TimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeToolStripMenuItem.Click
              Dim timetxt As String = TimeString
              RichTextBox1.AppendText(timetxt)
      
          End Sub
      
          Private Sub DateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateToolStripMenuItem.Click
              Dim datetxt As String = DateString
              RichTextBox1.AppendText(datetxt)
      
          End Sub
      
          Private Sub DateTimeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimeToolStripMenuItem.Click
              Dim date1 As String = DateString
              Dim time1 As String = TimeString
              Dim blank1 As String = ", "
              Dim okill As String = date1 + blank1 + time1
      
              RichTextBox1.AppendText(okill)
      
          End Sub
      
          Private Sub RightAlignToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RightAlignToolStripMenuItem.Click
              RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
      
          End Sub
      
          Private Sub LeftAlignToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LeftAlignToolStripMenuItem.Click
              RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
      
          End Sub
      
          Private Sub CenterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CenterToolStripMenuItem.Click
              RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
      
          End Sub
      
          Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
              RichTextBox1.SelectAll()
          End Sub
      
          Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
              RichTextBox1.Cut()
          End Sub
      
          Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
              RichTextBox1.Copy()
          End Sub
      
          Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
              RichTextBox1.Paste()
          End Sub
      
          Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
              RichTextBox1.Undo()
          End Sub
      
          Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
              RichTextBox1.Redo()
      
          End Sub
      
          Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click
      
              Dim bfont As Font
      
              bfont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Bold)
              RichTextBox1.SelectionFont = bfont
              BoldToolStripMenuItem.Checked = True
              RegularToolStripMenuItem.Checked = False
              ItalicToolStripMenuItem.Checked = False
              UnderlineToolStripMenuItem.Checked = False
              StrikeoutToolStripMenuItem.Checked = False
      
          End Sub
      
      
      
          Private Sub ItalicToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItalicToolStripMenuItem.Click
              Dim ifont As Font
      
              ifont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Italic)
              RichTextBox1.SelectionFont = ifont
              BoldToolStripMenuItem.Checked = False
              RegularToolStripMenuItem.Checked = False
              ItalicToolStripMenuItem.Checked = True
              UnderlineToolStripMenuItem.Checked = False
              StrikeoutToolStripMenuItem.Checked = False
      
          End Sub
      
          Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click
              Dim rfont As Font
      
              rfont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Regular)
              RichTextBox1.SelectionFont = rfont
              BoldToolStripMenuItem.Checked = False
              RegularToolStripMenuItem.Checked = True
              ItalicToolStripMenuItem.Checked = False
              UnderlineToolStripMenuItem.Checked = False
              StrikeoutToolStripMenuItem.Checked = False
      
          End Sub
      
          Private Sub StrikeoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StrikeoutToolStripMenuItem.Click
              Dim sfont As Font
      
              sfont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Strikeout)
              RichTextBox1.SelectionFont = sfont
              BoldToolStripMenuItem.Checked = False
              RegularToolStripMenuItem.Checked = False
              ItalicToolStripMenuItem.Checked = False
              UnderlineToolStripMenuItem.Checked = False
              StrikeoutToolStripMenuItem.Checked = True
      
          End Sub
      
          Private Sub UnderlineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnderlineToolStripMenuItem.Click
              Dim ufont As Font
      
              ufont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Underline)
              RichTextBox1.SelectionFont = ufont
              BoldToolStripMenuItem.Checked = False
              RegularToolStripMenuItem.Checked = False
              ItalicToolStripMenuItem.Checked = False
              UnderlineToolStripMenuItem.Checked = True
              StrikeoutToolStripMenuItem.Checked = False
      
          End Sub
      
          Private Sub CharacterCountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CharacterCountToolStripMenuItem.Click
              Dim twiddle As Integer = 0
              Dim cnt1 As String = RichTextBox1.Text
              twiddle = GenerateCharacterCount(RichTextBox1.Text)
      
              MessageBox.Show("El total de las palabras es: " & GenerateCharacterCount(cnt1).ToString(), "Nombre del caracter", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
      
      
          End Sub
      
          Private Sub WordCountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordCountToolStripMenuItem.Click
              Dim countme As String = RichTextBox1.Text
              Dim totwords As Integer
              Dim thiswhite As Boolean
              Dim prevwhite As Boolean
      
              countme = countme.Trim
      
              Dim ans As New System.Text.StringBuilder(countme.Length)
              Dim add As Integer
      
      
              For add = 0 To countme.Length - 1
                  prevwhite = thiswhite
                  thiswhite = Char.IsWhiteSpace(countme.Chars(add))
                  If thiswhite = True Then
                      If prevwhite = True AndAlso ans.Length > 0 Then
                          ans.Append(Space(1))
                          ans.Append(countme.Chars(add))
                      End If
                  End If
              Next add
      
              totwords = Split(countme, Space(1)).Length
      
              MessageBox.Show("El total de las palabras es:" & vbNewLine & vbNewLine & totwords.ToString, "Contador de palabras", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
      
          End Sub
      
          Public Function GenerateCharacterCount(ByVal allText As String) As Integer
      
              Dim rtn As Integer = 0
              Dim sTemp As String = allText
              sTemp = sTemp.Replace(Environment.NewLine, String.Empty)
              sTemp = sTemp.Trim()
              Dim splitSentences As String() = _
                  Regex.Split(sTemp, _
                      "(?
      publicado en Utilidades
    • 1
    • 2
    • 830
    • 831
    • 832
    • 833
    • 834
    • 979
    • 980
    • 832 / 980