@ ......CLASS 命 令

@ ......CLASS 命 令 - 图1创建可以用 READ 激活的控 件 或对象

语 法

@ nRow , nColumn CLASS ClassName N A M E Ob jectName

参 数 描 述

@ nRow , nColumn

@ ......CLASS 命 令 - 图2@ ......CLASS 命 令 - 图3指 定 控 件 或 对 象 的 位 置 控 件 或 对 象 的 宽 度 和 高 度 由 类 的 默 认 宽 度 和 高 度 值确 定

@ ......CLASS 命 令 - 图4@ ......CLASS 命 令 - 图5@ ......CLASS 命 令 - 图6行从上向下编号 Visual FoxPro 主窗口或用户自定义窗口中的第一行编号为 0 Visual FoxPro 的第 0 行就是紧接着 Visual FoxPro 系统菜单栏的那一行

@ ......CLASS 命 令 - 图7@ ......CLASS 命 令 - 图8@ ......CLASS 命 令 - 图9@ ......CLASS 命 令 - 图10@ ......CLASS 命 令 - 图11列从左向右编号 Visual FoxPro 主窗口或用户自定义窗口中的第一列编号为 0 当把一个对象或控件添加到用户自定义窗口中时 行和列坐标与用户自定义窗口 而不是Visual FoxPro 主窗口相关

@ ......CLASS 命 令 - 图12@ ......CLASS 命 令 - 图13@ ......CLASS 命 令 - 图14@ ......CLASS 命 令 - 图15在 Visual FoxPro 中 Visual FoxPro 主窗口或用户自定义窗口中的某一位置 由 Visual FoxPro 主窗口或用户自定义窗口的字体决定 大多数字体可以用不同大小显示 有一

@ ......CLASS 命 令 - 图16@ ......CLASS 命 令 - 图17@ ......CLASS 命 令 - 图18些字体能够按比例留间隔 行的高度与当前字体的高度一致 列的宽度则与当前字体字符的平均宽度一致

@ ......CLASS 命 令 - 图19@ ......CLASS 命 令 - 图20@ ......CLASS 命 令 - 图21在 Visual FoxPro 中 可以使用小数指定控件或对象的行 列坐标

CLASS C lassName

@ ......CLASS 命 令 - 图22@ ......CLASS 命 令 - 图23@ ......CLASS 命 令 - 图24@ ......CLASS 命 令 - 图25指 定 控 件 或 对 象 的 类 ClassName 可 以 是 V isual FoxPro 的 一 个 基 类 也 可 以是 用 户 自 定 义 类 下 表 列 出 了 ClassName 可 指 定 的 V isual FoxPro 基 类

基 类 名 称

CheckBox

Column

ComboBox

CommandButton

CommandGroup

Container

Control

Cursor

Custom

DataEnvironment

EditBox

Grid

Header

Image

Label

Line

ListBox

OLEBoundControl

OLEControl

OptionButton

OptionGroup

Page

PageFrame

Relation

Separator

TextBox

Shape

Timer

Spinner

N A M E Ob jectName

@ ......CLASS 命 令 - 图26@ ......CLASS 命 令 - 图27@ ......CLASS 命 令 - 图28@ ......CLASS 命 令 - 图29指 定 对 象 引 用 变 量 的 名 称 N A M E 子 句 可 以 创 建 此 变 量 控 件 或 对 象 的 面 向对 象 属 性 事 件 和 方 法 都 可 以 通 过 引 用 这 个 变 量 来 操 纵

说 明

@ ......CLASS 命 令 - 图30@ ......CLASS 命 令 - 图31@ ......CLASS 命 令 - 图32@ ......CLASS 命 令 - 图33@ ......CLASS 命 令 - 图34@ ......CLASS 命 令 - 图35@ ...... CLASS 提供了一个捷径 能把 FoxPro 早期版本中创建的应用程序移植到更受欢迎的 Visual FoxPro 面向对象编程方法中来 有关与 FoxPro 2.x 控件的向后兼容性的附加信息 请参阅本书稍后的 控件与对象

@ ......CLASS 命 令 - 图36@ ......CLASS 命 令 - 图37@ ......CLASS 命 令 - 图38@ ......CLASS 命 令 - 图39@ ......CLASS 命 令 - 图40有关在 Visual FoxPro 中的面向对象编程 请参阅 Microsoft Visual FoxPro 6.0 中文版程序员指南 @ ......CLASS 命 令 - 图41 的第三章 面向对象程序设计

示 例

@ ......CLASS 命 令 - 图42@ ......CLASS 命 令 - 图43@ ......CLASS 命 令 - 图44@ ......CLASS 命 令 - 图45@ ......CLASS 命 令 - 图46@ ......CLASS 命 令 - 图47下面的例子说明了如何把 @ ...... CLASS 同早期 FoxPro 版本中的编程技术结合起来使 用 在这个例子中 使用 READ 激活控件 @ ...... CLASS 创建了一个文本框 这个文本框的属性可以用 Visual FoxPro 面向对象的编程技术来改变

@ ......CLASS 命 令 - 图48@ ......CLASS 命 令 - 图49@ ......CLASS 命 令 - 图50@ ......CLASS 命 令 - 图51使用 ON KEY LABEL 可以在按 ALT + W 时显示 窗口颜色 对 话 框 用 @ ......

@ ......CLASS 命 令 - 图52@ ......CLASS 命 令 - 图53CLASS 命令把文本框添加到 Visual FoxPro 主窗口中 然后用 READ 激活文本框

CLEAR

ON KEY LABEL CTRL+I _SCREEN .PageFrame1 .Page1.goFirstName.BackColor;

= GETCOLOR @ ......CLASS 命 令 - 图54 @ ......CLASS 命 令 - 图55

@ 2,2 SAY ' 按下 Ctrl+I 键改变背景颜色 '

@ ......CLASS 命 令 - 图56@ ......CLASS 命 令 - 图57@ ......CLASS 命 令 - 图58@ ......CLASS 命 令 - 图59 4,2 @ ......CLASS 命 令 - 图60 TextBox @ ......CLASS 命 令 - 图61 @ ......CLASS 命 令 - 图62 goFirstName READ

CLEAR

请 参 阅

CREATEOBJECT @ ......CLASS 命 令 - 图63 @ ......CLASS 命 令 - 图64 , DEFINE CLASS . R E A D , _SCREEN