編輯框控件與文本框控件的功能是相似的，實際上你可以把它看作是可以展示多行數(shù)據(jù)、數(shù)據(jù)多時可以有滾動條的文本框，它的屬性和事件也大多與文本框相似。這里用編輯框來做摸獎機的例子。如下圖：

這個例子并沒有什么復(fù)雜的東西，主要是在ming令按鈕的click事件中對文本框輸入的值進(jìn)行判斷，根據(jù)所輸入的選擇值將其對應(yīng)的獎品顯示到編輯框中。制作步驟如下：

1、新建表單，將其caption屬性值設(shè)置為“編程入門網(wǎng)-制作一個摸獎機”，AutoCenter屬性值設(shè)置為.t.，width和height屬性值分別設(shè)置為280和150，并將其保存為“摸獎機.scx”。

2、添加控件并設(shè)置屬性：

（1）向表單上添加一個label控件label1，并將其caption屬性值設(shè)置為“請輸入您的選擇(1-4)”。

（2）向表單上添加一個文本框控件Text1，將其InputMask屬性值設(shè)置為9，value屬性值設(shè)置為0。

（3）向表單上添加一個ming令按鈕Command1，并將其caption屬性值設(shè)置為“您獲得的獎品是”。

（4）向表單上添加一個編輯框控件Edit1。

3、按上圖所示的程序運行界面，適當(dāng)調(diào)整各控件的大小及在表單上的位置。

4、添加事件代碼：

ming令按鈕command1的click事件代碼：

do casecase thisform.text1.value=1thisform.edit1.value="您的獎品是手機一部."case thisform.text1.value=2thisform.edit1.value="您的獎品是10000元."case thisform.text1.value=3thisform.edit1.value="您的獎品是學(xué)習(xí)機一部."case thisform.text1.value=4thisform.edit1.value="您的獎品是彩電一臺."otherwisethisform.edit1.value="謝謝您的參與."endcase

5、運行“摸獎機.scx”。

本例代碼在Win2003+VFP6.0環(huán)境下調(diào)試通過。