如何在 Visual FoxPro 報告中套用 rtf 效果


摘要


您可以隨時隨地將格式設定效果新增到 Microsoft Visual FoxPro 報表中的個別單字,這是很好的做法。 在視覺的 FoxPro 報告上,您可以使用 Rtf 文字 ActiveX 控制項、[一般] 欄位和 OLE 系結控制項來完成此功能。

其他相關資訊


這個範例示範如何為表格中的部分欄位加上底線,並在報表上顯示該格式設定。 您可以將格式文字中可能的任何效果或效果組合套用至您的範例。
  1. 開啟 [Visual FoxPro] 並建立新報表。
  2. 圖片/Active-X 系結控制項新增至報表的詳細資料區段。 將其欄位屬性設定為 Dcolor gcolor
  3. 將報表儲存為 rtfDemo
  4. 將下列程式碼貼到新程式中。 將該程式儲存在與報表相同的目錄中,然後執行該程式。
    CLOSE ALLCLEAR ALLtSafety = SET("safety") &&Store SET status of Safety to a variableSET SAFETY OFF &&Check to see if the Dcolor table existsIF FILE("dcolor.dbf")USE dcolor EXCLUSIVEELSECREATE TABLE dcolor (dcolor c(20),gcolor g) &&Create and add records if DColor table doesn't existINSERT INTO dcolor (dcolor) VALUES ("Red")INSERT INTO dcolor (dcolor) VALUES ("Green")INSERT INTO dcolor (dcolor) VALUES ("Blue")INSERT INTO dcolor (dcolor) VALUES ("Purple")INSERT INTO dcolor (dcolor) VALUES ("Orange")INSERT INTO dcolor (dcolor) VALUES ("Yellow")ENDIF_rtfFile = SYS(3)+".rtf" &&Create a legal file name with a .RTF extension*NOTE: The file must have a .RTF extension to work properlySCAN &&Create a Richtext OLE bound control in the general field of the dColor tableSET TEXTMERGE TO &_rtfFile NOSHOWSET TEXTMERGE ON *!!IMPORTANT!! The following richtext formatting line(s) need to be          *included as one line in your program.         \\{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl         {\f0\fnil\fcharset0 Times New Roman;}}\viewkind4\uc1\pard\f0\fs20          The big \ul <<ALLT(dcolor.dcolor)>>\ulnone  dog\par}SET TEXTMERGE TOAPPEND GENERAL gcolor FROM &_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1"ENDSCANSET SAFETY &tSafetyERASE &_rtfFileREPORT FORM rtfdemo PREVIEW NOCONSOLEUSECLOSE ALL
    列印報表時,文字中的色彩會加上底線。注意:在某些情況下,RTF 格式文字的預覽列印看起來不正確。 不過,列印字串時,輸出的格式會正確。秘訣:若要產生與上述程式碼類似的字串,請在 Microsoft 寫字板(或能建立 rtf 檔案的其他應用程式)中,為您的運算式建立範本。 為文字加上底線、色彩及套用任何其他格式設定,然後將其儲存至。RTF 檔案。 開啟。[記事本] 中的 RTF 檔案,然後將 Rtf 代碼複製/貼上到您的 Visual FoxPro 程式中。(此應用程式需要 RichTX32 的 .OCX 控制項。 Visual FoxPro 3.0 和 3.0 b 不隨附 RichTX32。