Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Syntax to handle a section format event.

Status
Not open for further replies.

work0r

Programmer
Feb 4, 2004
3
US
Hi i'm working with vb 6 and cr 8.5. New to both. Basically Crystal is goign to try and grab something from database. It will throw an event. My basic control is going to catch this event and use the data pulled from the database.<convert my character field to a bmp>. Is this possible? Right now this is what i got:

Dim Appl As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim WithEvents MySection As CRAXDRT.Section 'dim with events so we can access the format event
Dim CrSecs As CRAXDRT.Sections
Public success As Long
Public sigdisp As New ENFORMSIGDISPLAYLib.ENFormSigDisplay

Private Sub MySection_Format(ByVal pFormattingInfo As Object) 'catches event from crystal... i think

'For now I am using a hard coded bmp character string
'for testing, this value needs to be taken from the db.

'setoposbcnibblesignaturedata takes my character string
'and turns him into a bmp.
sigdisp.SetOPOSBCNIBBLESignatureData (&quot;'????????14002701280013014<00??006800>;007<00=?007000>;005400070130002;0114004?0100006301040077011800'&quot;)

'Writes the signature data to a file
success = sigdisp.WriteSignatureToFile(&quot;C:\BMPTEST.BMP&quot;, 1, 38 * 8, 9 * 8, True)

End Sub


I have it turning my char field into a bmp and writing it to file... Now i just need help with the format event... how can i get his values, if he has any?.
Thanks,
rock
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top