¿Cómo programar un carácter específico o una cadena de texto en el cuadro de texto para que se resalte al mismo tiempo?

Dado que el control TextBox normal no admite el resaltado simultáneo de cadenas discontinuas, elegimos el control RichTextBox. Haga clic en el elemento del menú Proyecto, haga clic en el elemento del menú Componentes en el menú desplegable emergente, seleccione la casilla de verificación Microsoft Rich Textbox Control 5.0 en el cuadro de diálogo emergente y confirme para cargar el control RichTextBox.

Cree un nuevo proyecto, agregue un control RichTextBox y dos controles Comando (botón) en el formulario, ambos usando el valor de propiedad Nombre predeterminado del sistema; establezca el valor de la propiedad Texto RichTextBox en Vacío, los valores del atributo Título; ​de Command1 y Command2 están configurados en "Ingresar texto" y "Seleccionar cadena" respectivamente. Finalmente, agregue el siguiente código VB:

Private Sub Command1—Click()

Dim str As String

Dim Text As String

str="Ingresar texto"

Text=InputBox(str)

RichTextBox1.Text=Text

End Sub

Sub privado Command2 —Click()

Atenuar cadena como cadena

Atenuar texto como cadena

Atenuar posición como entero

Atenuar longitud como entero

str=″Ingrese la cadena a resaltar″

Text=InputBox(str)

Si Texto 〈〉 ″″ Entonces

Posición=InStr(RichTextBox1.Text, Texto)-1

Lenth=Len(Texto)

RichTextBox1.SelStart=Posición

RichTextBox1.SelLength= Lenth

RichTextBox1.SelColor=RGB(255, 0, 0)

Hacer mientras InStr(Position+Lenth+1, RichTextBox1.Text, Text) 〈〉 0

Posición= InStr(Posición+Lenth+1, RichTextBox1.Text, Texto)-1

RichTextBox1.SelStart=Posición

RichTextBox1.SelLength=Lenth

RichTextBox1.SelColor=RGB(255 , 0, 0)

Bucle

Finalizar si

End Sub

Presione F5 para ejecute el programa y haga clic en el botón "Ingresar texto", ingrese algo de texto en el cuadro de diálogo emergente. Después de la confirmación, el texto que acaba de ingresar se mostrará en RichTextBox, luego haga clic en el botón "Seleccionar cadena" e ingrese la cadena. desea resaltar en el cuadro de diálogo emergente. Una vez determinada, la cadena correspondiente en RichTextBox se resaltará en rojo.