:: 作 用 域 操 作 符

:: 作 用 域 操 作 符 - 图1在子类方法中运行父类的方法

语 法

cClassName ::cMethod

说 明

:: 作 用 域 操 作 符 - 图2:: 作 用 域 操 作 符 - 图3:: 作 用 域 操 作 符 - 图4:: 作 用 域 操 作 符 - 图5:: 作 用 域 操 作 符 - 图6操作符 :: 从子类方法中执行父类的方法 在创建子类时 子类方法可以通过自动继承父类方法来得到 操作符 :: 使您在子类方法中执行完父类方法后 还能执行子类方法的其他一些操作

:: 作 用 域 操 作 符 - 图7:: 作 用 域 操 作 符 - 图8:: 作 用 域 操 作 符 - 图9:: 作 用 域 操 作 符 - 图10:: 作 用 域 操 作 符 - 图11有关作用域操作符 :: 的详细内容 请参阅 Microsoft Visual FoxPro 6.0 中文版程序员指南 :: 作 用 域 操 作 符 - 图12 的第三章 面向对象程序设计

示 例

:: 作 用 域 操 作 符 - 图13:: 作 用 域 操 作 符 - 图14:: 作 用 域 操 作 符 - 图15:: 作 用 域 操 作 符 - 图16:: 作 用 域 操 作 符 - 图17:: 作 用 域 操 作 符 - 图18下面的示例创建了一个表单并添加了两个命令按钮 单击任意按钮 可以退出表单第二个按钮 :: 作 用 域 操 作 符 - 图19 :: 作 用 域 操 作 符 - 图20 :: 作 用 域 操 作 符 - 图21 :: 作 用 域 操 作 符 - 图22 :: 作 用 域 操 作 符 - 图23 :: 作 用 域 操 作 符 - 图24 :: 作 用 域 操 作 符 - 图25 :: 作 用 域 操 作 符 - 图26 :: 作 用 域 操 作 符 - 图27 :: 作 用 域 操 作 符 - 图28 :: 作 用 域 操 作 符 - 图29 :: 作 用 域 操 作 符 - 图30 从 :: 作 用 域 操 作 符 - 图31 :: 作 用 域 操 作 符 - 图32 :: 作 用 域 操 作 符 - 图33 :: 作 用 域 操 作 符 - 图34 :: 作 用 域 操 作 符 - 图35 调用 Click 过程 因为是子

:: 作 用 域 操 作 符 - 图36:: 作 用 域 操 作 符 - 图37:: 作 用 域 操 作 符 - 图38类 此操作是可行的 作用域操作符为子类对象调用父类代码

frmMyForm = CREATEOBJECT("Form") frmMyForm.Width = 450

frmMyForm.Height = 100

frmMyForm.Caption = "Scope Resolution Example" frmMyForm.AutoCenter =.T. frmMyForm.AddObject("cmdQuit","cmdQuitButton") frmMyForm.AddObject("cmdAnother","cmdAnotherButton") frmMyForm.SHOW && 显示表单

READ EVENTS && 启动事件程序

:: 作 用 域 操 作 符 - 图39:: 作 用 域 操 作 符 - 图40:: 作 用 域 操 作 符 - 图41:: 作 用 域 操 作 符 - 图42:: 作 用 域 操 作 符 - 图43:: 作 用 域 操 作 符 - 图44下面的示例定义了两个命令按钮 第二个按钮作为第一个按钮的子类 为定义的 FontBold 与 ForeColor 属性 可以使用于此子类 而在

:: 作 用 域 操 作 符 - 图45则没有清楚的设置 我们将 :: 作 用 域 操 作 符 - 图46 :: 作 用 域 操 作 符 - 图47 定义为 的

:: 作 用 域 操 作 符 - 图48:: 作 用 域 操 作 符 - 图49:: 作 用 域 操 作 符 - 图50子类 这样 该按钮会获得为 定义的所有属性

DEFINE CLASS cmdQuitButton AS CommandButton Caption = "\<Quit" && 给命令按钮增加说明Left = 175 && 按钮左边距

Top = 60 && 按钮顶端位置

Height = 25 && 按钮高度

Visible = .T. && 显示表单中的按钮

FontItalic = .T. && 设置斜体字

ForeColor = R GB(0,0,255) && 改变按钮字体颜色

PROCEDURE Click

:: 作 用 域 操 作 符 - 图51WAIT WINDOW "Executing the CLICK procedure for cmdQuit." TIMEOUT 1 CLEAR EVENTS && 终止事件程序 关闭表单

ENDDEFINE

DEFINE CLASS cmdAnotherButton AS cmdQuitButton

Caption = "Click to quit" Left = 175

Top = 30

Height = 25

PROCEDURE Click

:: 作 用 域 操 作 符 - 图52:: 作 用 域 操 作 符 - 图53WAIT WINDOW "Click event for button: cmdAnotherButton" TIMEOUT 1 cmdQuitButton Click

ENDDEFINE

请 参 阅

:: 作 用 域 操 作 符 - 图54ADD CLASS , CREATE CLASS , CREATE CLASSLIB , CREATEOBJECT :: 作 用 域 操 作 符 - 图55 :: 作 用 域 操 作 符 - 图56 , DEFINE CLASS , DODEFAULT :: 作 用 域 操 作 符 - 图57 , GETOBJECT :: 作 用 域 操 作 符 - 图58 :: 作 用 域 操 作 符 - 图59 , MODIFY CLASS , RELEASE CLASSLIB , SET CLASSLIB , W ITH ...... END W ITH