SuperNotepad (Mejor que el de Windows)

[Anghios]

Anghios Última edición por

**Aquí traigo un notepad bastante currado, en el que llevo mucho tiempo trabajando, al fin está terminado

Unas imagencitas ^^

**

[Rakenow]

Rakenow Última edición por

Gracias tio, ahora mismo me lo bajo ^^

[Mikikiller]

Mikikiller Última edición por

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

[Rakenow]

Rakenow Última edición por

Por que no lee el texto? U_U xD

[divitix]

divitix Última edición por

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.

[Anghios]

Anghios Última edición por

@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

[divitix]

divitix Última edición por

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

[Anghios]

Anghios Última edición por

@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, _
                "(?

[divitix]

divitix Última edición por

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

[Anghios]

Anghios Última edición por

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