北京電大VisualBasic程序設(shè)計(jì)VB可視化編程初步課件

1、2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 1 Visual Basic 程序設(shè)計(jì) 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 2 第二講VB可視化編程初步 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 3 內(nèi)容簡(jiǎn)介 本章以一個(gè)簡(jiǎn)單的時(shí)鐘應(yīng)用程序開發(fā)為主線： 詳細(xì)介紹窗體、文本框、標(biāo)簽和命令按鈕等常用控件詳細(xì)介紹窗體、文本框、標(biāo)簽和命令按鈕等常用控件 事件和事件過程以及事件驅(qū)動(dòng)程序設(shè)計(jì)的基本原理事件和事件過程以及事件驅(qū)動(dòng)程序設(shè)計(jì)的基本原理 MsgBox函數(shù)、賦值語(yǔ)句的使用方法。函數(shù)、賦值語(yǔ)句的使

2、用方法。 通過本章的學(xué)習(xí)，你將熟悉Visual Basic開發(fā)應(yīng)用程 序的全過程，領(lǐng)略到VB可視化編程的魅力，為進(jìn)一 步深入學(xué)習(xí)奠定基礎(chǔ)。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 4 學(xué)習(xí)目標(biāo) 掌握VB應(yīng)用程序開發(fā)的一般步驟。 掌握命令按鈕、文本框和標(biāo)簽的使用和MsgBox函數(shù)的 用法。 理解賦值語(yǔ)句、變量的概念，理解對(duì)象、屬性、方法 和事件的概念及其之間的區(qū)別和聯(lián)系，理解事件驅(qū)動(dòng) 的原理。 了解時(shí)鐘程序的工作原理。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 5 2.1“時(shí)鐘程序”任務(wù) 在實(shí)際工作中，為了準(zhǔn)確的控制時(shí)間，

3、經(jīng)常需在實(shí)際工作中，為了準(zhǔn)確的控制時(shí)間，經(jīng)常需 要用到計(jì)時(shí)器，現(xiàn)在我們就來(lái)創(chuàng)建一個(gè)倒計(jì)時(shí)要用到計(jì)時(shí)器，現(xiàn)在我們就來(lái)創(chuàng)建一個(gè)倒計(jì)時(shí) 的簡(jiǎn)單應(yīng)用程序。的簡(jiǎn)單應(yīng)用程序。 該程序的功能是：當(dāng)在文本框內(nèi)輸入倒計(jì)時(shí)的該程序的功能是：當(dāng)在文本框內(nèi)輸入倒計(jì)時(shí)的 分鐘數(shù)后，單擊分鐘數(shù)后，單擊“開始開始”按鈕就開始倒計(jì)時(shí)，倒按鈕就開始倒計(jì)時(shí)，倒 計(jì)時(shí)結(jié)束時(shí)，彈出計(jì)時(shí)結(jié)束時(shí)，彈出“時(shí)間到！時(shí)間到！”的信息框。的信息框。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 6 任務(wù)描述 界面設(shè)計(jì) 代碼設(shè)計(jì) 保存和運(yùn)行程序 編譯與打包 安裝運(yùn)行 VB應(yīng)用程序開發(fā) 的一般步驟 時(shí)鐘程序任務(wù) 時(shí)鐘

4、程序任務(wù) 任務(wù)描述 程序運(yùn)行：出現(xiàn) 輸入分鐘數(shù) 時(shí)間到: 出現(xiàn) 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 7 2.1.1任務(wù)描述 啟動(dòng)界面 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 8 輸入1分鐘數(shù)字界面 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 9 倒計(jì)時(shí)進(jìn)行中界面 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 10 倒計(jì)時(shí)結(jié)束界面 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 11 212 界面的設(shè)計(jì) 1 新建工程并創(chuàng)建

