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

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

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

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

學(xué)習(xí)目標(biāo)

任務(wù)實(shí)施

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

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

3.?DOWHILE語(yǔ)句使用示例

【例6-1】

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

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

(2)編寫程序代碼。

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

【例6-2】

輸入一個(gè)正整數(shù)，判斷該數(shù)是否為素?cái)?shù)。

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

(2)編寫事件代碼。

運(yùn)行程序，結(jié)果如圖6-2所示。圖6-2判斷是否為素?cái)?shù)

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

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

6.?FOR語(yǔ)句使用示例

【例6-3】

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

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

【例6-4】

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

(1)建立用戶接口與設(shè)置對(duì)象屬性，參見圖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.

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

學(xué)習(xí)目標(biāo)

任務(wù)實(shí)施

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

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

1)列表框的常用屬性

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

2)列表框的常用方法

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

2.列表框使用示例

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

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

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

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

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

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

【例6-6】

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

(2)編寫代碼。

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

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

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

【例6-7】

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

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

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

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

List1.List(2)代表路徑

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

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

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

(3)編寫事件代碼。

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

4.組合框的兩種形式

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

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

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

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

5.下拉列表框

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

【例6-8】

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

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

(2)編寫程序代碼。

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

6.下拉組合框

下拉組合框看起來(lái)就像是在標(biāo)準(zhǔn)的文本框右邊加了個(gè)下拉箭頭，用鼠標(biāo)單擊該箭頭就在文本框下打開一個(gè)列表。

【例6-9】

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

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

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

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

(3)編寫代碼。

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

7.頁(yè)框

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

8.帶選項(xiàng)卡的頁(yè)框使用示例

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

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

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

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

(2)編寫事件代碼。

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

9.不帶選項(xiàng)卡的頁(yè)框使用示例

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

【例6-11】

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

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