實驗七面向?qū)ο蟮某绦蛟O(shè)計8

1、實驗七面向?qū)ο蟮某绦蛟O(shè)計一、實驗?zāi)康?掌握面向?qū)ο蟪绦蛑袑ο?、屬性、方法和事件等概念?了解面向?qū)ο蟪绦蛟O(shè)計的特點。3掌握對象的相對引用和絕對引用。4掌握自定義類的創(chuàng)建、修改和使用。二、實驗內(nèi)容與步驟1. 掌握并了解根據(jù)需要向表單添加任意數(shù)量的新屬性，并引用表單的其他屬性和方法引用它們。（ 1）表單添加新屬性的步驟如下：選擇“文件 / 新建 / 表單”，進入表單設(shè)計器。選擇“表單”菜單中的“新建屬性”命令，打開“新建屬性”對話框。在“名稱”框中輸入屬性名 Newx。有選擇地在“說明”框中輸入新建屬性的說明信息。這些信息將顯示在“屬性”窗口的底部。 在表單的“屬性”窗口的列表框中顯示出新建的屬性

2、Newx。（ 2）表單添加新方法的步驟如下：選擇“表單”菜單中的“新建方法程序”命令，打開“新建方法程序”對話框。在“名稱”框中輸入方法名newf。有選擇地在“說明”框中輸入新建方法的說明信息。 在表單的“屬性”窗口的列表框中顯示出新建的方法 Newf?？梢噪p擊它，打開代碼編輯窗口，然后輸入或修改方法的代碼 :Thisform.newx=Thisform.newx+5Wait“newx=”+str(Thisform.newx) Window若刪去用戶添加的屬性或方法，可以選擇“表單”菜單中的“編輯屬性/ 方法程序”命令，打開對話框。然后在列表框中選擇不需要的屬性或方法并單擊“移去”按鈕。（ 3

3、）使用新屬性和新方法。 通過“表單控件”工具欄向表單添加一個命令按鈕Command1。 雙擊命令按鈕，進入命令按鈕的 click 代碼窗口，鍵入以下代碼：Thisform.newx=5Thisform.newf-1-/5保存并運行表單，單擊命令按鈕Command1，結(jié)果如圖 1 所示。圖 1 自定義屬性和方法的使用結(jié)果2. 了解常用的事件和方法，并為不同對象設(shè)置相應(yīng)的事件代碼，啟動 Visual FoxPro 6.0。在命令窗口輸入命令 :Create form myForm,打開表單設(shè)計器窗口。從“文件”菜單中選擇“保存”命令，保存表單文件。過“表單控件”工具欄向表單添加一個命令按鈕，在屬性

4、窗口設(shè)置其Caption屬性為“退出”。從“顯示”菜單中選擇“代碼”命令，打開代碼編輯窗口。從“對象”框中選擇Form1，從“過程”框中選擇Load，然后在編輯區(qū)輸入的代碼：WAIT “引發(fā)表單 Load 事件 ! ” WINDOW從“過程”框中選擇Init，然后在編輯區(qū)輸入相應(yīng)的代碼：WAIT“引發(fā)表單 Init事件 ! ” WINDOW從“過程”框中選擇Destroy ，然后在編輯區(qū)輸入相應(yīng)的代碼：WAIT “引發(fā)表單 Destroy 事件 ! ” WINDOW從“過程”框中選擇Unload，然后在編輯區(qū)輸入相應(yīng)的代碼：WAIT“引發(fā)表單 Unload 事件 ! ” WINDOW從“對象”

5、框中選擇 Command1，從“過程”框中選擇 Click ，然后在編輯區(qū)輸入的代碼：Thisform.release從“文件”菜單中選擇“保存”命令，保存表單文件。然后單擊“關(guān)閉”按鈕，關(guān)閉表單設(shè)計窗口。在命令窗口中輸入命令：DO FORM myForm從運行表單到打開表單后單擊“退出”按鈕，屏幕顯示結(jié)果，并分析原因：-2-/53. 掌握和熟悉對象的引用。啟動 Visual FoxPro 6.0。 選擇“文件 / 新建 / 表單”，進入表單設(shè)計器。在表單上添加 1 個標簽 label1,1個文本框 text1和 1 個命令按鈕 command1。在“屬性”窗口，將表單的autocenter屬

6、性設(shè)為 .T. （把表單的 autocenter屬性設(shè)為 .T., 運行時，表單會自動居中在主窗口的中央），Label1 的 caption屬性設(shè)為“歡迎使用 VFP”， command1的 caption屬性設(shè)為“復(fù)制”，如圖2 所示。圖 2 初始屬性設(shè)置單擊復(fù)制按鈕，把標簽label1的內(nèi)容復(fù)制到文本框text1中。編寫 Command1的 Click事件過程代碼：第一種方法：絕對引用的事件過程代碼：第二種方法：相對引用的事件過程代碼：（注意：兩種方法都可以實現(xiàn) ） 保存并運行表單。4. 掌握自定義類的建立和使用。啟動 Visual FoxPro 6.0。選擇“文件 / 新建類 / 新建文

7、件”，啟動“類設(shè)計器”。在“新建類”對話框的“類名”文本框輸入新類的名稱MyClass, 在“派生于”欄中為新類指定基類-3-/5CommandGroup,在“存儲于”欄中輸入保存新類的類庫名為 MyLib.VCX，如圖 3 所示，單擊“確定”按鈕，系統(tǒng)打開“類設(shè)計器”如圖 4 所示。圖 3 “新建類”對話框?qū)?MyClass 子類的 ButtonCount 屬性值設(shè)置為 4，即設(shè)置命令按鈕組中包含的命令按鈕個數(shù)為 4，重新橫向排列 4 個命令按鈕，并將 4 個命令按鈕的 Caption 屬性分別設(shè)置為“首記錄”，“前一個”，“后一個”，“末記錄”。圖 4 類設(shè)計器打開代碼生成器，編寫MyCl

8、ass 子類的 Click事件過程代碼，代碼如下：sel=This.valuedo casecase sel=1go topcase sel=2if !bof()skip-1endifcase sel=3if !bof()-4-/5skipendifcase sel=4go bottomendcasethisform.refresh關(guān)閉類設(shè)計器。關(guān)閉類設(shè)計器后，系統(tǒng)將詢問是否將 MyClass 類保存到 Mylib.VCX 中，回答“是“。 打開表單設(shè)計器，在“表單控件“工具欄中單擊“查看類”按鈕，選擇“添加”命令，在“打開”對話框中選定自定義類庫Mylib ，將其添加到“表單控件”工具欄中，如圖 5 所示。自定義類 Myclass圖 5 自定義類的使用至此，可以像使用其他常用類一樣使用該自定義類。同學(xué)們新建一