5、窗體 啟動(dòng)VB 在“新建工程“對(duì)話框中，選擇 “標(biāo)準(zhǔn)EXE ”單擊“打開”。 2 向窗體中添加控件 調(diào)整窗體的大小為合適，向窗體中添加： 一個(gè)標(biāo)簽、一個(gè)文本框、一個(gè)命令按鈕和 一個(gè)計(jì)時(shí)器控件。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 12 通過鼠標(biāo)單擊“工具箱”中的控件，在窗體上劃 出相應(yīng)的控件。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 13 3 設(shè)置對(duì)象屬性設(shè)置對(duì)象屬性 （1）單擊Form1窗體,選定它。在屬性窗口中選中 Form1，將Caption 的屬性改為“倒計(jì)時(shí)器” （2）單擊窗體上的“Label1”控件，將

6、Caption的屬 性改為清輸入倒計(jì)時(shí)的分鐘數(shù)，將Autosize屬性改 為true （3）將命令按鈕command1的Caption屬性改為 “開始“。 （4）將text1 的Alignment屬性改為“2-center”. （5）將計(jì)時(shí)器控件timer的Interval的屬性值設(shè)為 1000（1秒），Enabled屬性設(shè)為False. 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 14 2.1.3代碼設(shè)計(jì)代碼設(shè)計(jì) （1）代碼編輯器“通用”區(qū)代碼 Dim m As Long 聲明一個(gè)變量 （2）Command1控件代碼 Private Sub Command1

7、_Click() 使計(jì)時(shí)器控件開始工作 Timer1.Enabled = True 將分鐘數(shù)轉(zhuǎn)換為秒數(shù)，并保存在m變量中 m = Val(Text1.Text) * 60 改變標(biāo)簽控件的標(biāo)題 Label1.Caption = 現(xiàn)在開始倒計(jì)時(shí) 使用命令按鈕不可見 Command1.Visible = False End Sub 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 15 2.1.3代碼設(shè)計(jì)代碼設(shè)計(jì) （3）Timer1控件代碼 Private Sub Timer1_Timer() 當(dāng)Timer1.Enabled=Ture是，本程序每秒自動(dòng)執(zhí)行一次 每運(yùn)行一次

8、，就將m變量的值減1秒 m = m 1 If m 0 Then 如果倒計(jì)時(shí)結(jié)束（即m=0）則： Timer1.Enabled = False 關(guān)閉計(jì)時(shí)器 MsgBox 時(shí)間到！, 0, 倒計(jì)時(shí) Label1.Caption = 請(qǐng)輸入計(jì)時(shí)的分鐘數(shù) Text1.Text = 清空文本框 Command1.Visible = True 使命令按鈕可見 Else 否則顯示倒計(jì)時(shí)數(shù) Text1.Text = m End If End Sub 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 16 2.1.4保存和運(yùn)行程序保存和運(yùn)行程序 1保存工程 單擊“文件”菜單中的“保存

9、工程” 2運(yùn)行程序 單擊工具欄中的啟動(dòng)按鈕，或者按F5鍵開始運(yùn)行該 應(yīng)用程序。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 17 2.1.5編譯與打包編譯與打包 1編譯應(yīng)用程序 單擊“文件”菜單中的“生成Timer.exe”選項(xiàng) 2打包 創(chuàng)建一個(gè)安裝程序來(lái)發(fā)布文件 Package運(yùn)行后將窗體的顏色設(shè)置為 黃色;單機(jī)窗體時(shí)窗體變寬;雙擊窗體時(shí)退 出. 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 41 2.3.3 命令按鈕命令按鈕 其主要功能是通過命令按鈕來(lái)調(diào)用Click 事件過程?？刂?開始、中斷、結(jié)束一個(gè)進(jìn)程。 1、常用屬性

10、Enabled：允許程序在運(yùn)行時(shí)使窗體和控件成為有效或 無(wú)效 object.Enable =boolean Visible：允許在程序運(yùn)行時(shí)隱藏一個(gè)對(duì)象 object.Visible =boolean Style：設(shè)置按鈕外觀。0為標(biāo)準(zhǔn)Windows風(fēng)格 ，1為 允許帶有自定義圖片 Picture：Style為1時(shí)，指定粘貼到按鈕上的圖形文件 Default：屬性為True時(shí)，指定為窗體缺省按鈕 Cancel：屬性為True時(shí)，指定為窗體缺省取消按鈕 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 42 例如： Option Explicit Private Su

