VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)課件

1、VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)1本次課的教學(xué)內(nèi)容：本次課的教學(xué)內(nèi)容： 5.5 常用控間的使用常用控間的使用 本次課的教學(xué)目的與要求：本次課的教學(xué)目的與要求： 1、標(biāo)簽、文本框、編輯框、微調(diào)按鈕、標(biāo)簽、文本框、編輯框、微調(diào)按鈕 2 2、列表框、計(jì)時(shí)器、圖像、列表框、計(jì)時(shí)器、圖像 本次課的教學(xué)重點(diǎn)與難點(diǎn)：本次課的教學(xué)重點(diǎn)與難點(diǎn)： 重點(diǎn)：屬性、事件代碼的編寫(xiě)重點(diǎn)：屬性、事件代碼的編寫(xiě) 難點(diǎn)：事件代碼的編寫(xiě)難點(diǎn)：事件代碼的編寫(xiě) 講授課時(shí)：講授課時(shí)：2學(xué)時(shí)學(xué)時(shí)VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)2常用控件常用控件VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)3一、標(biāo)

2、簽（一、標(biāo)簽（LabelLabel控件控件) )標(biāo)簽用以顯示文本。顯示內(nèi)容可通過(guò)標(biāo)簽用以顯示文本。顯示內(nèi)容可通過(guò)CaptionCaption屬性設(shè)置。屬性設(shè)置。 一般被設(shè)置的屬性為：一般被設(shè)置的屬性為：1 1、CaptionCaption: :可通過(guò)代碼設(shè)置在運(yùn)行時(shí)改變其可通過(guò)代碼設(shè)置在運(yùn)行時(shí)改變其值，值，注意數(shù)據(jù)類型只能是字符型注意數(shù)據(jù)類型只能是字符型2、Autosize:Autosize:自動(dòng)調(diào)整標(biāo)簽大小自動(dòng)調(diào)整標(biāo)簽大小 3 3、AlignmentAlignment: :標(biāo)簽文本在控件中的對(duì)齊方式標(biāo)簽文本在控件中的對(duì)齊方式 0 0：左對(duì)齊（默認(rèn)方式）；：左對(duì)齊（默認(rèn)方式）； 1 1：右對(duì)齊

3、；：右對(duì)齊；2 2：居中對(duì)齊：居中對(duì)齊VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)44、BackColor:BackColor:標(biāo)簽背景色標(biāo)簽背景色5 5、BackStyle:BackStyle:設(shè)置標(biāo)簽是否透明，如果透設(shè)置標(biāo)簽是否透明，如果透 明，則明，則BackColorBackColor設(shè)置無(wú)效設(shè)置無(wú)效6 6、FontFont開(kāi)頭的屬性用來(lái)設(shè)置顯示內(nèi)容的字體開(kāi)頭的屬性用來(lái)設(shè)置顯示內(nèi)容的字體屬性，如紅色宋體字等屬性，如紅色宋體字等7 7、ForeColor:ForeColor:標(biāo)簽顯示內(nèi)容的顏色標(biāo)簽顯示內(nèi)容的顏色8 8、標(biāo)簽位置設(shè)定、標(biāo)簽位置設(shè)定Left/Top/Width/Heig

4、htLeft/Top/Width/Height，一，一般用布局工具欄般用布局工具欄9 9、Visible:Visible:標(biāo)簽隱藏否，可編程控制標(biāo)簽隱藏否，可編程控制VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)51、Click事件:點(diǎn)擊該標(biāo)簽時(shí)發(fā)生，在里面寫(xiě)上你要執(zhí)行的代碼，2、DblClick事件:雙擊該標(biāo)簽時(shí)發(fā)生3、MouseMove事件:當(dāng)鼠標(biāo)移動(dòng)到該標(biāo)簽上時(shí)發(fā)生 VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)6控件布局控件布局左邊對(duì)齊左邊對(duì)齊右邊對(duì)齊右邊對(duì)齊頂邊對(duì)齊頂邊對(duì)齊底邊對(duì)齊底邊對(duì)齊垂直居中對(duì)齊垂直居中對(duì)齊水平居中對(duì)齊水平居中對(duì)齊相同寬度相同寬度相同高度相同高度相同大小

