《Visual FoxPro6.0程序設(shè)計教程》課件第6章

任務(wù)6.1循環(huán)結(jié)構(gòu)語句

任務(wù)6.2列表框、組合框、頁框控件

任務(wù)導(dǎo)入

學(xué)習(xí)目標

任務(wù)實施

1.當(dāng)型循環(huán)語句DOWHILE的語法格式

2.當(dāng)型循環(huán)結(jié)構(gòu)的特點

3.?DOWHILE語句使用示例

【例6-1】

利用循環(huán)語句，求1+2+3+…+100的值。任務(wù)6.1循環(huán)結(jié)構(gòu)語句

(1)建立應(yīng)用程序用戶接口與設(shè)置對象屬性，參見圖6-1所示。

(2)編寫程序代碼。

運行程序，結(jié)果如圖6-1所示。圖6-1求1?+?2?+?3?+?…?+?100的值

【例6-2】

輸入一個正整數(shù)，判斷該數(shù)是否為素數(shù)。

(1)建立用戶接口及設(shè)置對象屬性，參見圖6-2所示。

(2)編寫事件代碼。

運行程序，結(jié)果如圖6-2所示。圖6-2判斷是否為素數(shù)

4.步長型循環(huán)語句FOR的語法結(jié)構(gòu)

5.?FOR循環(huán)的執(zhí)行過程

6.?FOR語句使用示例

【例6-3】

利用步長型循環(huán)，求1+2+3+…+100的值。

運行結(jié)果，與圖6-1相同。

【例6-4】

求1!+2!+3!+…+6!?的值。

(1)建立用戶接口與設(shè)置對象屬性，參見圖6-3所示。圖6-3求1!+2!+3!+…+6!的值

(2)編寫命令按鈕Command1的Click事件代碼為：

s=0

t=1

FORn=1TO6 &&循環(huán)條件

t=t*n &&累乘

s=s+t &&累加

ENDFOR

THISFORM.Text1.Value=s &&返回結(jié)果

THISFORM.Text1.ReadOnly=.T.

運行程序，結(jié)果如圖6-3所示。任務(wù)導(dǎo)入

學(xué)習(xí)目標

任務(wù)實施

1.列表框的常用屬性和方法

列表框(ListBox)顯示一個項目列表，用戶可以從中選擇一項或多項，但不能直接編輯列表框中的數(shù)據(jù)。

1)列表框的常用屬性

列表框的常用屬性，見表6-1。任務(wù)6.2列表框、組合框、頁框控件表6-1常用列表框?qū)傩?/p>

2)列表框的常用方法

列表框的常用方法，見表6-2。表6-2常用列表框方法

2.列表框使用示例

【例6-5】輸出如圖6-4所示的“九九”乘法表。

(1)建立應(yīng)用程序用戶接口和設(shè)置對象屬性。

設(shè)計窗體接口，其中List1的屬性設(shè)置，見表6-3。

其他控件的屬性設(shè)置參見圖6-5所示。圖6-4“九九”乘法表表6-3屬性設(shè)置圖6-5設(shè)置列表框?qū)傩?/p>

(2)編寫命令按鈕Command1的Click事件代碼．

運行程序，結(jié)果如圖6-4所示。

【例6-6】

為小學(xué)生編寫加減法算術(shù)練習(xí)程序。計算機連續(xù)地隨機給出兩位數(shù)的加減法算術(shù)題，要求學(xué)生回答，答對的打“√”，答錯的打“×”。將做過的題目存放在列表框中備查，并隨時給出答題的正確率，如圖6-6所示。圖6-6加減法算術(shù)練習(xí)進入窗體設(shè)計器，首先增加兩個文本框Text1(隨機出題)、Text2(用戶輸入答案)、一個列表框List1(保存做過的題目)、一個命令按鈕Command1、一個圖像Image1和一個卷標Label1，屬性的設(shè)置參見圖6-7所示。圖6-7建立用戶接口

(2)編寫代碼。

運行程序，結(jié)果如圖6-6所示。

3.利用列表框顯示文件目錄

利用列表框可以設(shè)計顯示文件目錄的程序，并且可以在目錄列表中方便地選定檔。

【例6-7】

設(shè)計顯示文件目錄的列表框程序。如圖6-8所示，在列表框中選定文件后，單擊“打開選定文件”按鈕可打開該文件進行查看或編輯。圖6-8文件目錄列表

(1)進入窗體設(shè)計器。增加一個列表框控件List1、一個命令按鈕Command1、兩個形狀Shape1～Shape2、兩個標簽Label1～Label2和一個文本框Text1，如圖6-9所示。

