簡單的VisualBasic程序設(shè)計(jì).ppt

1、第3章 簡單的Visual Basic 程序設(shè)計(jì),2020/8/9,機(jī)械工業(yè)出版社,2,3.3.3 基本控件,文本框（TextBox） 文本框控件通常用于用戶輸入數(shù)據(jù)，也可用于輸出數(shù)據(jù)。不論輸入數(shù)據(jù)還是輸出數(shù)據(jù)，都是通過對文本框的Text屬性賦值來實(shí)現(xiàn)的。 常用屬性 Text屬性 Text屬性是文本框的默認(rèn)屬性，該屬性用來返回或設(shè)置文本框中顯示的內(nèi)容。,2020/8/9,機(jī)械工業(yè)出版社,3,3.3.3 基本控件,Text屬性 Text屬性是文本框的默認(rèn)屬性，該屬性用來返回或設(shè)置文本框中顯示的內(nèi)容。 MultiLine屬性 默認(rèn)時(shí)，MultiLine屬性為False，表示只允許單行輸入，并忽略E

2、nter鍵的作用； 當(dāng)MultiLine屬性為True時(shí)，表示允許多行輸入。,2020/8/9,機(jī)械工業(yè)出版社,4,3.3.3 基本控件,MaxLength屬性 MaxLength屬性用來設(shè)置文本框中允許輸入的最大字符數(shù)。 默認(rèn)值為0，表示沒有字符數(shù)限制。若給該屬性賦一個(gè)具體的值，該數(shù)值就作為文本的長度限制； 當(dāng)輸入的字符數(shù)超過設(shè)定值時(shí)，文本框?qū)⒉唤邮艹霾糠值淖址?，并發(fā)出警告聲。,2020/8/9,機(jī)械工業(yè)出版社,5,3.3.3 基本控件,PasswordChar屬性 設(shè)置PasswordChar屬性用于掩蓋文本框中輸入的字符，常用于口令的輸入。 默認(rèn)值為空，此時(shí)輸入的字母按原樣顯示在文本框

3、中。 若此屬性值設(shè)置為非空字符，則輸入字符用該非空字符顯示在文本框中。,2020/8/9,機(jī)械工業(yè)出版社,6,3.3.3 基本控件,ScrollBars屬性 ScrollBars屬性指定是否在文本框中添加水平和垂直滾動(dòng)條，屬性值有： 0-None：默認(rèn)值，文本框沒有滾動(dòng)條。 1-Horizontal：文本框只有水平滾動(dòng)條。 2-Vertical：文本框只有垂直滾動(dòng)條。 3-Both：文本框同時(shí)擁有水平和垂直滾動(dòng)條。,2020/8/9,機(jī)械工業(yè)出版社,7,3.3.3 基本控件,SelStart屬性 SelStart屬性用于定義當(dāng)前選擇的文本的起始位置，第一個(gè)字符的位置為0，依次類推。該屬性只能在

4、程序中進(jìn)行設(shè)置。 SelLength屬性 SelLength屬性用于設(shè)置或返回文本框中當(dāng)前選中的字符個(gè)數(shù)，該屬性只能在程序中進(jìn)行設(shè)置和返回。,2020/8/9,機(jī)械工業(yè)出版社,8,3.3.3 基本控件,SelText屬性 用于設(shè)置或返回文本框中當(dāng)前選中的文本內(nèi)容，該屬性只能在程序中進(jìn)行設(shè)置和返回。 Locked屬性 用于設(shè)置文本框的內(nèi)容是否可以編輯，屬性值有： True：默認(rèn)值，不能編輯文本框中的文本內(nèi)容。 False：可以編輯文本框中的文本內(nèi)容。,2020/8/9,機(jī)械工業(yè)出版社,9,3.3.3 基本控件,常用方法 文本框常用SetFocus方法把光標(biāo)移到指定的文本框中，使之獲得焦點(diǎn)。當(dāng)使用

