SuperNotepad (Mejor que el de Windows)

Topic created · 27 Posts · 1665 Views
  • **Aquí traigo un notepad bastante currado, en el que llevo mucho tiempo trabajando, al fin está terminado 🙂

    Unas imagencitas ^^

    **

  • Gracias tio, ahora mismo me lo bajo ^^

  • El fondo se ve negro?? xDD esta muy bien, peroprueba a intentar hacer uno con los BBcodes del foro y la interfaz del foro, a ver que tal sale, me parece que seria el mas utilizado por todos los de UJ

  • Por que no lee el texto? U_U xD

  • Hola, bueno cada vez que 'Lanzas' un programa me haces un poco mas de reir, son aplicaciones bastante útiles pero no estan programadas ninguna de ellas por ti, todavía no he visto ningun video tuyo donde programes desde cero alguna aplicación con mas de 30 lineas de código, explicando paso a paso el desarrollo de las instrucciones, las variables, las matrices, tipos de objetos entre otros muchos ejemplos de código.

    Ahora me ha dado por estudiar visual basic y he comprado varios libros y te das cuenta quien sabe y quien no sabe programar, ya que copias los sources de las aplicaciones creadas por otros, podrias poner los derechos del mismo.

    Ya te digo que lo unico que haces es traducir las aplicaciones y nada mas.

    Por cierto te recomiendo un buen libro para aprender a programar de Juan Diego Gutierrez Gallardo : VisualBasic 2008 de Manuales Imprescindibles, si va al corte ingles estan muy baratos.

  • @axav said:

    Hola, bueno cada vez que 'Lanzas' un programa me haces un poco mas de reir, son aplicaciones bastante útiles pero no estan programadas ninguna de ellas por ti, todavía no he visto ningun video tuyo donde programes desde cero alguna aplicación con mas de 30 lineas de código, explicando paso a paso el desarrollo de las instrucciones, las variables, las matrices, tipos de objetos entre otros muchos ejemplos de código.

    Ahora me ha dado por estudiar visual basic y he comprado varios libros y te das cuenta quien sabe y quien no sabe programar, ya que copias los sources de las aplicaciones creadas por otros, podrias poner los derechos del mismo.

    Ya te digo que lo unico que haces es traducir las aplicaciones y nada mas.

    Por cierto te recomiendo un buen libro para aprender a programar de Juan Diego Gutierrez Gallardo : VisualBasic 2008 de Manuales Imprescindibles, si va al corte ingles estan muy baratos.

    Esta misma tarde tienes el video superinformático 😉

  • 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):

    Up's Se te olvido cambiarle las propiedades del nombre al programa.. Suerte que conocia el juego y habia jugado en los recreativos de mi barrio, el mas conocido como reversi. (Tu mismo te delatas.)

    El "supernotepad" mejor que windows ? (Lo dudo ya que ni tiene instalador, ni asocia las extensiones de los archivos, aparte muchas de las opciones ni funcionan, como el texto a voz. Así que si eres tan programador, arreglalo.)

    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.

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

    Se te pilla en todas. =))

  • @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, _
                    "(?
  • Buah que persona mas prepotente eres, te creia de otro calibre, quien te lea la estupidez que has puesto aqui se rie, bueno tu haz lo que te plazca, yo sigo teniendo mi absoluta opinion de que plagias los programas y no explicas nada y presumes sin saber, yo envidia no tengo ninguna, ademas me importa un pepino lo que hagas, como si te tiras por un puente.

    jaja fijate lo que has dicho jaja: RECALCO

    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.

    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...

    SIGAMOS

    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

    jajaj, eso que es ? jajaja autos de close() ??? hola? eso que es un nuevo lenguaje jajajaj, anda comprate un buen libro que lo necesitas, te recomiendo otro mira, la biblia de visual basic 2008, no tienes ni idea

    Y por ultimo te pongo algo, haber si aciertas y me explicas que es este codigo paso a paso:

    If dire = Windows.Form.DialogResult Then

  • @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=

Log in to reply