BUSCAR Y REEMPLAZAR EN VB .NET

LLAMAR AL FORMULARIO

Private Sub SubIndiceButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubIndiceButton2.Click
        frmReplace.Show()
End Sub

    Private Sub btnbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click

        Dim StartPosition As Integer
        Dim SearchType As CompareMethod

        StartPosition = InStr(1, Form1.RichTextBox1.Text, txtbuscar.Text, SearchType)

        If StartPosition = 0 Then
            MessageBox.Show("Palabra: '" & txtbuscar.Text.ToString() & "'No encontrada", "Búsqueda en el documento", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            Exit Sub
        End If

        form1.richtextbox1.Select(StartPosition - 1, txtbuscar.Text.Length)
        form1.richtextbox1.ScrollToCaret()
        Form1.Focus()


    End Sub



    Private Sub btnbuscarsiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscarsig.Click

        Dim StartPosition As Integer = form1.richtextbox1.SelectionStart + 2
        Dim SearchType As CompareMethod

        StartPosition = InStr(StartPosition, Form1.RichTextBox1.Text, txtbuscar.Text, SearchType)

        If StartPosition = 0 Then
            MessageBox.Show("Palabra: '" & txtbuscar.Text.ToString() & "' No encontrada", "Búsqueda en el documento", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            Exit Sub
        End If

        Form1.RichTextBox1.Select(StartPosition - 1, txtbuscar.Text.Length)
        Form1.RichTextBox1.ScrollToCaret()
        Form1.Focus()

    End Sub



    Private Sub btnReemplazar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReemplazar.Click

        If form1.richtextbox1.SelectedText.Length <> 0 Then
            form1.richtextbox1.SelectedText = txtreemplazar.Text
        End If

        Dim StartPosition As Integer = form1.richtextbox1.SelectionStart + 2
        Dim SearchType As CompareMethod

        StartPosition = InStr(StartPosition, Form1.RichTextBox1.Text, txtbuscar.Text, SearchType)

        If StartPosition = 0 Then
            MessageBox.Show("Palabra: '" & txtbuscar.Text.ToString() & "' No encontrada", "Búsqueda en el documento", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            Exit Sub
        End If

        form1.richtextbox1.Select(StartPosition - 1, txtbuscar.Text.Length)
        form1.richtextbox1.ScrollToCaret()
        Form1.Focus()

    End Sub



    Private Sub btnReemplazartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReemplazartodo.Click


        Dim currentPosition As Integer = form1.richtextbox1.SelectionStart
        Dim currentSelect As Integer = form1.richtextbox1.SelectionLength

        form1.richtextbox1.Rtf = Replace(form1.richtextbox1.Rtf, Trim(txtbuscar.Text), Trim(txtreemplazar.Text))
        form1.richtextbox1.SelectionStart = currentPosition
        form1.richtextbox1.SelectionLength = currentSelect

        Form1.Focus()

    End Sub

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO "COMERCIO" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "COMERCIO" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

BARRA DE ESTADO Y ZOOM EN .NET

BARRA DE ESTADO

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        dirty = True
        Dim contp As Integer
        Dim pal As String
        For i = 1 To RichTextBox1.Text.Length
            pal = (Mid(RichTextBox1.Text, i, 1))
            If pal = " " Then
                contp = contp + 1
            End If
        Next
        ToolStripStatusLabel3.Text = contp + 1
    End Sub

ZOOM

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        If TrackBar1.Value = 1 Then
            RichTextBox1.ZoomFactor = 1
        ElseIf TrackBar1.Value = 2 Then
            RichTextBox1.ZoomFactor = 2
        ElseIf TrackBar1.Value = 3 Then
            RichTextBox1.ZoomFactor = 3
        ElseIf TrackBar1.Value = 4 Then
            RichTextBox1.ZoomFactor = 4
        ElseIf TrackBar1.Value = 5 Then
            RichTextBox1.ZoomFactor = 5
        ElseIf TrackBar1.Value = 6 Then
            RichTextBox1.ZoomFactor = 6
        ElseIf TrackBar1.Value = 7 Then
            RichTextBox1.ZoomFactor = 7
        ElseIf TrackBar1.Value = 8 Then
            RichTextBox1.ZoomFactor = 8
        ElseIf TrackBar1.Value = 9 Then
            RichTextBox1.ZoomFactor = 9
        ElseIf TrackBar1.Value = 10 Then
            RichTextBox1.ZoomFactor = 10
        End If
    End Sub

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "C" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "C" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "B" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "B" PRACTICAS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "A" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "A" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA SEGUNDO BACHILLERATO CIENCIAS PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: SEGUNDO CIENCIAS EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

EJERCICIOS PARA PRIMERO BACHILLERATO PARALELO "D" PREVIO AL EXAMEN QUIMESTRAL

Estimados estudiantes, reciban un cordial saludo de su docente de Informática Aplicada a la Educación, como es de conocimiento de todos hemos terminado todo el aprendizaje del Procesador de Texto Word, es por ello que pongo a consideración varios ejercicios que deben de desarrollarlos en casa con la finalidad de practicar previo a la evaluación quimestral.

Por favor tomar en consideración que estos ejercicios serán calificados y anexados en los casilleros del Tercer Parcial.

Todos estos archivos deben ser guardados en una carpeta con el nombre: PRIMERO "D" EJERCICIOS y compartir la carpeta con el profe Renàn Gàlvez Astudillo al correo renytan40@gmail.com

ESTUDIANTE HAGA CLICK AQUI PARA VISUALIZAR LOS EJERCICIOS A REALIZAR.

Nota: En cada practica usted debe de colocar un pie de pagina con sus nombres y apellidos.

Read More

FORMULARIO PARA BUSCAR PALABRAS EN VB .NET

BOTÓN PARA ACCEDER AL FORMULARIO
      BuscarForm.Show()

FORMULARIO BUSCAR
 Form1.RichTextBox1.Find(ComboBox1.Text)
 Form1.RichTextBox1.Focus()

Read More

ORTOGRAFÍA .NET

Dim speller As Object
        Dim txt As String
        Dim new_txt As String
        Dim pos As Integer

        speller = CreateObject("Word.Basic")

        speller.FileNew()
        speller.Insert(RichTextBox1.Text)
        speller.ToolsSpelling()
        speller.EditSelectAll()
        txt = speller.Selection()


        If RSet(txt, 1) = vbCr Then _
            txt = LSet(txt, Len(txt) - 1)
        new_txt = ""
        pos = InStr(txt, vbCr)
        Do While pos > 0
            new_txt = new_txt & LSet(txt, pos - 1) & vbCrLf
            txt = RSet(txt, Len(txt) - pos)
            pos = InStr(txt, vbCr)
        Loop
        new_txt = new_txt & txt
        speller.FileExit(2)
        RichTextBox1.Text = new_txt

Read More

TAREA DE PRIMERO BACHILLERATO SECCIÓN VESPERTINA

Haga click aqui

Read More