Declare Function ScreenList ( ByVal depth As Integer = 0 ) As Integer

result = ScreenList( [ depth ] )

depth

当没有更多的解决方案阅读时，返回0.

它的工作方式类似于Dir函数：对函数的第一次调用需要指定depth 参数，它返回所请求深度支持的最低分辨率。不需要参数的ScreenList的进一步调用返回下一个决议。当没有更多的解决方案可用时，ScreenList返回0.

ScreenList的结果编码为Integer，屏幕宽度为高位字，高度为低位字.

决议从最低到最高支持率返回。

在设置任何图形模式之前，可以安全地调用此函数。

Dim As Integer mode, 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

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

• 新的FreeBASIC
  
  

• Screen
  
• ScreenRes