5、相同大小水平居中水平居中垂直居中垂直居中置前置前置后置后選取多個(gè)控件選取多個(gè)控件時(shí)設(shè)置時(shí)設(shè)置選定單個(gè)控件選定單個(gè)控件也可設(shè)置也可設(shè)置VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)7例例1 設(shè)計(jì)一應(yīng)用程序封面設(shè)計(jì)一應(yīng)用程序封面例例2 設(shè)計(jì)一封面上有藍(lán)色橢圓，點(diǎn)擊時(shí)變紅色，設(shè)計(jì)一封面上有藍(lán)色橢圓，點(diǎn)擊時(shí)變紅色，放開(kāi)時(shí)變綠色，橢圓中有黃色文字放開(kāi)時(shí)變綠色，橢圓中有黃色文字“中南林學(xué)中南林學(xué)院院”字樣。字樣。VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)8二、命令按鈕（二、命令按鈕（CommandButtonCommandButton控件控件) )主要用來(lái)啟動(dòng)某個(gè)事件、完成特定功能。主要用來(lái)啟

6、動(dòng)某個(gè)事件、完成特定功能。 如：添加記錄，移動(dòng)記錄，退出表單等如：添加記錄，移動(dòng)記錄，退出表單等 常用屬性：常用屬性：CaptionCaption、DefaultDefault( (可用可用EnterEnter鍵確認(rèn)鍵確認(rèn)) )、CancelCancel（可用（可用EscEsc鍵取消）鍵取消）、EnabledEnabled( (能否被選擇或響能否被選擇或響應(yīng)應(yīng)) )、PicturePicture( (圖片按鈕）圖片按鈕）常設(shè)置的事件：常設(shè)置的事件：ClickClick、RightClickRightClick、DoubleClickDoubleClickVisualFoxPro程序設(shè)計(jì)屬性事件

7、代碼的編寫(xiě)9三、命令按鈕組（三、命令按鈕組（CommandButtonCommandButton控件控件) )包含多個(gè)命令按鈕的容器控件。包含多個(gè)命令按鈕的容器控件。 常用屬性：常用屬性：ButtonCountButtonCount( (按鈕數(shù)目）、按鈕數(shù)目）、ButtonsButtons（按鈕數(shù)組（按鈕數(shù)組,buttons(n),buttons(n)代表第代表第n n個(gè)按鈕）個(gè)按鈕）ValueValue( (指定命令組當(dāng)前選定狀態(tài)?？蔀閿?shù)值或字符指定命令組當(dāng)前選定狀態(tài)。可為數(shù)值或字符型。若為數(shù)值型。若為數(shù)值n,n,表示第表示第n n個(gè)按鈕被選定）個(gè)按鈕被選定）常設(shè)置的事件：常設(shè)置的事件：Cl

8、ickClickVisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)10例：如圖所示，在表單中設(shè)置一組按鈕，例：如圖所示，在表單中設(shè)置一組按鈕，可完成對(duì)應(yīng)功能?？赏瓿蓪?duì)應(yīng)功能。操作步驟：操作步驟：1 1、添加標(biāo)簽和文本框，一組、添加標(biāo)簽和文本框，一組命令按鈕命令按鈕, ,并在環(huán)境中打開(kāi)并在環(huán)境中打開(kāi)sbsb表表2 2、設(shè)置外觀格式、設(shè)置外觀格式3 3、對(duì)按鈕組添加代碼、對(duì)按鈕組添加代碼 P230P230do case do case case this.value=1 case this.value=1 . . case this.value=2 case this.value=2 . .Vis

9、ualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)11四、文本框（四、文本框（TextBoxTextBox控件控件) )利用它可在內(nèi)存變量、數(shù)組元素或非備注字段中利用它可在內(nèi)存變量、數(shù)組元素或非備注字段中輸入或編輯數(shù)據(jù)。輸入或編輯數(shù)據(jù)。一般被設(shè)置的屬性為：一般被設(shè)置的屬性為：ControlSourceControlSource: :為文本框指定一個(gè)字段或變量。為文本框指定一個(gè)字段或變量。運(yùn)行時(shí)顯示變量值，也可修改。運(yùn)行時(shí)顯示變量值，也可修改。ValueValue: :用戶輸入的值，如果要限制輸入類型，設(shè)用戶輸入的值，如果要限制輸入類型，設(shè)計(jì)時(shí)先賦初值。如初值為計(jì)時(shí)先賦初值。如初值為，則只能輸入日期，