5、多個(gè)文本框時(shí)，用該方法可把光標(biāo)移到所需要的文本框中。 其語法格式如下： 文本框名.SetFocus 常用事件,2020/8/9,機(jī)械工業(yè)出版社,10,3.3.3 基本控件,Change事件 當(dāng)用戶在文本框中輸入新內(nèi)容，或程序?qū)ξ谋究虻腡ext屬性重新賦值，從而改變文本框的Text屬性值時(shí)觸發(fā)該事件。 GotFocus事件 用鼠標(biāo)單擊文本框?qū)ο螅蚴褂肨ab鍵移動(dòng)焦點(diǎn)，或使用SetFocus方法將焦點(diǎn)設(shè)置到文本框時(shí)觸發(fā)該事件，稱為“獲得焦點(diǎn)”事件。,2020/8/9,機(jī)械工業(yè)出版社,11,3.3.3 基本控件,LostFocus事件 當(dāng)用戶按下Tab鍵光標(biāo)離開文本框，或用鼠標(biāo)選擇其他對象時(shí)觸發(fā)該

6、事件，稱為“失去焦點(diǎn)”事件。 KeyPress事件 當(dāng)用戶擊鍵（ANSI鍵，即能在ASCII碼表里找到的鍵）一次（包括按下，再釋放）時(shí)，就會(huì)觸發(fā)KeyPress事件。,2020/8/9,機(jī)械工業(yè)出版社,12,3.3.3 基本控件,【例1】設(shè)計(jì)應(yīng)用程序，在窗體上添加3個(gè)文本框，使用默認(rèn)屬性。要求當(dāng)用戶單擊窗體時(shí)，文本框1中顯示字符串“Microsoft Visual Basic”，而文本框2和文本框3中分別顯示此字符串的小寫字母串和大寫字母串，程序的運(yùn)行結(jié)果如圖3-20所示。,圖3-20 【例3-6】運(yùn)行結(jié)果,2020/8/9,機(jī)械工業(yè)出版社,13,3.3.3 基本控件,分析： 在窗體的Clic

7、k事件過程中通過設(shè)置文本框Text1的Text屬性可實(shí)現(xiàn)文本框Text1的輸出。使用文本框Text1的Change事件過程可將文本框Text1中的字符串分別轉(zhuǎn)換為小寫、大寫并在文本框Text2和文本框Text3中輸出。將字符串轉(zhuǎn)換為小寫、大寫使用系統(tǒng)函數(shù)LCase(strs)、UCase(strs)。,2020/8/9,機(jī)械工業(yè)出版社,14,3.3.3 基本控件,設(shè)計(jì)界面 創(chuàng)建工程，在窗體上放置3個(gè)文本框。 設(shè)置對象屬性 編寫代碼,2020/8/9,機(jī)械工業(yè)出版社,15,3.3.3 基本控件,Private Sub Form_Click() Text1.Text = Microsoft Vis

8、ual Basic End Sub Private Sub Text1_Change() Text2.Text = LCase(Text1.Text) Text3.Text = UCase(Text1.Text) End Sub,2020/8/9,機(jī)械工業(yè)出版社,16,3.3.3 基本控件,命令按鈕（CommandButton） 命令按鈕常常用它來接受用戶的操作信息，激發(fā)某些事件，實(shí)現(xiàn)一個(gè)命令的啟動(dòng)、中斷和結(jié)束等操作。 常用屬性 Caption屬性 默認(rèn)屬性，該屬性用來于決定命令按鈕的標(biāo)題，即顯示在命令按鈕上的文本信息。,2020/8/9,機(jī)械工業(yè)出版社,17,3.3.3 基本控件,Defau

9、lt屬性 Default屬性用于確定哪一個(gè)命令按鈕是窗體的缺省命令按鈕，屬性值有： True：指定該命令按鈕為窗體的缺省命令按鈕。 False：默認(rèn)值，指定該命令按鈕不為窗體的缺省按鈕。,2020/8/9,機(jī)械工業(yè)出版社,18,3.3.3 基本控件,Style屬性 Style屬性用于設(shè)置按鈕的顯示模式，屬性值有： 0-Standard：默認(rèn)值，標(biāo)準(zhǔn)模式，只能顯示Caption表述的文字。 1-Graphical：圖形模式，可以顯示圖形，也可以顯示文字。,2020/8/9,機(jī)械工業(yè)出版社,19,3.3.3 基本控件,Picture屬性 用于設(shè)置按鈕可顯示圖片文件。 只有當(dāng)Style屬性為1（Gr

