none
referencia RRS feed

  • Pregunta

  • Tengo una base de datos en access y necesito trabajar con richtext, pero al incluir una funcion me da error "no se ha definicdo el tipo por el usuario"

    Creo que es necesario activar una referencia pero no se cual es

    domingo, 26 de noviembre de 2017 17:10

Todas las respuestas

  • Hola German, si colocas el código involucrado puede ser que encontremos una solución, así sin más datos no creo que se pueda

    Saludos

    domingo, 26 de noviembre de 2017 17:33
  • Creo recordar que se referencia asi.

    Ve a Proyecto/Componentes/Microsoft Rich TextBox Control


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    • Propuesto como respuesta Jorge TurradoMVP domingo, 26 de noviembre de 2017 18:07
    domingo, 26 de noviembre de 2017 17:39
  • Private Function Resaltar_Texto( _  

                RichTextBox1 As RichTextBox, _  

                cadena As String, _  

                Color_Text As Long, _  

                Optional Cadena_Completa As Boolean, _  

                Optional MayusMinus As Boolean) As Integer  

      

        Dim Pos_Caracter As Long  ' Almacena la Posicion del primer carácter cuando se encuentra la cadena  

        Dim LenCadena As Long           ' Almacena el Tamaño y longitud del texto a buscar, ya que se requiere utilizarlo para el método Find del RichTextbox  

        Dim posSelInicio As Long      ' Inicio de la selección  

        Dim Tipobusqueda As Variant      ' Para el tipo de búsqueda, exacta, distingue de mayúscula / Minúscula  

        Dim posSelLen As Long      'Para la posición del texto seleccionado  

      

        'Número de veces que se encontró. Este valor lo retorna la función  

        Dim n As Integer  

      

        'Opción que determina si se busca la cadena completa o  si hay que tener en cuenta las mayusculas y minusculas    

        If Cadena_Completa Then  

            Tipobusqueda = rtfWholeWord  

        End If  

        If MayusMinus Then  

            Tipobusqueda = Tipobusqueda + rtfMatchCase  

        End If  

      

      

        ' Opción para solo buscar y seleccionar la palabra encontrada  

        If Option2 Then  

            RichTextBox.HideSelection = False  

            Pos_Caracter = RichTextBox.Find(cadena, _  

                           RichTextBox.SelStart + RichTextBox.SelLength, _  

                                                         , Tipobusqueda)  

      

        Else  

            'Esta otra copción es para resaltar y colorear las coincidencias  

            ' Reestablece el color negro por si habia frases resaltadas  

            Call ReestablecerColor  

      

            posSelInicio = RichTextBox.SelStart              'Guarda la posición y la longitud del texto que está seleccionado  

            posSelLen = RichTextBox.SelLength

            LenCadena = Len(cadena)                              'Guarda la longitud del texto a buscar  

      

           ' Busca con Find la cadena. En la variable guardamos la posición donde se encontró

            Pos_Caracter = RichTextBox.Find(cadena, 0, , Tipobusqueda)  

      

            While Pos_Caracter > 0  

                n = n + 1  

                  

                With RichTextBox 

                    .SelStart = Pos_Caracter                         'asignamos la variable anterior a la propiedad SelStart del RichTextBox    

                    .SelLength = LenCadena                                        'Establecemos en SelLength el tamaño de la cadena nuevamente    

                    .SelColor = Color_Text                                  'Esto le asigna el color de resalte que aplicará  al texto encontrado en el Richtextbox    

                    Pos_Caracter = .Find( cadena, (Pos_Caracter + LenCadena), , Tipobusqueda)   'Ejecuta nuevamente el método Find hasta el final, es decir hasta que Pos_Caracter = 0  

                End With  

            Wend  

      

                ' Seteamos las propiedades SelStart y Sellength  

                RichTextBox.SelStart = posSelInicio  

                RichTextBox.SelLength = posSelLen  

      

                ' Retorna las veces que se encontró la cadena en el Richtextbox  

                Resaltar_Texto = n  

      

        End If  

    End Function  

    domingo, 26 de noviembre de 2017 20:16
  • HAGO MENCIÓN A LAS REFERENCIAS INCLUIDAS EN HERRRAMIENTAS/REFERENCIAS.....
    domingo, 26 de noviembre de 2017 20:19
  • Hola. Te sirvió mi respuesta?

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    lunes, 27 de noviembre de 2017 7:22