10、則只能輸入日期PasswordCharPasswordChar: : 若文本框輸入密碼，輸入時(shí)不想若文本框輸入密碼，輸入時(shí)不想讓別人知道，可輸入指定字符。如讓別人知道，可輸入指定字符。如“* *”，真正，真正內(nèi)容保存在內(nèi)容保存在ValueValue中。中。VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)12InputMaskInputMask: :指定在一個(gè)文本框中如何輸入和顯示數(shù)據(jù)，指定在一個(gè)文本框中如何輸入和顯示數(shù)據(jù)，即模式匹配格式。如此處輸入即模式匹配格式。如此處輸入6 6個(gè)個(gè)“!”!”，則只能輸入，則只能輸入6 6個(gè)大寫(xiě)字母。個(gè)大寫(xiě)字母。CentruyCentruy、HoursHou

11、rs、SecondsSeconds和和DateFormatDateFormat設(shè)置設(shè)置日期格式日期格式VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)13文本框控件事件，除了與標(biāo)簽相同的事件文本框控件事件，除了與標(biāo)簽相同的事件以外，有自己幾個(gè)特有事件。以外，有自己幾個(gè)特有事件。名字解釋：焦點(diǎn)名字解釋：焦點(diǎn)-表單中有多個(gè)對(duì)象時(shí)，表單中有多個(gè)對(duì)象時(shí)，任一時(shí)刻只能有一個(gè)對(duì)象被激活，當(dāng)光任一時(shí)刻只能有一個(gè)對(duì)象被激活，當(dāng)光標(biāo)進(jìn)入該對(duì)象時(shí)，叫該對(duì)象獲得焦點(diǎn)，標(biāo)進(jìn)入該對(duì)象時(shí)，叫該對(duì)象獲得焦點(diǎn)，光標(biāo)離開(kāi)該對(duì)象時(shí)，叫該對(duì)象失出焦點(diǎn)，光標(biāo)離開(kāi)該對(duì)象時(shí)，叫該對(duì)象失出焦點(diǎn)， 要使某一對(duì)象獲得焦點(diǎn)則調(diào)用其方法要使某一

12、對(duì)象獲得焦點(diǎn)則調(diào)用其方法SetfocusSetfocus(),(),獲得焦點(diǎn)時(shí)發(fā)生獲得焦點(diǎn)時(shí)發(fā)生WhenWhen事件，事件，失去焦點(diǎn)時(shí)發(fā)生失去焦點(diǎn)時(shí)發(fā)生ValidValid事件事件VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)141、When事件：當(dāng)光標(biāo)進(jìn)入文本框時(shí)發(fā)生2、Valid事件：當(dāng)光標(biāo)離開(kāi)文本框時(shí)發(fā)生3、SetFocus事件：使文本框獲得焦點(diǎn)VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)15 Text有三個(gè)超級(jí)屬性：有三個(gè)超級(jí)屬性：Selstart,Sellength,Seltext，這，這三個(gè)屬性設(shè)計(jì)時(shí)不可用，運(yùn)行時(shí)，當(dāng)按左鍵選擇了一三個(gè)屬性設(shè)計(jì)時(shí)不可用，運(yùn)行時(shí)，當(dāng)按左鍵選

