OPEN SCRN

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOpenScrn
• 最后更新: 2023-06-24

---

直接打开屏幕进行输入和输出，将其作为文件操作使用。

语法

` Open Scrn [for mode] as [#]filenumber as long

`

用法

Open Scrn [for mode] as [#]filenumber

or

result = Open Scrn( [for mode[,]] as [#]filenumber )

参数

mode

Input 或 Output。如果省略，则默认为 Output。

filenumber

未使用的文件编号。

返回值

32 位 Long：如果 Open Scrn() 成功完成则返回零（0），否则返回非零值以表示失败。

描述

该命令将屏幕（文本或图形屏幕模式）作为文件打开，同时用于输入和输出，允许使用普通文件命令对其进行读/写操作。

该命令在某些实现中可能使用直接访问屏幕的方式以提高速度，因此当需要用操作系统命令重定向或管道传输输入/输出时，不应使用该命令。

普通屏幕命令（如 Color 和 Locate）在此模式下不起作用，因为它们不接受文件编号。

[For Input|Output] 子句允许使用，但会被忽略（仅为兼容性目的）。

filenumber 是未使用的文件编号。

可以使用 FreeFile 找到未使用的文件编号。

Open Scrn 返回的错误代码可以在下一行使用 Err 检查。Open Scrn 的函数版本直接以 32 位 Long 的形式返回错误代码。

运行时错误： Open Scrn 会抛出以下运行时错误之一：

(1) 非法函数调用

• filenumber 当时不空闲。使用 Freefile 以确保 filenumber 是空闲的。

示例

start GeSHi

Dim a As String
Open Scrn For Input  As #1
Print #1,"Please write something and press ENTER"
Line Input #1,a
Print #1, "You wrote";a
Close
Sleep

end GeSHi

与 QB 的差异

• QB 使用 OPEN "SCRN:" ...

参见

• Open
• Open Cons

返回 目录