我正在尝试在 Visual FoxPro 中编写简单的程序,我正在使用内置帮助,但在那里找不到答案。有几十个示例,但它们都适用于表单,我只需要 console.out() 或 printf() 之类的东西。
在互联网上寻找一些样本时,发现了这个:
? 2 + 2
该行应该打印 4,但是从菜单或工具栏运行程序时没有任何反应。
我正在尝试在 Visual FoxPro 中编写简单的程序,我正在使用内置帮助,但在那里找不到答案。有几十个示例,但它们都适用于表单,我只需要 console.out() 或 printf() 之类的东西。
在互联网上寻找一些样本时,发现了这个:
? 2 + 2
该行应该打印 4,但是从菜单或工具栏运行程序时没有任何反应。
在命令窗口中,输入“set device to screen”
就可以创建一个程序,在程序中包括上面的那一行,可以叫“start.prg”。每次从桌面启动 Foxpro 时都会运行此程序。
点击工具、选项、文件位置、启动程序,然后“修改”并输入“start.prg”的位置,例如,C:\Program Files\Microsoft Visual Foxpro 9\start.prg
******to print to paper *********************************************
set device to printer
set printer to &&& turn off all open print commands
???" " &&& open printer in raw mode
p_Landscape_On =chr(27)+"&l1O"
p_Landscape_Off =chr(27)+"&l0O"
n_Row=2
@n_Row, 1 say (p_Landscape_On) +(p_Draft)+(p_14inPaper)
n_Row=n_Row+1
******end of printing*****************************
@n_Row,n_Col_fav say (p_Landscape_Off)+(p_12CharPerInch)+p_Portrait)
set printer to
set device to screen
在命令文本框中输入此内容,然后按 Enter。关闭所有打开的表(如果有)以查看 4。
? 是在屏幕上显示的正确方式。它将显示在当前主窗口的下一行。
如果您没有得到任何结果,请在 ?2+2 之前尝试 SET CONSOLE ON
根据您的需要,另一种选择是使用 WAIT WINDOW,即 WAIT WINDOW 'test'
您也可以在打印文本之前尝试激活屏幕。