ScreenSet
设置当前工作和可见页面
ScreenSet [ work_page ] [, visible_page ]
work_page
ScreenSet允许设置当前工作页面和当前可见页面。页码范围从0到num_pages - 1，其中num_pages 是使用ScreenRes或Screen设置图形模式时指定的页数。您可以使用此函数实现页面翻转或双缓冲。
如果您提供visible_page 但省略work_page ，则只有可见页面更改。如果您提供work_page 但省略visible_page ，则只会更改工作页面。如果省略两个参数，则工作页面和可见页面都将重置为页面0。
ScreenSet提供了一种写入屏幕的方法，而不会立即显示对用户的更改。另请参见ScreenLock/ ScreenUnlock来执行此操作的另一种方法。
语法
用法
ScreenSet [ work_page ] [, visible_page ]
参数
work_page
索引到工作页面
visible_page 索引到可见页面
说明
ScreenSet允许设置当前工作页面和当前可见页面。页码范围从0到num_pages - 1，其中num_pages 是使用ScreenRes或Screen设置图形模式时指定的页数。您可以使用此函数实现页面翻转或双缓冲。
如果您提供visible_page 但省略work_page ，则只有可见页面更改。如果您提供work_page 但省略visible_page ，则只会更改工作页面。如果省略两个参数，则工作页面和可见页面都将重置为页面0。
ScreenSet提供了一种写入屏幕的方法，而不会立即显示对用户的更改。另请参见ScreenLock/ ScreenUnlock来执行此操作的另一种方法。
例子
'打开图形屏幕（320 * 200，8bpp），共2页
ScreenRes 320, 200, 8, 2
'第1页工作，同时显示第0页
ScreenSet 1, 0
Dim As Integer x = -40
Do
''清除屏幕，绘制一个框，更新x
Cls
Line (x, 80)-Step(39, 39), 4, BF
x += 1: If (x > 319) Then x = -40
'等待垂直同步：仅用于控制刷新率，可以放在Do循环的任何地方
ScreenSync
'将工作页面复制到可见页面
ScreenCopy
Loop While Inkey = ""
ScreenRes 320, 200, 8, 2
'第1页工作，同时显示第0页
ScreenSet 1, 0
Dim As Integer x = -40
Do
''清除屏幕，绘制一个框，更新x
Cls
Line (x, 80)-Step(39, 39), 4, BF
x += 1: If (x > 319) Then x = -40
'等待垂直同步：仅用于控制刷新率，可以放在Do循环的任何地方
ScreenSync
'将工作页面复制到可见页面
ScreenCopy
Loop While Inkey = ""
方言差异
- 在-lang qb 方言中不可用，除非使用别名__Screenset引用。
与QB差别
- 新的FreeBASIC
参考