zoom window 命令示例

在下面的示例中，为 customer 表打开“浏览”窗口。将“浏览”窗口最小化，然后恢复到原来大小，接着在指定位置再一次最小化，最后，将“浏览”窗口扩大到指定大小和最小尺寸。

clear all
clear
close databases
open database (home( ) + 'samples\data\testdata')
use customer && 打开 customer 表
browse normal nowait

if _dos or _windows
zoom window customer min
wait window timeout 3 ;
'min clause - this window will timeout. please wait.'
endif

zoom window customer norm
wait window timeout 3 ;
'norm clause - this window will timeout. please wait.'

if _dos or _windows
zoom window customer min at 10,10
wait window timeout 3 ;
'min at 10,10 clause - this window will timeout. please wait.'
endif

zoom window customer norm at 1,1 size 22,25

wait window timeout 3 ;
'norm & size clauses - this window will timeout. please wait.'

zoom window customer norm from 10,10 to 22,70
wait window timeout 3 ;
'norm & to clauses - this window will timeout. please wait.'
zoom window customer max
wait window timeout 3 ;
'max clause - this window will timeout. please wait.'
clear all