13、擇了一段文字，這三個(gè)屬性的值記下了選擇字符的情況。段文字，這三個(gè)屬性的值記下了選擇字符的情況。例例1 1 設(shè)計(jì)一表單，兩文本框，要求：在第一文本框設(shè)計(jì)一表單，兩文本框，要求：在第一文本框輸入字符，選擇其中一段，拷貝到第二文本框中。輸入字符，選擇其中一段，拷貝到第二文本框中。步驟：步驟： 1）生成兩文本框）生成兩文本框 2）選）選Text1中的中的Valid事件，事件， thisform.text2.value=this.seltext或者或者 選選Text2中的中的When事件，事件， this.value=thisform.text1.seltext 3)運(yùn)行表單運(yùn)行表單VisualFoxP

14、ro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)16例例2 2 設(shè)計(jì)一個(gè)登錄界面，指定用戶名設(shè)計(jì)一個(gè)登錄界面，指定用戶名為為user1,passworduser1,password為：為：12341234步驟：步驟：1 1、創(chuàng)建表單，添加一些控件、創(chuàng)建表單，添加一些控件2 2、設(shè)置、設(shè)置CaptionCaption屬性，命令按鈕的屬性，命令按鈕的defaultdefault屬性屬性, ,文本框的文本框的PasswordCharPasswordChar還可設(shè)置其還可設(shè)置其InputmaskInputmask3 3、為確認(rèn)命令按鈕添加、為確認(rèn)命令按鈕添加ClickClick事件事件4 4、如要統(tǒng)計(jì)輸入次數(shù)，需添加一

15、個(gè)屬性、如要統(tǒng)計(jì)輸入次數(shù)，需添加一個(gè)屬性存儲(chǔ)計(jì)存儲(chǔ)計(jì)數(shù)值數(shù)值，并將其默認(rèn)值設(shè)置為數(shù)值，并將其默認(rèn)值設(shè)置為數(shù)值mao11mao11VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)17VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)18五、選項(xiàng)組控件（五、選項(xiàng)組控件（OptionGroup)OptionGroup)包含多個(gè)選項(xiàng)按鈕，但只能選擇包含多個(gè)選項(xiàng)按鈕，但只能選擇一個(gè)，被選中按鈕顯示一個(gè)圓點(diǎn)一個(gè)，被選中按鈕顯示一個(gè)圓點(diǎn)常用屬性：常用屬性：ButtonCount、Value、ControlSource、enabled常用事件常用事件 P240VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編

16、寫(xiě)19例：設(shè)計(jì)一選項(xiàng)組，能進(jìn)行表單背景的選擇例：設(shè)計(jì)一選項(xiàng)組，能進(jìn)行表單背景的選擇 P240P2408.scx8.scxVisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)20六、復(fù)選框六、復(fù)選框用于標(biāo)記一個(gè)兩值狀態(tài)用于標(biāo)記一個(gè)兩值狀態(tài)如：真或假，當(dāng)為真時(shí)，框內(nèi)顯示如：真或假，當(dāng)為真時(shí)，框內(nèi)顯示,否則否則, ,顯示空白。顯示空白。常用屬性：常用屬性：captioncaptionvaluevalueControlSourceControlSourceVisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)21例、統(tǒng)計(jì)新生有多少人例、統(tǒng)計(jì)新生有多少人form9.scxform9.scxstore 0 to

17、 bm1,bm2,bm3,bm4store 0 to bm1,bm2,bm3,bm4ifif thisform.check1.valuethisform.check1.value=1=1 count count for for 考生類別考生類別=“=“城鎮(zhèn)應(yīng)屆城鎮(zhèn)應(yīng)屆” ” to bm1 to bm1 endifendififif thisform.check2thisform.check2. .valuevalue=1=1 count count for for 考生類別考生類別=“=“城鎮(zhèn)往屆城鎮(zhèn)往屆” ” to bm2 to bm2 endifendififif thisform.che

