_SCREEN 系 统 变 量

_SCREEN 系 统 变 量 - 图1指定 Visual FoxPro 主窗口的属性和方法

语 法

_SCREEN .property Name [= eValue ]

– 或 者 –

_SCREEN .methodName

参 数 描 述

PropertyName

_SCREEN 系 统 变 量 - 图2为 主 窗 口 指 定 一 个 属 性

EValue

_SCREEN 系 统 变 量 - 图3指 定 属 性 的 值

_SCREEN 系 统 变 量 - 图4MethodName 指 定 Visual FoxPro 主 窗 口 要 执 行 的 方 法

说 明

_SCREEN 系 统 变 量 - 图5_SCREEN 系 统 变 量 - 图6_SCREEN 允许把 Visual FoxPro 主窗口作为一个对象来处理 但不能为 _SCREEN 创建事件过程

_SCREEN 系 统 变 量 - 图7_SCREEN 是一个对象类型的系统变量

属 性

Activecontrol

ActiveForm

Application

AutoCenter

BackColor

BaseClass

BorderStyle

BufferMode

Caption

Class

ClassLibrary

Clipcontrols

Closable

Comment

ControlBox

ControlCount

Controls

CurrentX

CurrentY

DataSession

DataSessionID

DefOLELCID

Desktop

DrawMode

DrawStyle

DrawWidth

Enabled

FillColor

FillStyle

FontBold

FontItalic

FontName

FontOutline

FontShadow

FontSize

FontStrikeThru

FontUnderline

Forecolor

FormCount

Forms

HalfHeightCaption

Height

HelpContextID

Icon

KeyPreview

Left

LockScreen

M axButton

M axHeight

M axLeft

M axTop

M axWidth

MDIForm

M inButton

M inHeight

M in W idth

M ousePointer

续 表

M ovable Name ParentClass

Picture ReleaseType RightToLeft

Scale Mode ShowTips TabIndex

TabStop Tag Top

V isible W idth W indowState W indowType

方 法

Addobject Addproperty Box

Circle Cls Draw

H ide Line M ove

Point Print Pset

Refresh Release Removeobject

SaveAs SaveAsClass SetAll

Show TextHeight Text W idth ZOrder

示 例

_SCREEN 系 统 变 量 - 图8下例演示了如何用 _SCREEN 命令来指定 Visual FoxPro window 主窗口的属性

* 保存现设置的变量

Local oldScreenLeft

Local oldScreenTop Local oldScreenHeight Local oldScreenWidth Local oldScreenColor WITH _Screen

oldScreenLeft=.Left && 保存现位置和尺寸

oldScreenTop=.Top oldScreenHeight=.Height oldScreenWidth=.Width oldScreenColor = .Backcolor

.LockScreen=.T. && 使屏幕刷新不可用

.BackColor=rgb(192,192,192) && 把背景颜色改为灰色

.BorderStyle=2 && 把边框改为双线

.Closable=.F. && 删除 window 控件按扭

.ControlBox=.F.

.MaxButton=.F.

.MinButton=.T.

.Movable=.T.

.Height=285

.Width=550

.Caption="Custom Screen" && 设置说明

.LockScreen=.F. && 使屏幕刷新不可用

ENDWITH

=MESSAGEBOX("Return to normal ",48,WTITLE()) With _Screen

.Left = oldScreenLeft && 重设初始值

.Top = oldScreenTop && 位置和大小

.Height = oldScreenHeight

.Width = oldScreenWidth

.BackColor=oldScreenColor && 把背景颜色改为白色

.LockScreen=.T. && 使屏幕刷新不可用

.BorderStyle=3 && 把边框改为随机改变大小

.Closable=.T. && 重设 window 控件按扭

.ControlBox=.T.

.MaxButton=.T.

.MinButton=.T.

.Movable=.T.

.Caption="Microsoft Visual FoxPro" && 重设说明

.LockScreen=.F. && 恢复屏幕刷新

Endwith

请 参 阅

MODIFY WINDOW , Form 对 象