(2)設(shè)置List1和Text1的屬性，見表6-4。圖6-9建立用戶接口表6-4屬性設(shè)置其中，列表框List1的RowSourceType屬性設(shè)置為“7—擋”時：

List1.List(1)代表驅(qū)動器

List1.List(2)代表路徑

List1.List(3)是一個分隔行

List1.List(4)是[..]。單擊它，則返回到父目錄。

其他控件的屬性設(shè)置，如圖6-10所示。圖6-10修改窗體中各對象的屬性

(3)編寫事件代碼。

運行窗體，在列表框中選定檔，按“打開選定文件”按鈕，即可打開一個包含指定文本文件的編輯器，如圖6-11所示。圖6-11打開選定文件

4.組合框的兩種形式

VFP中有兩種形式的組合框，即下拉列表框和下拉組合框，通過更改控件的Style屬性可選擇所需要的形式。

(1)下拉列表框：Style屬性值為2的組合框控件。

(2)下拉組合框：Style屬性值為0的組合框控件。

常用的組合框?qū)傩?，見?-5。表6-5組合框的常用屬性

5.下拉列表框

如果需要節(jié)省窗體上的空間，并且希望強調(diào)當(dāng)前選定的項，可以使用下拉列表框。

【例6-8】

如圖6-12所示，將例6-6“算術(shù)練習(xí)”中的列表框改為組合框(下拉列表框)。

(1)建立應(yīng)用程序用戶接口與設(shè)置對象屬性，參見圖6-13所示。圖6-12使用下拉列表框圖6-13建立應(yīng)用程序用戶接口與設(shè)置對象屬性

(2)編寫程序代碼。

運行程序，結(jié)果如圖6-12所示。

6.下拉組合框

下拉組合框看起來就像是在標準的文本框右邊加了個下拉箭頭，用鼠標單擊該箭頭就在文本框下打開一個列表。

【例6-9】

在文本框中輸入數(shù)據(jù)，按回車添加到列表框中，在列表框中選定項目，單擊鼠標右鍵可移去選定項，如圖6-14所示。圖6-14下拉組合框

(1)進入窗體設(shè)計器，在其中增加一個文本框Text1、一個組合框Combo1以及4個標簽Label1～Label4。

(2)設(shè)置Combo1的Style屬性為：0–

下拉組合框，其他控件的屬性設(shè)置參見圖6-15所示。

(3)編寫代碼。

運行程序，結(jié)果如圖6-14所示。圖6-15建立用戶接口與修改對象屬性

7.頁框

為了擴展應(yīng)用程序的用戶接口，常常使用帶頁框的窗體。

8.帶選項卡的頁框使用示例

使用頁框和頁面，可以創(chuàng)建帶選項卡的窗體。

進入窗體設(shè)計器，首先增加一個頁框控件PageFrame1，并修改其PageCount屬性為：4，頁框架上出現(xiàn)4個頁面，如圖6-16所示。圖6-16在窗體上添加頁框控件用鼠標右鍵單擊頁框架控件，在快捷菜單中選擇“編輯”，或直接在“屬性”窗口中選擇PageFrame1的Page1對象。然后，在Page1上增加一個形狀控件Shape1和一個標簽Label1，并修改其屬性，如圖6-17所示。

用鼠標單擊Page2，開始編輯第二頁。將Page2的Caption屬性改為：進入系統(tǒng)。然后，在Page2上增加一個命令按鈕Command1、一個卷標控件Label1和一個形狀控件，并修改其屬性，如圖6-18所示。圖6-17編輯第一頁圖6-18編輯第二頁用鼠標單擊Page3，開始編輯第三頁。將Page3的Caption屬性改為：退出。然后，在Page3上增加2個命令按鈕Command1～Command2、一個卷標控件Label1和一個形狀控件，并修改其屬性，如圖6-19所示。

用鼠標單擊Page4，開始編輯第四頁。然后，在Page4上增加一個標簽Label1和一個形狀控件，并修改其屬性，如圖6-20所示。圖6-19編輯第三頁圖6-20編輯第四頁

(2)編寫事件代碼。

運行程序，結(jié)果如圖6-21所示。圖6-21頁框示例運行結(jié)果

9.不帶選項卡的頁框使用示例

也可以將頁框設(shè)置為不帶選項卡的形式。

【例6-11】

將例6-10中的頁框改為不帶選項卡的形式，使用選項按鈕組控制頁面的選擇，如圖6-22所示。圖6-22不帶選項卡的頁框

(1)打開窗體文件，修改頁框架控件PageFrame1的Tabs屬