10、aphical）時(shí)，該屬性才有意義。用于指定圖形模式下按鈕上顯示的圖形。 常用事件 對命令按鈕控件來說，Click事件是最重要的觸發(fā)方式。,2020/8/9,機(jī)械工業(yè)出版社,20,3.3.3 基本控件,【例2】設(shè)計(jì)一個(gè)如圖3-22所示的乘法器。要求程序運(yùn)行時(shí)，當(dāng)用戶單擊“求積”按鈕，求出被乘數(shù)和乘數(shù)的積；當(dāng)用戶單擊“清除”按鈕時(shí)，清除文本框中的內(nèi)容；當(dāng)用戶單擊“退出”按鈕時(shí)，退出應(yīng)用程序。,圖3-22 【例3-7】運(yùn)行界面,2020/8/9,機(jī)械工業(yè)出版社,21,3.3.3 基本控件,分析： 在“求積”按鈕的Click事件過程中編寫將前兩個(gè)文本框的Text屬性值求積并賦值給第3個(gè)文本框的Tex

11、t屬性的代碼。 但文本框的Text屬性值為字符型，首先需要使用內(nèi)部函數(shù)Val(string)將它轉(zhuǎn)換為數(shù)值型。,2020/8/9,機(jī)械工業(yè)出版社,22,3.3.3 基本控件,設(shè)計(jì)界面 創(chuàng)建工程，在窗體上需放置3個(gè)命令按鈕、3個(gè)文本框和3個(gè)標(biāo)簽。 設(shè)置對象屬性,2020/8/9,機(jī)械工業(yè)出版社,23,3.3.3 基本控件,編寫代碼,2020/8/9,機(jī)械工業(yè)出版社,24,3.3.3 基本控件,Private Sub Command1_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command

12、2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Command3_Click() End End Sub,2020/8/9,機(jī)械工業(yè)出版社,25,3.3.3 基本控件,【例3】設(shè)計(jì)應(yīng)用程序，在窗體上添加2個(gè)文本框Text1和Text2，Text1可輸入多行文字，Text2用作剪貼板且運(yùn)行時(shí)不可見，4個(gè)命令按鈕：“剪切”、“復(fù)制”、“粘貼”和“結(jié)束”，設(shè)計(jì)界面如圖3-23所示。要求程序運(yùn)行時(shí)，當(dāng)用戶在文本框Text1中輸入多行文字，并在其中選中一部分時(shí)，就可以利用這些按鈕進(jìn)行文字編輯處理。,2020/8/9

13、,機(jī)械工業(yè)出版社,26,3.3.3 基本控件,分析： 設(shè)置Text2的Visible屬性值為False可實(shí)現(xiàn)其運(yùn)行時(shí)不可見。 使用Text1的SelText屬性將當(dāng)前選中的文本內(nèi)容賦值給剪貼板Text2的Text屬性，然后設(shè)置Text1的SelText屬性值為空串可實(shí)現(xiàn)剪切功能。,圖3-23 【例3-8】設(shè)計(jì)界面,2020/8/9,機(jī)械工業(yè)出版社,27,SelText屬性 用于設(shè)置或返回文本框中當(dāng)前選中的文本內(nèi)容，該屬性只能在程序中進(jìn)行設(shè)置和返回。,2020/8/9,機(jī)械工業(yè)出版社,28,3.3.3 基本控件,將Text2的Text屬性值連接在Text1的Text屬性值上可實(shí)現(xiàn)復(fù)制功能。 設(shè)計(jì)

14、界面 創(chuàng)建工程，在窗體上需添加2個(gè)文本框，4個(gè)命令按鈕。 設(shè)置對象屬性,2020/8/9,機(jī)械工業(yè)出版社,29,3.3.3 基本控件,編寫代碼,2020/8/9,機(jī)械工業(yè)出版社,30,3.3.3 基本控件,Private Sub Command1_Click() Text2.Text = Text1.SelText Text2的文本內(nèi)容為Text1中當(dāng)前選中的文本 Text1.SelText = End Sub Private Sub Command2_Click() Text2.Text = Text1.SelText End Sub,2020/8/9,機(jī)械工業(yè)出版社,31,3.3.3 基本