11、b Form_Load() Text1.Text = Command1.Caption = save End Sub Private Sub Text1_Change() If Text1.Text = Then Command1.Enabled = False Else Command1.Enabled = True End If End Sub 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 43 2、常用方法 SetFocus方法 3、常用事件 Click(單擊) Click事件，以下情況可發(fā)生Clicl事件： (1) 在按鈕上單擊鼠標(biāo)。 (2) 焦點(diǎn)在按鈕

12、上，按空格鍵或回車鍵。 (3) 在代碼中將按鈕Value屬性設(shè)置為True (4) 對(duì)于取消按鈕按Esc鍵 (5) 在Caption屬性中用&符號(hào)鏈接一訪問鍵，在運(yùn)行時(shí)按Ali+訪問鍵。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 44 234 標(biāo)簽 標(biāo)簽現(xiàn)實(shí)不能編輯的信息。 1 常用屬性 （1）AutoSize 當(dāng)值為true 時(shí)自動(dòng)調(diào)節(jié)內(nèi)容大小以適應(yīng)其內(nèi)容。 當(dāng)值為false時(shí)，不能改變大小。 （2）Alignment 屬性 標(biāo)簽內(nèi)文本的對(duì)齊方式，標(biāo)2. 7所示 (3) BordeStyle 屬性 標(biāo)簽的邊框,默認(rèn)值為0 ,無(wú)邊框。屬性設(shè)為1 右邊 框。

13、2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 45 （4）Backstyle 屬性 用來(lái)設(shè)置標(biāo)簽是否透明，0透明，1不透明， 默認(rèn)值為1。 （5）wordwrap屬性 用來(lái)設(shè)置標(biāo)簽中的內(nèi)容是否能夠顯示多行。 缺省為false ，設(shè)為true 可顯示多行。 2 常用方法 常用方法有move方法實(shí)現(xiàn)控件的移動(dòng)。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 46 用標(biāo)簽來(lái)顯示時(shí)間 Label1.Caption = Time 在標(biāo)簽中同時(shí)顯示兩行以上的字符串 Label1.Caption = Time & Chr(13) & Chr(1

14、0) & Date 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 47 2.3.5文本框（文本框（Textbox） 1常用屬性 （1）Text屬性 （2）MultiLine屬性 MultiLine屬性為True MultiLine屬性為False 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 48 2.3.5文本框（Textbox） 1常用屬性 （3）PassWordChar （a）（b） 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 49 235 文本框 文本框控件一般用于接收用戶輸入信息，用戶可

15、 以在文本框中編輯信息。 1 常用屬性 （1）text 屬性 用來(lái)設(shè)置文本框中的內(nèi)容。 （2）MultiLine 屬性 MultiLine 屬性用來(lái)決定文本框是否可輸入多行文 本。默認(rèn)為false ，設(shè)為true 可輸入多行。 （3）PasswordChar 屬性 用于密碼輸入，設(shè)置為* ，顯示為*。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 50 （4）ScrollBars 屬性 用于設(shè)置文本框是否有滾動(dòng)條 如表2。8 只有當(dāng)MultiLine 屬性為true 時(shí)滾動(dòng)條才有 效。 （5）locked 屬性 用于設(shè)置文本框的內(nèi)容是否可以編輯，默 認(rèn)值為fal

16、se 表示可編輯，值為true 表示 鎖定。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 51 2 常用方法 常用的方法為Setfocus 設(shè)置焦點(diǎn)，將光標(biāo)從 其它位置移到文本框中。 3 常用事件 （1）Chang事件，改變文本框中內(nèi)容改變時(shí) 發(fā)生的事件 （2）KeyPress 事件，當(dāng)用戶按下并且釋放 鍵盤上的一個(gè)鍵時(shí)，發(fā)生KeyPress 事件。 該事件將返回一個(gè)KeyAscii 參數(shù)值. (3) LostFocus 和GotFocus 事件：表示文本框 控件shiqu和得到焦點(diǎn)是所發(fā)生的事件。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB

