《表单标签与基本指令.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.製作安排二個按鈕。,