SCREENLIST

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgScreenlist
• 最后更新: 2023-07-09

---

查找可用的全屏视频模式

语法

declare function Screenlist ( byval depth as long = 0 ) as long

用法

result = Screenlist( [ depth ] )

参数

depth

请求模式列表的颜色深度（支持的深度为 8、15、16、24 和 32）

返回值

没有更多分辨率可读时返回 0。

说明

其工作方式类似于 Dir 函数：第一次调用函数需要指定 depth 参数，返回所请求深度的最低支持分辨率。不带参数继续调用 Screenlist 返回后续分辨率。当没有更多可用分辨率时，Screenlist 返回 0。

Screenlist 的结果编码为 32 位值，屏幕宽度作为高字，高度作为低字。

分辨率从最低到最高支持的顺序返回。

在设置任何图形模式之前调用此函数是安全的。

示例

start GeSHi

Dim As Long mode
Dim As UInteger w, h

Print "Resolutions supported at 8 bits per pixel:"

mode = ScreenList(8)
While (mode <> 0)
    w = HiWord(mode)
    h = LoWord(mode)
    Print w & "x" & h
    mode = ScreenList()
Wend

end GeSHi

方言差异

• 在 -lang qb 方言中不可用，除非使用别名 __Screenlist 引用。

与 QB 的区别

• FreeBASIC 新增

另请参阅

• Screen (Graphics)
• Screenres

返回 目录