Article ID: 191927
Article Last Modified on 7/13/2004
USE HOME(2)+"DATA\CUSTOMER"
CREATE REPO EXAMPLE FROM CUSTOMER
CLOSE ALL
DO (_GENHTML) WITH "EXAMPLE","EXAMPLE.FRX"
CLOSE ALL
* Set the class library to the _hyperlink class
SET CLASSLIB TO home()+"ffc\_hyperlink.vcx"
public ohyperlinkobject
* Create a form with a hyperlink
ohyperlinkobject=CREATEOBJECT('hyperform')
ohyperlinkobject.SHOW
DEFINE CLASS hyperform AS FORM
TOP = 0
LEFT = 0
HEIGHT = 75
WIDTH = 250
DOCREATE = .T.
CAPTION = "Display Example Report"
NAME = "Form1"
SHOWTIPS = .T.
ADD OBJECT _hyperlinklabel1 AS _hyperlinklabel WITH ;
LEFT = 25, ;
TOP = 10, ;
HEIGHT = 25, ;
VISIBLE = .T., ;
FONTNAME = "Times New Roman", ;
FONTSIZE = 14, ;
FONTITALIC = .T., ;
AUTOSIZE = .T., ;
ctarget = sys(5)+sys(2003)+"\EXAMPLE.HTM", ;
CAPTION = "Example Report", ;
lnewwindow = .T., ;
NAME = "_HYPERLINKLABEL1"
ENDDEFINE
* End Code
185657 HOWTO: Utilize the Hyperlink Foundation Class
Additional query words: kbhtml kbVFp600 kbInternet kbReportWriter kbXBase kbMiscTools
Keywords: kbhowto kbcode KB191927