表单标签与基本指令.ppt

《表单标签与基本指令.ppt》由会员分享，可在线阅读，更多相关《表单标签与基本指令.ppt（142页珍藏版）》请在三一办公上搜索。

1、第三章 表單標籤與基本指令,3-1 表單（Form）,表單的建立是應用程式輸出入介面的基礎，為Visual Basic最基本的物件之一。舉凡在螢幕上輸出或輸入文字、圖形、物件皆需置於表單上。表單在程式執行時可任意移動、縮放或以圖示鈕縮至工作列中。,3-1-1 表單的建立,啟動Visual Basic後或執行功能表的【檔案新增專案】，出現新增專案對話框，點選Visual Basic專案，設定位置與名稱後按確定。在螢幕上將出現一個標題名稱預設為Form1的新表單,3-1-2 表單基本屬性,Name：設定表單類別名稱，預設為Form1。Backcolor：設定表單的背景色(預設值：Control）。

2、程式中設定表單的背景色其寫法如下：Me.BackColor=顏色,BackgroundImag：設定欲顯示於表單中的圖片（預設值：無），當點選時出現，在該處點一下將出現開啟對話框。Cursor：設定指標呈現於表單的樣式（預設值）。,Forecolor：設定表單的前背景色（預設值：Control）。FormBorderStyle：設定表單框線的樣式、標題列顯示方式與標題列出現那些按鈕，共計有七種格式(預設值為Sizable）。,None：沒有框線與標題、大小固定。FixedSingle：單線、固定及有標題。Fixed3D：立體、有標題與大小固定。Sizable：有標題大小可調整。FixedDia

3、log：有雙框線、標題及只有關閉鈕的對話框。Fixed Tool Window：立體、固定只有結束鈕，適用字型小的工具視窗。Sizable Tool Window：立體、可調整只有結束鈕，適用字型小的工具視窗,Text：設定表單標題列名稱（預設值Form1）。Enabled：設定表單是否會有作用。True：產生（預設值）。False：不產生。Font：設定字型格式點選時將開啟字型對話框如下圖所示（預設值：新細明體 9pt）。,Location：表單顯示在螢幕上的座標。MaximizeBox：設定取得最大化是否可用（預設值True）。MinimizeBox：設定取得最小化是否可用（預設值True

4、）。Opacity：設定表單的透明度（預設值100%），百分比愈大透明度愈高。Name：定義表單名稱（預設值Form1）。Size：定義表單的區塊面積（預設值300,300表單水平寬度與垂直高度）。,StartPosition：定義表單開始位置，共有五種情形如下圖,Manual：手動。CenterScreen：螢幕上中央。WindowsDefaultLocation：（預設值）。WindowsDefaultBounds：顯示在螢幕上中央並調整邊界為適當大小。CenterParent：顯示在父窗中央。,Visible：設定表單是否顯示。True：顯示在螢幕上（預設值）。False：隱藏。Wind

5、owState：設定執行時，視窗的狀況如下圖。,Normal：為正常化Minimized：最小化Maximized：最大化,在Visual Basic中，不同的物件所提供的事件程序不相同，關於表單一些常用的事件程序如下：Form_Load 當表單被載入執行時，系統會呼叫Form_Load事件程序。Form_Load事件，大多用來設定變數的初值。Form_Click事件 當使用者在表單內沒有放置控制項的地方（空白位置）時，按一下滑鼠左鍵就會觸動Form_Click事件。,3-1-3 表單常用事件程序,Form_DbClick事件當使用者在表單內沒有放置控制項的地方（空白位置）時，按二下滑鼠左鍵就

6、會觸動Form_DbClick事件。Form_Closing事件 當使用者在關閉表單時觸動Form_Closing事件。,【實例03_00_02】,設計一程式，執行時表單大小為300,150，標題文字顯示歡迎光臨Visual Basic，當在表單上按一下時，表單標題文字顯示謝謝光臨Visual Basic、表單大小為200，200、表單背景顏色改為白色，同時去掉最大化鈕與最小化鈕。,【題目說明】,程式執行時表單標題文字顯示歡迎光臨Visual Basic，如圖所示。當在表單上按一下時，表單顯示謝謝光臨 Visual Basic，同時表單大小為200，200如圖所示。,【學習目的】,學習製作表單

7、與按一下事件，修改表單的屬性。,【設定屬性與命名】,一、開啟專案執行功能表新增專案，出現新增專案對話框如圖所示：,a.點選Visual Basic專案。b.設定位置(檔案路徑)與名稱。c.按確定。,2.出現如下圖，在表單Form1點一下將顯示屬性 視窗。,設定屬性,設定表單大小(Size)，在屬性Size輸入300，150。設定表單標題文字(Text)，在屬性Text輸入歡迎光臨Visual Basic。,編輯程式,在方案總管處點選檢視程式碼鈕，如圖所示。,在檢視程式碼視窗在左邊控制項(物件)名稱處，按 點選(基底類別事件)，在右邊事件(方法)名稱處，按 點選Click如圖所示。,3.編輯視窗

8、出現Private Sub Form1_Click如圖。,4.在Private Sub Form1_Click下一列開始寫程式如圖。,【程式說明】表單物件本身以Me表示，如程式中表單大小 以Me.Size。2.程式中單引號表註解沒有任何作用。,【程式執行】在工具列按開始 鈕。【程式結束】在工具列按結束 鈕,。,3-2 標籤(Label)控制項,標籤工具的使用是在表單某固定的位置上，對輸入的資料或顯示的資料給予提示訊息和說明，卻無法對資料做輸入或修改的動作，標籤用來提供提示訊息文字，如說明文字方塊輸入內容。,32-2-1標籤的建立1.,1.指標移至工具箱中標籤 鈕上，按一下2.將指標移至表單中任

9、意位置，指標呈十字形，按住滑鼠左鍵並拖曳，拉出適當的大小後再放開左鍵，如圖所示：3.透過標籤的屬性視窗（右下視窗）來設定屬性值。,3-2-2 標籤常用的屬性,標籤(Label)和表單相同的屬性，如Font、Location、Size、等將不再重複介紹，只介紹表單沒有且是常用的屬性如下：BorderStyle：標籤的框線樣式，如圖所示：,BackColor：設定標籤背景顏色。ForeColor：設定標籤文字的顏色。Image：設定標籤圖示。Text：標籤上的標題文字。TextAlign：標籤上的文字對齊方式，預設值為，如圖所示：,【實例03_02_01】設計一程式，執行時表單標籤標題顯示表單與標

10、籤練習，表單上的標籤顯示歡迎 進入 Visual Basic.NET。,程式執行時表單標題顯示歡迎 進入 Visual Basic.NET，如圖所示。,【學習目的】,學習製作表單與標籤。設定表單與標籤的屬性。表單Form1_Load事件。,【使用物件的類別與屬性】,【使用物件與命名】,【物件屬性的建立】,執行功能表的【檔案新建專案】，在螢幕上出現Form1的新表單，調整表單適當的大小。設定表單標題列文字為表單與標籤練習，如圖所示。,在表單上加入一標籤名稱為Label1，設定標籤文字(Text)為空白，文字對其方式為 MiddleCenter如圖所示。,開啟程式視窗：在表單上按二下出現程式碼視窗

11、，如圖所示。即可在Private Sub Form1_Load()與End Sub中撰寫程式。,【註】11.程式中第一列敘述原應：Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load 為使程式看起來比較簡易，因此將其省略如下：Private Sub Form1_Load(ByVal)Handles MyBase.Load。22.往後的程式除必要外，都將省略處理。,【程式執行】在工具列按開始 鈕。【程式結束】在工具列按結束 鈕。,【補充說明】,回顧利

12、用屬性視窗來設定屬性的過程，以標籤（Label1）如圖：選取欲設定的物件，如選取以標籤（Label1）。選取欲設定的屬性，如選取標題文字（Text）。設定屬性值，如屬性值歡迎光臨Visual Basic.NET。所以其屬性的組成：物件名稱（的）屬性（為）屬性值Visual Basic 的寫法：物件名稱（）屬性（）屬性值【例】Label1標籤（的）標題（為）謝謝光臨Visual Basic.NETLabel1.Text=歡迎光臨Visual Basic.NET,3-3按鈕(Button)控制項,3-3按鈕(Button)控制項,按鈕是在表單設計輸出入畫面時，最常使用到的，當你在其中一個按鈕上按一

13、下，Visual Basic就會執行該按鈕對應的Click事件程序。所以它也是使用者與應用程式互動的最直接簡單方法。,3-3-1按鈕的建立在表單工作區內建立按鈕的方法：方法一：移動指標到工具箱的按鈕 處，按二下，此時在表單中將會出現Button1按鈕控制項，接著移動滑鼠到表單中拖曳該按鈕到適當的位置。方法二：在工具箱內的按鈕 處，按一下，將指標移到表單內，指標呈十字形，拖曳滑鼠即可產生一個按鈕控制項，如下圖所示。,3-3-2 按鈕常用的屬性,FlatStyle：設定按鈕外觀樣式。Text：按鈕上面的標題文字與對應鍵。&符號之後的一個字元為對應鍵，其字下方會加底線。（預設值：Button1）Na

14、me：指令按鈕的物件名稱。Visible：決定按鈕是顯現或隱藏。True：按鈕顯現（預設值）。False：按鈕被隱藏。Enabled：按鈕是否有作用。True：按鈕有作用（預設值）。Fa1se：按鈕無作用。,3-3-3 選取按鈕的方法程式在執行階段可以用滑鼠左鍵按一下引發Cick事件外，還可利用下列選取按鈕的方法：滑鼠操作：點選指鈕，以滑鼠左鍵按一下。鍵盤操作：按 Tab 鍵移動駐點至欲選取按鈕上，再按鍵Enter 或Backspace 鍵選取該按鈕。快捷操作：按 Alt+對應鍵（有底線字元鍵）選取按鈕。程式操作：在程式碼中設定按鈕的Value屬性為True，也可選取按鈕。預設按鈕：在設計階段

15、中，設定按鈕的Default屬性為True，則該按鈕為預設按鈕。,【注意】在按鈕的Text屬性文字內插入&符號，將使得此符號之後的字元成為該按鈕的對應鍵。在執行過程中，按 Alt+對應鍵為執行該按鈕的快捷操作。,【實例03_03_01】設計一程式，執行時表單標題顯示按鈕測試，在表單上有二個按鈕：按鈕A與按鈕B，當按按鈕A時，標籤顯示目前按的按鈕為A，當按按鈕B時，標籤顯示目前按的按鈕為B。【題目說明】當按按鈕(A)指令按鈕或Alt+A時，表單顯示目前按的按鈕為A，結果如下圖所示。,再按按鈕(B)按鈕或 Alt+B時，在表單顯示目前按 的按鈕為A下一列顯示目前按的按鈕為B如圖所示。,【學習目的】

16、1.學習製作按鈕。2.學習在按鈕上按一下（Click）產生的事件。3.按鈕的快捷操作。,【使用物件與命名】,【使用物件的類別與屬性】,【實例03_03_02】設計一程式在表單內有四個標籤，標籤內容都 不同，當按移動鈕時標籤內容則順移一位。,【題目說明】當啟動程式時，表單畫面顯示，如圖所示。,2.按移動鈕，則原字串二移動到字串一的位置、原字串三移動到字串二的位置、原字串四移動到字串三的位置，而原字串一移動到字串四的位置，如圖所示。,【學習目的】1.標籤背景顏色的改變。2.如何將標籤內容互換。【,【思考邏輯】1.在移動時一定要將第一筆被覆蓋的資料存在暫存區。2.再將第二筆資料，放在第一筆資料的位置

17、，雖然第一筆的內容被覆蓋，但第一筆的資料已存在暫存區。3.再將第三筆資料，放在第二筆資料的位置，依序移動直到最後一筆，放在倒數第二筆資料的位置。4.最後將存在暫存區的第一筆資料，放在最後一筆資料的位置。,【使用物件與命名】,3-4 VB.NET基本敘述,3-4-1 Rem敘述在程式中，如果指令需要做說明時，可以利用Rem敘述加以註解，以方便日後程式的閱讀和修改。當程式執行過程中，碰到此敘述是不會執行的，會自動跳過去。其語法如下：【語法】Rem(註解)【功能】宣告該行為程式註解。【註】Rem(註解)一般都以單引號取代。,3-4-2 End敘述End功能為中止程式的執行。【語法】End【說明】1.

18、當執行End敘述時，電腦會自動關閉本程式所有 已開啟的檔案、表單，並清除所有的變數。2.End敘述可以放在程式中的任意位置來終止程式的執行，一般都放在結束按鈕的事件程序中。3.若在Visual Basic的整合環境下，啟動未經編譯的原始程式，執行End敘述時，會終止程式的執行而返回Visual Basic整合環境。4.若在Windows作業環境下，啟動已編譯過的可執行檔程式，當執行End敘述時，會結束程式的執行而關閉程式視窗。,3-4-3 vbNewLine常數,vbNewLine是用來作強迫換行。【例】譬如你希望在lblShow標籤控制項內，將a=5和b=3 以兩行顯示，其寫法如下：lblS

19、how.Text&=a=5&vbNewLine&b=3,【實例03_04_01】設計一程式，利用vbNewLine是用來作強迫換行。【題目說明】當按執行按鈕時，結果如下圖所示。,【學習目的】學習如何在同一列顯示與強迫換新行。,【使用物件與命名】,3-5 座標,電腦螢幕所顯示的影像，實際上都是由不連續的像素(Pixel)所組合而成的。像素的明暗與色彩的配合，可以構成千變萬化的圖形與文字。螢幕的水平或垂直像素的數目愈多，則表示螢幕的解析度愈高。若要知道表單上物件所在的位置，就必須由物件的Location屬性值來判斷物件安放位置的座標。,(0,0),大,大,3-5-1 Location屬性 在For

20、m上有兩個屬性欄，記錄著輸出的縱橫座標，如Form的座標系統是以左上角為原點(0,0)，越往右邊則Location.X值越大，而越往下方Location.Y值越大，如圖所示。,如果要在表單物件上，於某個座標點開始顯示標籤、文字方塊便可設定Location X與Location Y的屬性值，所以Location X及Location Y可設定所指物件目前的垂直或水平座標值。其語法如下：【語法】物件名稱LocationX 物件名稱LocationY【說明】所設定的座標為相對於該物件工作區左上角位置，而非相對於螢幕左上角的座標。,【實例03_00_01】設計一程式，表單上有一標籤(label1)其屬

21、性Image(影像)是一部汽車，當在按鈕上按一下時，汽車向上移動20，當在按鈕下按一下時，汽車向下移動20，當按左或按右同樣依方向移動20。【題目說明】1.程式執行時，如圖所示。,當在按鈕上按一下時，汽車向上移動20，如圖所示。,【學習目的】1.學習標籤內放入影像。2.物件命名使用中文名稱命名。3.標籤位置(Location)與新位置(New Point)在按鈕上按一下（Click）產生的事件。,3-6 字型,3-6-1 字型設定,在本章3-1-2節已經介紹過如何在設計階段透過Font屬性來設定表單上或控制項上面的文字大小、樣式等效果。但是如何在程式執行中來改變上述的文字大小、顏色其語法如下：

22、【語法】物件名稱.Font=New Font(FontName,FontSize,FontStyle)【功能】設定指定物件上字體的字型、大小、樣式。【說明】1.只要在物件中含Text屬性，皆可在程式中使用此方法2.若上述語法省略物件名稱時，適用表單。3.FontStyle：有Bold(粗體)、Italic(斜體)、Regular(標準)、Strikeout(刪除線)和Underline(底線)。,【實例03_00_01】設計一程式，執行時表單上標籤顯示知福惜福為預設值，當按字型變化鈕時標籤內字型顯示標楷體、大小為20、字體為粗體字。【題目說明】1.程式執行時表單顯示如圖所示。,2.當按字型變化

23、鈕時顯示如圖所示。,【學習目的】1.學習字型各種屬性。2.變數名稱使用中文定義。,【討論】程式可以只寫一行，其寫法如下：Private Sub Button1_Click(ByVal)Button1.Click Label1.Font=New Font(標楷體,20,FontStyle.Bold)End Sub,3-6-2 字型屬性Font雖是其它控制項的屬性，但他本身包括文字的字型名稱、大小、樣式等副屬性。【例】設有一標籤物件(Label1)其屬性設定為標楷體，20pt，粗體其副屬性如下表：,【實例03_06_02】設計一程式，延伸實例3_06_01，將其副屬性顯示於標籤內。【題目說明】程式

24、執行時表單顯示如圖所示。,2.當按字型設定鈕時顯示如圖所示。,【學習目的】學習字型設定與字型的各種副屬性。,【程式內容】Private Sub Button1_Click(By Val)Handles Button1.Click Label1.Font=New Font(標楷體,20,Font Style.Bold)End Sub Private Sub Button2_Click(By Val)Handles Button2.Click Label2.Text&=字型名稱：&Label1.Font.Name&v b New Line Label2.Text&=字型大小：&Label1.Fon

25、t.Size&v b New Line Label2.Text&=粗 體 字：&Label1.Font.Bold&v b New Line Label2.Text&=斜 體 字：&Label1.Font.Italic&v b New Line Label2.Text&=加 底 線：&Label1.Font.Underline&v b New Line Label2.Text&=刪 除 線：&Label1.Font.Strikeout&v b New Line End Sub Private Sub Button3_Click(By Val)Handles Button3.Click End E

26、nd Sub,3-7 顏色,3-7-1 Color【語法】Color.屬性值【功能】程式中用來設定顏色。屬性值參數如下表所示：,【例】將Label1標籤控制項的背景色設為藍色。其寫法：當在Color後按時即出現下拉選項從中選Blue如圖所示：,Label1.Back Color=Color.Blue,3-7-2 QBColor 函數QBColor函數是為了要繼承DOS下的Quick Basic是用來設定顏色。在Visual Basic中設定顏色的方式很多，而最簡單的是QBColor函數，可是它在設定時較無彈性。【語法】QBColor(color)【說明】color：為顏色代碼，顏色代碼為015

27、對照表如下,若要使用QB Color自訂色彩，可使用Color Translator.From Ole()來指定色彩，如標籤(Label1)背景顏色為黃色其寫法：Label1.Back Color=Color Translator.From Ole(QB Color(14),RGB函數RGB(Red,Green,Blue)函數有三個引數，分別代表紅、綠、藍三種顏色光的強度，每個顏色值分別從0至255共分成256個階段，而每一個Byte可以表示數值0255，紅、綠、藍三色各佔一個Byte（每一個Byte=8Bits）因此每一個顏色可以用24bits來表示，所以RGB函數組出來的顏色可達256*2

28、56*256=16,777,216種顏色，也就是所謂的全彩。例如 RGB(250，0，0)為紅色、RGB(0,255,0)為綠色、RGB(0，0，255)為藍色、RGB(255,0,255)為紫色（紅藍）。若要使用RGB自訂色彩，可使用Color.From Argb()來指定色彩，如表單背景顏色為白色其寫法：Me.Back Color=Color.From Argb(255,255,255),【實例03_07_01】設計一程式，執行時表單上標籤顯示知福惜福為預設值，當按變化鈕時，表單背景顏色變為白色，標籤內字型顯示標楷體、大小為20、字體為粗體字，標籤前景變紅色、背景變淺綠色。,【題目說明】1

29、.程式執行時，顯示如圖所示。,【學習目的】1.在程式中設定Font屬性。2.了解前景顏色與背景顏色。3.了解Color、QBColor與RGB三種不同顏色敘述的用法。,3-8 字型與顏色對話框,3-8-1 字型對話框在設定字型我們除了在屬性Font設定或在程式中使用New Font設定外，還可利用字型對話框(FontDialog)控制項來設定字型的格式。,3-8-2 色彩對話框,在設定色彩方面，同樣我們也可利用色彩對話框(Color Dialog)控制項來設定。,3-8-3 Show dialog 方法,Show dialog方法是用來顯示對話框。【語法】顯示對話框物件.Show dialog

30、,【實例16_00_04】利用字型對話框與色彩對話框設定字型。【題目說明】1.當程式啟動後，按字型設定鈕，出現字型對話框，如下圖所示：,2.當字型設定大小為26、字型為華康POP1體W5後，按確定鈕，出現前景色彩對話框，如圖所示：,3.當前景色彩設定後，按確定鈕，出現背景色彩對話框，如圖所示：,4.當背景色彩設定後，按確定鈕，結果如圖所示：,【學習目的】,了解如何利用字型對話框與色彩對話框設定字型與顏色。,【使用物件與命名】1.點選字型對話框：在工具箱選取Font Dialog工具 鈕，按二下。2.點選色彩對話框：工具箱選取Color Dialog工具 鈕，按二下。,【使用物件的類別與屬性】,

31、【程式內容】,3-9 格式化Format,將數值、字串與日期時間資料依指定的格式轉換成字串。【語法】Format（運算式,fm t）【功能】將數值或字串依指定的fm t格式轉換成字串【說明】1.運算式可為數值或字串運算式。2.Fm t是代表轉換後字串的格式。若省略此參數，則Format函數會將數值轉換成字串，並將正數前面的空白去除。,3-9-1 常用的Format輸出格式符號,：代表一個位數，如果沒有數值就補上0。【例一】format(23,”0000”)結果0023，23前補上二個”0”。【例二】format(-12345,0000)結果-12345【例三】format(-13,0000)結

32、果-0013：代表一個位數，如果沒有數值不補0。【例一】format(23,”#”)結果23，23前不補”0”。【例二】format(-12345,#)結果-12345【例三】format(-13,#)結果-13,：小數點。【例一】format(23,”#.00”)結果23.00。【例二】format(-12345,#.00)結果-12345.00【例三】format(-13,#.00)結果-13.00，：千位分隔。【例一】format(23,”#,#.00”)結果23.00。【例二】format(-12345,#,#.00)結果-1,2345.00【例三】format(-13,#,#.00)

33、結果-13.00：以百分比顯示數值。【例一】format(.23,”000.0%”)結果023.0%。【例二】format(.12,#.#%)結果-12.0%,【實例03_00_06】將常用的Format輸出格式符號依前所述實際運作。【結果】,【程式內容】Private Sub Button1_Click_1(ByVal)Handles Button1.Click Label1.Text&=Format 0000：+Format(23,0000)Label1.Text&=vbNewLine Label1.Text&=Format 0000：+Format(-12345,0000)Label1.

34、Text&=vbNewLine Label1.Text&=Format 0000：+Format(-13,0000)Label1.Text&=vbNewLine Label1.Text&=Format#：+Format(23,#)Label1.Text&=vbNewLine Label1.Text&=Format#：+Format(-12345,#)Label1.Text&=vbNewLine Label1.Text&=Format#：+Format(-13,#)Label1.Text&=vbNewLine Label1.Text&=Format#.00：+Format(23,#.00)Lab

35、el1.Text&=vbNewLine,Label1.Text&=Format#.00：+Format(-12345,#.00)Label1.Text&=vbNewLine Label1.Text&=Format#,#.00：+Format(23,#,#.00)Label1.Text&=vbNewLine Label1.Text&=Format#,#.00：+Format(-12345,#,#.00)Label1.Text&=vbNewLine Label1.Text&=Format#,#.00：+Format(-13,#,#.00)Label1.Text&=vbNewLine Label1.

36、Text&=Format 000.0%：+Format(0.23,000.0%)Label1.Text&=vbNewLine Label1.Text&=Format 000.0%：+Format(-0.12345,000.0%)Label1.Text&=vbNewLine End Sub Private Sub Button2_Click(ByVal)Handles Button2.Click End End Sub,3-9-2 常用的Format數字預設輸出格式符號,G、g:一般數字顯示【例】Format(1357.9,”g”)結果1357.9。C、c:貨幣顯示【例】Format(1357.

37、9,”C”)結果NT$1357.9。F、f:小數點以下只顯示二位【例】Format(1357.579,”F”)結果1357.58。N、n:小數點以下只顯示二位並加千位符號【例】Format(1357.579,”N”)結果1,357.58。P、p:百分比方式顯示，小數點以下只顯示二位【例】Format(.579,”P”)結果1,357.58。,【實例03_00_06】將常用的Format輸出格式符號依前所述實際運作。【結果】,【程式內容】Private Sub Button1_Click(ByVal)Handles Button1.Click Label1.Text&=Format g：+For

38、mat(1357.9,g)Label1.Text&=vbNewLine Label1.Text&=Format C：+Format(1357.9,C)Label1.Text&=vbNewLine Label1.Text&=Format F：+Format(1357.579,F)Label1.Text&=vbNewLine Label1.Text&=Format n：+Format(1357.579,n)Label1.Text&=vbNewLine Label1.Text&=Format p：+Format(1357.579,p)Label1.Text&=vbNewLine End Sub Pr

39、ivate Sub Button2_Click(ByVal)Handles Button2.Click End End Sub,3-9-3 Now函數Now函數是取得目前系統目前的日期與時間。,3-9-4 常用的Format時間預設輸出格式符號G:顯示日期與時間【例】Format(Now(),”G”)結果。D:顯示日期【例】Format(Now(),”D”)結果。d:顯示日期【例】Format(Now(),”d”)結果。時間T【例】Format(Now(),”T”)結果。,t:顯示時間【例】Format(Now(),”t”)結果。M、m:顯示日期中月與日【例】Format(Now(),”m”)

40、結果。F、f:顯示日期與時間【例】Format(Now(),”F”)結果。s:顯示日期與時間【例】Format(Now(),”s”)結果。R、r:顯示格林威治時間【例】Format(Now(),”r”)結果。,【實例03_00_04】將常用的Format時間預設輸出格式符號依前所述實際運作。【結果】,【程式內容】Private Sub Button1_Click(ByVal)Handles Button1.Click Label1.Text&=Format 時間 G：+Format(Now(),G)Label1.Text&=vbNewLine Label1.Text&=Format 時間 D：

41、+Format(Now(),D)Label1.Text&=vbNewLine Label1.Text&=Format 時間 d：+Format(Now(),d)Label1.Text&=vbNewLine Label1.Text&=Format 時間 T：+Format(Now(),T)Label1.Text&=vbNewLine Label1.Text&=Format 時間 t：+Format(Now(),t)Label1.Text&=vbNewLine Label1.Text&=Format 時間 m：+Format(Now(),m)Label1.Text&=vbNewLine Label

42、1.Text&=Format 時間 F：+Format(Now(),F)Label1.Text&=vbNewLine Label1.Text&=Format 時間 s：+Format(Now(),s)Label1.Text&=vbNewLine Label1.Text&=Format 時間 r：+Format(Now(),r)End Sub Private Sub Button2_Click(ByVal)Handles Button2.Click End End Sub,3-9-5 常用的Format時間自訂輸出格式符號dd:顯示日期【例】Format(Now(),”dd”)結果。ddd:顯示

43、星期簡稱【例】Format(Now(),”ddd”)結果。dddd:顯示星期全稱【例】Format(Now(),”dddd”)結果。MM:顯示日期的月份【例】Format(Now(),”MM”)結果。MMM:顯示日期中月份名稱的簡稱【例】Format(Now(),”MMM”)結果。MMMM:顯示日期中月份名稱的全稱【例】Format(Now(),”MMMM”)結果。,Y y:顯示年份二位數字【例】Format(Now(),”y y”)結果。Y y y y:顯示年份四位數字【例】Format(Now(),”y y y y”)結果。H h:顯示小時數(12小時制)【例】Format(Now(),”

44、h h”)結果。HH:顯示小時數(24小時制)【例】Format(Now(),”HH”)結果。mm:顯示分鐘值【例】Format(Now(),”mm”)結果。S s:顯示秒鐘值【例】Format(Now(),”s s”)結果。T t:顯示12小時制的上午或下午【例】Format(Now(),”t t”)結果,【實例03_00_04】將常用的Format時間自定輸出格式符號依前所述實際運作【執行結果】,【程式內容】Private Sub Button1_Click(By Val)Handles Button1.Click Label1.Text&=Format 時間 d d：+Format(No

45、w(),d d)Label1.Text&=v b New Line Label1.Text&=Format 時間 d d d：+Format(Now(),d d d)Label1.Text&=v b New Line Label1.Text&=Format 時間 d d d d：+Format(Now(),d d d d)Label1.Text&=v b New Line Label1.Text&=Format 時間 MM：+Format(Now(),MM)Label1.Text&=v b New Line Label1.Text&=Format 時間 MMM：+Format(Now(),MM

46、M)Label1.Text&=v b New Line Label1.Text&=Format 時間 MMMM：+Format(Now(),MMMM)Label1.Text&=v b New Line Label1.Text&=Format 時間 y y：+Format(Now(),y y)Label1.Text&=v b New Line,Label1.Text&=Format 時間 y y y y：+Format(Now(),y y y y)Label1.Text&=v b New Line Label1.Text&=Format 時間 h h：+Format(Now(),h h)Labe

47、l1.Text&=v b New Line Label1.Text&=Format 時間 HH：+Format(Now(),HH)Label1.Text&=v b New Line Label1.Text&=Format 時間 mm：+Format(Now(),mm)Label1.Text&=v b New Line Label1.Text&=Format 時間 s s：+Format(Now(),s s)Label1.Text&=v b New Line Label1.Text&=Format 時間 t t：+Format(Now(),t t)Label1.Text&=v b New Lin

48、e End Sub Private Sub Button2_Click(By Val)Handles Button2.Click End End Sub,【實例03_01_b】設計一表單以圖片作為其背景，同時設計二個按鈕，一個按鈕當它按一下，則在表單上出現一些文字，另一個按鈕為結束鈕。,【題目說明】1.程式執行時表單畫面如下圖所示。,2.在表單上按鈕好話一句上按一下時，在表單畫面如圖所示。,【學習目的】1.學習以圖片作為背景製作表單。2.學習在按鈕產生的事件。3.字型大小與字型變化。【使用物件】1.點選表單物件，在屬性Background Image處按一下，Background Image屬性欄右邊出現符號，再於其上按一下，出現 開啟對話方塊，點選所要的圖片。,2.按開啟舊檔（O）鈕，圖片被載入至表單內。,3.將表單的大小調整至可以容納圖片。4.製作安排二個按鈕。,