View Print
设置屏幕的可打印区域
View Print [ firstrow To lastrow ]
firstrow
将控制台屏幕文本区域的边界设置为从最初到最后包括的行。行以1开始计数。文本光标移动到指定的第一行的开头。
如果行号被省略，则使用整个屏幕作为文本区域。
View Print可用于图形模式，以避免文本输出覆盖图形：
语法
View Print [ firstrow To lastrow ]
参数
firstrow
第一排印刷区
lastrow 最后一行打印区域
说明
将控制台屏幕文本区域的边界设置为从最初到最后包括的行。行以1开始计数。文本光标移动到指定的第一行的开头。
如果行号被省略，则使用整个屏幕作为文本区域。
例子
Cls
View Print 5 To 6
Color , 1
''仅清除查看打印区域
Cls
View Print 5 To 6
Color , 1
''仅清除查看打印区域
Cls
View Print可用于图形模式，以避免文本输出覆盖图形：
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 "胡说"
Loop Until Len(Inkey)
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 "胡说"
Loop Until Len(Inkey)
与QB差别
- 没有。
参考