Pues yo me identifico totalmente con esta canción, cuando uno está depre o algo, no viene mal escucharla
Anghios (@Anghios)
Publicados por Anghios
-
-
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 -
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 muchoDespué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=
-
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
-
Para UP.to, rapidshare, hotfile etc, siempre y cuando respetando los limites de descargas que ponen dichas webs.
-
@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 ModuleEste 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 ;)) -
@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=4243Y 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=
-
@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 SourceA 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, _ "(?