Declare Sub ScreenSet ( ByVal work_page As Integer = -1, ByVal visible_page As Integer = -1 )

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 loop
    ScreenSync
    
    ' Копируем рабочую страницу в видимую
    ScreenCopy
    
Loop While Inkey = ""

• Не доступно в диалекте -lang qb , но есть псевдоним __Screenset.
  
  

• Новое в FreeBASIC
  
  

• Screen (Графика)
  
• ScreenRes
  
• ScreenCopy
  
• ScreenLock
  
• ScreenUnlock