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

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

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

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

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

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

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

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

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

4、添加事件代碼：

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

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

5、運(yùn)行“摸獎(jiǎng)機(jī).scx”。

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