VIEW PRINT

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgViewtext
• 最后更新: 2016-08-10

---

设置屏幕上可打印的文本区域

语法

View Print [ firstrow To lastrow ]

参数

firstrow

打印区域的第一行

lastrow

打印区域的最后一行

说明

将屏幕上文本打印区域的边界（在控制台模式或图形模式下）设置为从 first 行到 last 行（含）（屏幕上可用文本行数取决于屏幕模式）。文本行从 1 开始计数。文本光标移动到指定第一行的开头。

若省略行号，则使用整个屏幕作为文本打印区域。

示例

start GeSHi

Cls
View Print 5 To 6
Color , 1
'' clear only View Print area
Cls

end GeSHi

View Print 可在图形模式下使用，以避免文本输出覆盖图形：

start GeSHi

Screen 12
Dim As Integer R,Y,x,y1
Dim As Single y2
View Print 20 To 27
Line (0,0)-(639,300),1,BF
Line (100,50)-(540,200),0,BF
Do
 r = (r + 1) And 15
 For y = 1 To 99
   y1 = ((1190 \ y + r) And 15)
   y2 = 6 / y
   For x = 100 To 540
    PSet (x, y + 100), CInt((319 - x) * y2) And 15 Xor y1
  Next x,y
 If r=0 Then Color Int(Rnd*16): Print "blah"
Loop Until Len(Inkey)

end GeSHi

与 QB 的差异

• 无。

另请参阅

• Cls
• Print
• ?
• Color

返回 目录