VB RTFbox - Find Text in rtf file

VB5 app has a richtextbox. Existing code finds text in the article and moves the cursor to that text. This re-positions the rtf article with the found text at the bottom of the rtf control. This needs to be modified to show the rtf article with the found text at the TOP of the richtextbox control.

The solution must not use 'Sendkeys' and must work in VB5 on all OS versions from Windows 98 to Windows Vista.

The existing code is :

Private Sub RichTextBox1_Click()

Dim rTstart As Double

Dim rTpstart As Double

Dim rTpend As Double

Dim rTtext As String

Dim rtStext As String

Dim rtSstart As Long

If [url removed, login to view] = 0 Then

rTtext = [url removed, login to view]

rTpstart = 0

rTstart = [url removed, login to view]

[url removed, login to view] "says look", 1

rTpstart = [url removed, login to view]

[url removed, login to view] "is supplied by", 1

rTpend = 0

[url removed, login to view] = rTstart

If [url removed, login to view] = 0 And ([url removed, login to view] < rTpstart Or [url removed, login to view] > rTpend) Then

[url removed, login to view] = 8

rtStext = [url removed, login to view]

rtSstart = [url removed, login to view] + 1

[url removed, login to view] rtStext, rtSstart

[url removed, login to view] = 0

End If

End If

End Sub

## Deliverables

1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done.

2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables):

a) For web sites or other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Seller in ready-to-run condition in the Buyer's environment.

b) For all others including desktop software or software the buyer intends to distribute: A software installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request.

3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement).

## Platform

Windows 98 to Windows Vista

Ingeniería MySQL PHP Arquitectura de software Verificación de software Visual Basic

Nº del proyecto: #3043112

Sobre el proyecto