15、控件,Private Sub Command3_Click() Text1.Text = Text1.Text + Text2.Text +：把兩個(gè)字符串首尾連接成一個(gè)字符串 End Sub Private Sub Command4_Click() End End Sub,2020/8/9,機(jī)械工業(yè)出版社,32,3.4 焦點(diǎn),焦點(diǎn)的概念 焦點(diǎn)是接收用戶鼠標(biāo)或鍵盤輸入的能力。當(dāng)對象具有焦點(diǎn)時(shí)，可以接收用戶的輸入。 獲得焦點(diǎn)的方法 單擊控件。 按Tab鍵進(jìn)行選擇。 在代碼中使用SetFocus方法，其格式為： 對象名.SetFocus。,2020/8/9,機(jī)械工業(yè)出版社,33,3.4 焦點(diǎn),失去焦

16、點(diǎn)的方法 運(yùn)行時(shí)用Tab鍵移動(dòng)、用訪問鍵或用鼠標(biāo)單擊選擇另一個(gè)對象。 在代碼中對另一個(gè)對象使用SetFocus方法改變焦點(diǎn)。,2020/8/9,機(jī)械工業(yè)出版社,34,3.4 焦點(diǎn),【例4】已知窗體上有3個(gè)文本框Text1、Text2和Text3，要求單擊窗體時(shí)，焦點(diǎn)位于文本框Text3中，雙擊窗體時(shí)，焦點(diǎn)位于文本框Text2中，如圖3-24所示。,圖3-24 【例3-9】的運(yùn)行界面,2020/8/9,機(jī)械工業(yè)出版社,35,3.4 焦點(diǎn),Private Sub Form_Click() Text3.SetFocus Text3獲得焦點(diǎn) End Sub Private Sub Form_DblCl

17、ick() Text2.SetFocus Text2獲得焦點(diǎn)，Text3失去焦點(diǎn) End Sub,2020/8/9,機(jī)械工業(yè)出版社,36,3.4 焦點(diǎn),Tab順序 當(dāng)窗體上有多個(gè)控件時(shí)，用鼠標(biāo)單擊某個(gè)控件或者用Tab鍵，就可以把光標(biāo)移到該控件上，使其成為活動(dòng)控件（當(dāng)前控件）。每按一次Tab鍵，可以使焦點(diǎn)從一個(gè)控件移到另一個(gè)控件上。所謂Tab順序，就是指焦點(diǎn)在各個(gè)控件之間移動(dòng)的順序。 缺省時(shí)，Tab順序由控件建立的先后順序確定。,2020/8/9,機(jī)械工業(yè)出版社,37,3.5 Visual Basic應(yīng)用程序的結(jié)構(gòu)和工作方式,3.5.1 Visual Basic應(yīng)用程序的結(jié)構(gòu) 一個(gè)Visual

18、Basic應(yīng)用程序也稱為一個(gè)工程，工程用來管理構(gòu)成應(yīng)用程序的所有文件。 創(chuàng)建Visual Basic應(yīng)用程序的第一步即是創(chuàng)建一個(gè)工程（Project），相應(yīng)的文件稱為工程文件（擴(kuò)展名為.vbp），它一般由窗體模塊文件（*.frm）、標(biāo)準(zhǔn)模塊文件（*.bas）和類模塊文件（*.cls）組成，如圖3-26所示。,2020/8/9,機(jī)械工業(yè)出版社,38,3.5.1 Visual Basic應(yīng)用程序的結(jié)構(gòu),窗體文件 具有可視化界面，每個(gè)窗體文件（也稱窗體模塊）包含窗體本身的屬性、方法和事件過程（即代碼部分，其中含有為響應(yīng)特定事件而執(zhí)行的指令）。,圖3-26 Visual Basic應(yīng)用程序的組成,2020/8/9,機(jī)械工業(yè)出版社,39,3.5.1 Visual Basic應(yīng)用程序的結(jié)構(gòu),標(biāo)準(zhǔn)模塊文件 沒有可視化界面，只包含用戶自定義的變量、自定義的子過程和自定義的函數(shù)過程等代碼模塊。 類模塊文件 沒有可視化界面，只包含用于描述類結(jié)構(gòu)（屬性和方法）代碼模塊。,2020/8/9,機(jī)械工業(yè)出版社,40,3.5.1 Visual Basic應(yīng)用程序的結(jié)構(gòu),Visual Basic應(yīng)用程序中窗體文件、標(biāo)準(zhǔn)模塊文件和類模