17、 可視化編程初步 52 24 事件驅(qū)動(dòng)事件驅(qū)動(dòng) 241 事件驅(qū)動(dòng)的程序設(shè)計(jì) 事件驅(qū)動(dòng)的應(yīng)用程序，程序的執(zhí)行發(fā)生了根本的 變化，代碼不是按預(yù)定的路線執(zhí)行，而是在響 應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片斷。每個(gè)對(duì) 象都有一個(gè)相應(yīng)的事件集每個(gè)事件的發(fā)生都要 執(zhí)行一段程序代碼，時(shí)間可以由用戶操作觸發(fā)， 也可以有操作系統(tǒng)或其他應(yīng)用程序的消息觸發(fā)， 甚至可以由應(yīng)用程序本身的消息觸發(fā)。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 53 242 VB的對(duì)象如何識(shí)別事件的對(duì)象如何識(shí)別事件 代碼部分與每個(gè)事件相對(duì)應(yīng),如果讓控件對(duì)象響應(yīng) 事件,就把代碼寫入這個(gè)事件的事件過程中. 2. 4

18、. 3 事件驅(qū)動(dòng)的工作過程事件驅(qū)動(dòng)的工作過程 事件驅(qū)動(dòng)的工作過程 (1) 啟動(dòng)應(yīng)用程序,裝載和顯示函數(shù)。 (2) 窗體和窗體上的控件等待時(shí)間的發(fā)生。事件可以由用戶 引發(fā)，可由系統(tǒng)引發(fā)，也可由代碼間接引發(fā)。 (3) 當(dāng)某個(gè)事件發(fā)生后，執(zhí)行其對(duì)應(yīng)的事件過程代碼。 (4) 重復(fù)執(zhí)行第2和第3步，直到結(jié)束。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 54 五、計(jì)時(shí)器控件的一般用法五、計(jì)時(shí)器控件的一般用法 如果想通過事件來(lái)控制某些操作或用于計(jì)時(shí)，就可以用 計(jì)時(shí)器（Timer）控件來(lái)實(shí)現(xiàn)。計(jì)時(shí)器控件在設(shè)計(jì)時(shí)可見，而 在運(yùn)行時(shí)則隱藏起來(lái)，但在后臺(tái)每隔一定的時(shí)間間隔就執(zhí)行

19、一次Timer事件。 （一）常用屬性 1、Interval屬性 返回或設(shè)置對(duì)Timer控件的計(jì)時(shí)事件各調(diào)用間的毫秒數(shù) 語(yǔ)法：object.Interval=milliseconds milliseconds:0使Timer控件無(wú)效；165535可設(shè)置的 時(shí)間間隔范圍 2、 Enable屬性：用來(lái)決定計(jì)時(shí)器控件是否能夠響應(yīng)計(jì)時(shí) 事件。相當(dāng)于啟動(dòng)或關(guān)閉計(jì)時(shí)器的開關(guān)。 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 55 （二）Timer事件 Timer事件 是計(jì)時(shí)器的唯一事件。在一個(gè)Timer預(yù)定時(shí)間間隔過 去之后發(fā)生，用以告訴VB在每個(gè)Interval到時(shí)該做什么。 語(yǔ)法： Private Sub object_Timer(index As Integer) 程序代碼 End Sub 2021-6-5 北京電大VisualBasic程序設(shè)計(jì)VB 可視化編程初步 56 本章習(xí)題 一、單項(xiàng)選擇題一、單項(xiàng)選擇題 1.在 Visual Basic的集成開發(fā)環(huán)境中創(chuàng)建Visual Basic應(yīng)用程 序時(shí)，除了工具箱窗口、窗體設(shè)計(jì)窗口、屬性窗口外，必 不可少的窗口是（ ）。 A窗體布局窗口 B立即窗口 C代碼窗口 D監(jiān)視窗口 2應(yīng)用程序打包后，其包文件的后綴為