Show/Hide Toolbars

XSharp

Note该命令在头文件中定义,将由 X# 预处理器预处理为函数调用。如果禁用标准头文件 (-nostddefs),该命令将不可用。如果告诉编译器使用不同的标准头文件(-stddef ),则此命令也可能不可用。

用途

打开/关闭屏幕显示

语法

SET CONSOLE ON | off | <lToggle>

参数

<lToggle>逻辑表达式,必须放在括号内。可以为 .T. 指定 ON 选项,或为 .F. 指定 OFF 选项,而不是逻辑表达式。指定 .T. 或 ON 时(默认值),所有输出都会显示在屏幕上。如果设置为 OFF,则屏幕上使用 ? 或 ?等命令的输出将被抑制。

描述

SET CONSOLE 命令用于停用或激活屏幕上的字符输出。这包括像 ? 这样的命令以及像 QOut() 或 QQOut() 这样的函数,它们总是从当前光标位置开始输出。

 

当 SET CONSOLE 设置为 ON 时,输出将显示在屏幕上。也可以并行输出到文件(命令 SET ALTERNATE)。

示例

 

FUNCTION Start
    USE Customers NEW
    SET ALTERNATE TO CustomerList.TXT
    SET CONSOLE OFF
    DO WHILE .NOT. Eof()
        ? Customers->LastName, Customers->FirstName
        ? Customers->Street
        ? Customers->City + ",", Customers->State, Customers->Zip
        ?
        SKIP
    ENDDO
    SET ALTERNATE TO
    SET CONSOLE ON
    USE
 
  RETURN

Visual FoxPro 方言示例(同上):

/// <summary>

/// X# 版本:2.20.0.3

/// </summary>

Function Start() As Void Strict

  *!* USE Customers New   && 当然,在 VFP 方言中也有效,但是下面的语句更兼容 VFP 语法

  Select 0

  Use customers

 

  Set Alternate To CustomerList.TXT

  Set Console Off

 

  *!* 也可以使用 not 或者 ! 替换 .not.

  *!* 也可以省略  customers.

  Do While .not. Eof()

       ? customers.LastName, customers.FirstName

       ? customers.Street

       ? customers.City + ",", customers.State, customers.Zip

       ?

      Skip

  Enddo

 

  Set Alternate To

  Set Console On

 

  Use

 

  Return

 

 

程序集

XSharp.RT.DLL

参见

SetConsole(), SET ALTERNATE