Cómo implementar la función de búsqueda en el Bloc de notas en VB
Dim n As Long, chazhao As String
Private Sub Command1_Click() 'Este código es para buscar
Dim s As String
s = Text1.Text
chazhao = InputBox("")
Si chazhao = "" Entonces
MsgBox "No se puede encontrar una cadena vacía"
Salir de Sub
Fin si
n = InStr(s, chazhao)
Si n gt 0 Entonces
Text1.SelStart = n - 1
Texto1.SelLength = Len(chazhao)
Texto1.SelStart = n - 1
Texto1.SelLength = Len(chazhao)