Width [columns ] [, rows ]
Width LPrint columns
Width { #filenum | devicename }, columns
result = Width( )

columns
rows
filenum
devicename

返回一个32位Integer，其中高位字是行数，低位字是当前设置的列数。

设置输出设备（控制台，打印机或文本文件）的最大字符列数。如果发送到设备的文本达到宽度，则会生成自动回车。

使用Width作为一个函数返回当前控制台在低字中的宽度和高字中的当前高度。

如果未指定设备，则Width将在活动控制台/图形屏幕上生效，并允许指定最大行数的第二个参数。

在图形模式中，Width用于通过设置允许的字符高度*宽度对之一来间接选择字体大小（请参阅Screen （图形））。如果rows / cols 是无效组合，则不会更改屏幕显示。

有效的字体高度是8像素，14像素和16像素。字体都具有8个像素的固定宽度。

使用Width命令强制屏幕清除（Cls）

Dim As Integer w
w = Width
Print "行：" & HiWord(w)
Print "列：" & LoWord(w)

''设置图形屏幕
Const W = 320, H = 200
ScreenRes W, H

Dim As Integer twid, tw, th

''获取并打印当前文本宽度/高度：
twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "当前屏幕的默认值（8 * 8）"
Print "宽度：" & tw
Print "高度：" & th
Sleep

Width W\8, H\16 ''使用8 * 16字体

twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "设置为8 * 16字体"
Print "宽度：" & tw
Print "高度：" & th
Sleep

Width W\8, H\14 ''使用8 * 14字体

twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "设置为8 * 14字体"
Print "宽度：" & tw
Print "高度：" & th
Sleep

Width W\8, H\8 ''使用8 * 8字体

twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "设置为8 * 8字体"
Print "宽度：" & tw
Print "高度：" & th
Sleep

• 在Windows控制台中，可以在窗口模式下使用任何值>0 .
  
• 在DOS或Windows全屏控制台上，有效的维度取决于硬件的功能。
  
• Linux不允许应用程序更改控制台大小。
  
  

• 的限制为40 或80 ，而rows 可能为25 ，30 ，43 ，50 或60 ，具体取决于所使用的图形硬件和屏幕模式。