18、ck3thisform.check3. .valuevalue=1=1 count count for for 考生類別考生類別=“=“農(nóng)村應(yīng)屆農(nóng)村應(yīng)屆” ” to bm3 to bm3 endifendififif thisform.check4thisform.check4. .valuevalue=1=1 count count for for 考生類別考生類別=“=“農(nóng)村往屆農(nóng)村往屆” ” to bm4 to bm4 endifendift thisform.ptionhisform.ption=共有：共有：+str(bm1+;+str(bm1+; bm2+bm3+bm4,2)+ bm

19、2+bm3+bm4,2)+人。人。 VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)22VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)23七、編輯框（七、編輯框（Editbox)Editbox)可編輯長(zhǎng)文本或備注字段，利用它可選擇、可編輯長(zhǎng)文本或備注字段，利用它可選擇、剪切、復(fù)制文本。剪切、復(fù)制文本。屬性屬性功能說(shuō)明功能說(shuō)明ScrollBars是否具有垂直滾動(dòng)條是否具有垂直滾動(dòng)條ReadOnly能否修改編輯框中內(nèi)容能否修改編輯框中內(nèi)容HideSelection焦點(diǎn)離開(kāi)編輯框時(shí)是否仍被選焦點(diǎn)離開(kāi)編輯框時(shí)是否仍被選定定Allowtabs編輯框中能否用編輯框中能否用Tab鍵鍵Seltext被選

20、擇文本的內(nèi)容被選擇文本的內(nèi)容SelStart被選擇文本的起始位置被選擇文本的起始位置SelLength被選擇文本的長(zhǎng)度被選擇文本的長(zhǎng)度ControlSource指定一個(gè)字段或變量指定一個(gè)字段或變量,并顯示值并顯示值VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)24 編輯框與文本框的主要區(qū)別：編輯框與文本框的主要區(qū)別： 1 1、編輯框只能用于輸入或編輯文本數(shù)據(jù)，、編輯框只能用于輸入或編輯文本數(shù)據(jù)，即字符型數(shù)據(jù)；而文本框可適用于數(shù)值型等即字符型數(shù)據(jù)；而文本框可適用于數(shù)值型等4 4種類型的數(shù)據(jù)。種類型的數(shù)據(jù)。 2 2、文本框只能供用戶鍵入的一段數(shù)據(jù)；而、文本框只能供用戶鍵入的一段數(shù)據(jù)；而編輯框能

21、輸入多段文本，即回車(chē)鍵不能終止編編輯框能輸入多段文本，即回車(chē)鍵不能終止編輯框的輸入。輯框的輸入。VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)25例：設(shè)計(jì)一個(gè)表單，要求當(dāng)文本框得到焦例：設(shè)計(jì)一個(gè)表單，要求當(dāng)文本框得到焦點(diǎn)時(shí)能立即顯示在編輯框中選定的文本。點(diǎn)時(shí)能立即顯示在編輯框中選定的文本。步驟：步驟： 1)創(chuàng)建表單，在表單上創(chuàng)建一文本創(chuàng)建表單，在表單上創(chuàng)建一文本框框 和一編輯框。和一編輯框。 2) edit1編輯框的編輯框的lostfocus事件代碼事件代碼編寫(xiě)如下：編寫(xiě)如下： This.Hideselection=.f. 3)Text1文本框的文本框的gotfocus事件代碼編事件代碼編

22、寫(xiě)如下：寫(xiě)如下：This.value=thisform.edit1.seltext 4)執(zhí)行表單執(zhí)行表單VisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)26另：清除在另：清除在edit1編輯框中選定的文本：編輯框中選定的文本：Thisform.edit1.seltext=“ “ 將將edit1編輯框中選定的文本送剪貼板：編輯框中選定的文本送剪貼板：_cliptext=thisform.edit1.seltextVisualFoxPro程序設(shè)計(jì)屬性事件代碼的編寫(xiě)27八、列表框（八、列表框（ListBox)ListBox)顯示的是一組項(xiàng)目顯示的是一組項(xiàng)目, ,而不是可而不是可以編輯的文本。用戶可從中以編輯的文本。用戶可從中選擇一個(gè)或多個(gè)條目。還