En cours

convert vb.net 45 line routine to vb6

Requirements:

Downgrade sub HighLightText to VB6. Bonus points if you can modify the routine to additionally replace text, and use addlink method via additional passed array parameters. The methods referencing 'Adobe Acrobat 9.0 Type Library' still can be used. Ie, getPageNthWordQuads, getPageNumWords, getPageNthWord, addAnnot, GetProps, SetProps, .flattenPages(), etc.

Scope:

I have the following global variables in my VB6 project: Dim gApp, gPDDoc, jso. This routine was found on the internet, and I'd like to incorporate it into my project. Attached is a VB6 procedure that will give you some context in referencing those variables. Also:

Variable m_JSO, has already been defined by jso.

Variable m_PDDoc, has already been defined by gPDDoc.

-=--=--=--=--=--=--=--=--=-

Public Sub HighLightText(ByVal Text() As String)

If Not Me.m_PDDoc Is Nothing Then

Dim m_JSO As Object = [url removed, login to view]

Dim m_Matches As New ArrayList

'Find text

For m_Page As Integer = 0 To [url removed, login to view] - 1

For m_Word As Integer = 0 To [url removed, login to view](m_Page)

Dim m_CurrentWord As String = [url removed, login to view](m_Page, m_Word)

If Not m_CurrentWord Is Nothing Then

If [url removed, login to view](Text, m_CurrentWord) >= 0 Then

[url removed, login to view](New Integer() {m_Page, m_Word})

End If

End If

Next

Next

'Highlight text

For Each m_Match As Array In Me.m_Matches

Dim m_Quad As Object = [url removed, login to view]([url removed, login to view](0), [url removed, login to view](1))

Dim m_HighLight = [url removed, login to view]()

Dim m_Properties = [url removed, login to view]

With m_Properties

m_Color = New Object() {"RGB", Me.m_HighlightColor.R, Me.m_HighlightColor.G, Me.m_HighlightColor.B}

.Type = "Square"

.Page = [url removed, login to view](0)

.Rect = New Integer() {CType(m_Quad(0), Array).GetValue(0), _

CType(m_Quad(0), Array).GetValue(1), _

CType(m_Quad(0), Array).GetValue(6), _

CType(m_Quad(0), Array).GetValue(7)}

.StrokeColor = m_Color

.FillColor = m_Color

.Width = 0

.Opacity = 0.35

End With

[url removed, login to view](m_Properties)

Next

'Finalize highlights

[url removed, login to view]()

'Clean up

m_JSO = Nothing

End If

End Sub

Compétences : .NET, Visual Basic

Voir plus : getpagenthwordquads, getpagenthwordquads net, downgrade project net, visual basic net array, vb net array, text to string, string library in c, string library c, string b, square d, find on-line, getpagenthwordquads getprops, getpagenthwordquads addannot, vb6 to vb.net, acrobat adobe, vb6, rgb, on line d, line-following, convert vb, acrobat, adobe clean, net convert vb6, string find, net etc

Concernant l'employeur :
( 1 commentaire ) Prince George, Canada

N° du projet : #1014002

Décerné à :

waleedmalik

Easy Task, I have 4 Years Experience with VB6 1 year experience in VB.NET can do this ASAP. Ready to work immediately.

30 $ CAD en 2 jours
(14 Commentaires)
5.1

4 freelance ont fait une offre moyenne de 35 $ pour ce travail

piyushdpatel

Hi This is Piyush Patel I have 6 yrs of Exp in VB6,VB.net,SQL and MsAccess. I have developed many applications in VB6,VB.NET. Please Check My PM

30 $ CAD en 1 jour
(10 Commentaires)
4.1
sathish2connect

Hi, I can do this. ready to start now.

30 $ CAD en 1 jour
(5 Commentaires)
2.8
Mayjunekw

Ready to start immediately .

50 $ CAD en 1 jour
(0 Commentaires)
0.0