无法去掉vfp默认的打印预览工具栏
我根据网上下载的结合我做的表单,发给大家,希望大家给帮我看看问题出在什么地方?表单1上有一个command1,
command1 click 事件
PUBLIC aForm,oform
IF !UPPER("FOXTOOLS") $ SET("LIBRARY")
SET LIBRARY TO Foxtools.Fll
ENDIF
DO DefinirForma
DO DOVistaPrevia
PROCEDURE DefinirForma
oForm = NEWOBJECT("Form002", "", "", "打印预览")
oForm.Show
DEFINE CLASS Form002 AS Form
AutoCenter = .T.
BorderStyle = 3
Caption = "APLIC_NAME" && 这个标题是可以改变的
Desktop = .T.
DoCreate = .T.
FontBold = .T.
FontName = "MS Sans Serif"
FontSize = 8
Height = 350
Name = "Form002"
ShowWindow = 2
SizeBox = .T.
TabStop = .F.
Tag = "501"
TitleBar = 0 && **** 重要!不要改动 ****
Width = 474
windowstate=2
icon="c:\documents and settings\administrator\桌面\自动获取照片\shell32.dll_22.ico"
PROCEDURE Init
LPARAMETERS lcCaption
LOCAL lnWHandle
THIS.Caption = lcCaption
*-- 这里设置的标题将不会显示
_WSetTitle(_WFindTitl(THIS.Caption), THIS.Caption)
ENDPROC
endif
ENDPROC
ENDDEFINE
ENDPROC
*-- Procedure DoVistaPrevia
PROCEDURE DoVistaPrevia
LOCAL lcAlias
lcAlias = ALIAS()
CREATE CURSOR TempDbf (TempMemo m)
SELECT TempDbf
APPEND BLANK
REPLACE TempDbf.TempMemo WITH "打印预览"
REPORT FORM dyzp NOCONSOLE PREVIEW IN WINDOW Form002
MOVE WINDOW "打印预览" TO 100,100
RELEASE WINDOW "打印预览"
SELECT TempDbf
USE
IF !EMPTY(lcAlias) AND USED(lcAlias)
SELECT (lcAlias)
ENDIF
RELEASE WINDOWS Form002
ENDPROC
REPORT FORM dyzp NOCONSOLE PREVIEW IN WINDOW Form002&&&&预览显示在Form002中,并出现vfp默认的打印预览工具栏
我想把vfp默认的打印预览工具栏去掉,用自已制作的工具栏显示在form1中,
由于本人水平有限,无法去掉vfp默认的打印预览工具栏。
我想通过设置form1的 activate事件
if wexist("打印预览" )
RELEASE WINDOW "打印预览"
endif
不知道是否实现,如果不行,高手们有没有办法解决?
本人分析对不对:
关键是执行REPORT FORM dyzp NOCONSOLE PREVIEW 时,先创建了form1,即使在 form1的 activate事件包含:
if wexist("打印预览" )
RELEASE WINDOW "打印预览"
endif
也无法去掉vfp默认的打印预览工具栏。
因为先创建form1,然后才执行REPORT FORM dyzp NOCONSOLE PREVIEW ,所以无法去掉vfp默认的打印预览工具栏。
[ 本帖最后由 sdyswjlu 于 2011-1-3 20:16 编辑 ]